[احمد عبد الحكيم]

اولا لا تتعتزر اخى طالب انا الى يجب ان اعتزر على اطالتى معاك
ثانيا نفس المشكة يقوم بحفظ تاريخ الغد وليس تاريخ اليوم وايضا يقوم باستبدال التاريخ بالتريخ لا يحفظ فى سطر جديد

[الطالب]

سلام


انا جربته ومتام، احذف ملف aka.png وجرب
واذا برده انسخ كامل كود القورم


موفقين

[احمد عبد الحكيم]

انا واضع
call cd()
فى الفورم لود

[الطالب]

سلام

طيب جربت تحذف aka.png وتشغل البرنامج

موفقين

[احمد عبد الحكيم]

هذا هو كود الفور كاملا
هذا فورم تسجيل الدخول


اخى العزيز طالب راح اقلك على الفكرة الى تدور بدماغى
انا اريد عمل نسخه تجريبية لاكن بطريقة جديدة بمعنى
ان معظم النسخ التجريبة اذا شغلتها على الكمبيوتر وقمت بعمل ويندوز جديد تستطيع ان تشغلها مره اخرى
لا انا اريد النسخه التجريبه ان تعمل على الجهاز مره واحده هذا الملف txt يتم وضعه فى بارتشان اخر غير c بحيث
اذا قام بتنسيب ويندوز جديد يقوم البرنامج بقرائة الملف مثلا انا واضع الملف ان يعمل على 5 ايام فقط
معنى ذلك ان الملف ثوف يكون به 5 تواريخ مع كل يوم يقوم البرنامج بقراءة اخر تاريخ اذا كان اقدم من الموجود البرنامج لا يعمل واذا كان نفس التواريخ لا يعمل واذا عدة المده المحدده وهى 5 ايام لا يعمل
ارجو انى قد اضحت الفكره

PHP كود :

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports license
Imports System.Collections
Public Class log
    Dim T As Boolean
    Dim CnString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\salse.mdb;user id=admin;jet oledb:database password=remkhaled"
    Dim Con As New OleDbConnection(CnString)

    Dim dt As DataTable


    Dim DataSet1 As New DataSet
    Dim dataset2 As New DataSet
    Dim dataset3 As New DataSet
    Dim dataset4 As New DataSet


    Dim DataAdapter1 As OleDbDataAdapter
    Dim DataAdapter2 As OleDbDataAdapter
    Dim DataAdapter3 As OleDbDataAdapter
    Dim DataAdapter4 As OleDbDataAdapter
    Dim CMD As New OleDbCommand
    Dim CMD1 As New OleDbCommand
    Dim da As OleDbDataAdapter

    Public day As String
    Public month As String
    Public year As String






    Private Sub cd()
        'هذا الكود لحفظ اول تاريخ تم فتح به البرنامج 
        Dim filename As String = "D:\aka\aka.png"


        If Not IO.File.Exists(filename) Then
            'وهذا كود لحفظ التاريخ الحالى 
            IO.File.WriteAllText(filename, Now.Date)
        End If

        If My.Computer.FileSystem.ReadAllText(filename).ToString.Trim = "" Then
            'وهذا كود لحفظ التاريخ الحالى 
            My.Computer.FileSystem.WriteAllText(filename, Now.Date, False)
        Else
            'وهذا الكود لقراءة التاريخ واذا كان التاريخ قديم يضع الجديد
            Dim lines As String() = IO.File.ReadAllLines(filename)
            For i = 0 To lines.Length - 1
                If IsDate(lines(i)) AndAlso CDate(lines(i)) = DateString Then
                    lines(i) = CDate(lines(i)).AddDays(1)
                End If
            Next
            IO.File.WriteAllLines(filename, lines)
        End If
    End Sub
    Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        TextBox1.Text = ""
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
        TextBox2.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If Not (seri = My.Settings.NUMr) Then
            Ser.ShowDialog()
        End If

        If TextBox1.Text = "" And TextBox2.Text = "" Then


        Else
            Using cmd As New OleDb.OleDbCommand("SELECT * FROM login WHERE (user = @username) AND (pass = @password)", Con)
                If Con.State = ConnectionState.Closed Then Con.Open()
                cmd.Parameters.AddWithValue("@username", TextBox1.Text)
                cmd.Parameters.AddWithValue("@password", TextBox2.Text)
                Using rd As OleDb.OleDbDataReader = cmd.ExecuteReader
                    Dim t As New DataTable
                    t.Load(rd)
                    If t.Rows.Count > 0 Then
                        start.Show()
                        Me.Hide()
                        Home1.add.Enabled = t(0)(3) ' Flase or true
                        Home1.cars.Enabled = t(0)(4)
                        Home1.day.Enabled = t(0)(5)
                        Home1.stor.Enabled = t(0)(6)
                        Home1.entag.Enabled = t(0)(7)
                        Home1.data.Enabled = t(0)(8)
                        Home1.admin1.Enabled = t(0)(9)
                    Else
                        MsgBox("هناك خطأ ما")
                    End If

                End Using
            End Using

        End If



    End Sub

    Private Sub log_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cd()


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class 


[الطالب]

سلام


انت لم تستخدم الكود الاخير اللي اعطيتك

و معدل فيه خصوصا انك استخدمت DateString وليس Today وهذا خطا

استخدم الكود الاخير اللي اعطيتك


موفقين

[احمد عبد الحكيم]

يقوم بحفظ اول تاريخ الى هو فى شرط ان كان الملف فارغ
ولا يقوم بحفظ التاريخ فى السطر الذى يليه

[الطالب]

سلام


هذه طريقه اخرى بانشاء ملف فارغ واخفاه فقط

وعند التشغيل نقوم بمعرفت تاريخ انشا الملف
فاذا كان تاريخ الانشا له اكثر خمسه ايام يتوقف البرنامج

جرب بعد التشغيل الاول تغير التاريخ لمده اكثر من خمسه ايام وشغل من جديد

كود :

Private Sub cd()

   'اسم الملف
   Dim filename As String = "D:\aka\aka.png"

   If Not IO.File.Exists(filename) Then

       'انشا الملف
       IO.File.Create(filename)

       'اخفا الملف
       IO.File.SetAttributes(filename, IO.FileAttributes.Hidden + IO.FileAttributes.System)

   End If


   'معرفت عدد الايام منذ تاريخ انشاء الملف حتى تاريخ اليوم
   Dim days As Integer = DateDiff(DateInterval.Day, My.Computer.FileSystem.GetFileInfo(filename).CreationTime.Date, Today.Date)

   If days > 5 Then
       MsgBox("انتهت الفتره التجريبيه")
       Application.Exit()
   End If

End Sub

انتبه الملف حيكون مخفي مثل ملفات النظام الخاصه وليس اخفا عادي


موفقين

[احمد عبد الحكيم]

اذا احببت ان ارى هل يتم الحفظ ام لاء

[الطالب]

سلام


المساله ما فيها قراءه وحفظ، المساله فقط قراءت تاريخ انشا الملف، يعني الملف فاضي ما فيهوش حاجه
وعشان تشوف الملف لازم تعدل خصائص العرض لمجلدات للويندوز باظهار الملفات المخفيه وازالت العلامه من اخفاء ملفات النظام

لو المستخدم لو شاف المستخبي ومن اسم الملف اعتقد انه صوره
راح يحاول يفتحها، وطبعا ما حتتفتح فيظن ان الملف معطوب فيحذفه وكدا ما استفدناش حاجه
يعني حاول تخلي اسمه يشبه اسم ونوع ملف نظام حقيقي يخاف المستخدم يحذفه


موفقين