[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته



عملت لك هذه الدالة للتأكد من صلاحية التشغيل التجريبي للبرنامج
استدعيها في بداية تشغيل البرنامج في الـ Form_Load

PHP كود :

' التأكد من صلاحية اللتشغيل التجريبي للبرنامج
Public Sub CheckExpire()
    
    ' قراءة عدد الأيام من الرجيستري
    Dim regdy As Integer
    regdy = Val(GetSetting(App.CompanyName, "myProgram", "Days"))
    
    ' التاكد من مدة التشغيل التجريبي للبرنامج
    If regdy > 30 Then

        MsgBox "عفواً..." & vbNewLine & "إنتهيت مدة تجربة البرنامج"

        ' الخروج من البرنامج
        End

    End If
    
    '--------------------------------------------
    
    ' قراءة تاريخ التشغيل الأول من الرجيستري
    Dim dt As String
    dt = GetSetting(App.CompanyName, "myProgram", "FirstDate")
    
    ' إذا لم يجد تاريخ التشغيل الأول في الرجيستري
    If dt = "" Then

        ' إحفظ تاريخ التشغيل الأول في الرجيستري
        SaveSetting App.CompanyName, "myProgram", "FirstDate", Format$(Now, "d/M/yyyy")
        
    ' إذا وجد تاريخ التشغيل الأول في الرجيستري
    Else
        
        ' معرفة فرق الأيام بين التاريخ الأول للتشغيل وتاريخ اليوم
        Dim dy As Integer
        dy = DateDiff("d", dt, Now)
        
        ' إذا كان فرق الأيام بين التاريخ الأول للتشغيل وتاريخ اليوم أكبر عدد الأيام في الرجيستري
        If dy > regdy Then

            ' إحفظ فرق الأيام الجديد في الرجيستري
            SaveSetting App.CompanyName, "myProgram", "Days", dy

        End If
        
    End If
    
End Sub 


السلام عليكم ورحمة الله وبركاته