مطلوب شرح لهذه الأكواد (فترة تجريبية من خلال الرجيستري)

[رولي]

السلام عليكم يا أحباب
مرفق ملف لعمل فترة تجريبية (ليس من صنعي)، يعتمد على الرجيستري تقريبًا حتى لا يتم التلاعب بتاريخ الجهاز.
 

أريد شرحًا لطريقة عمل هذا الكود، ما الذي يحدث بالضبط عند استخدامه؟ 

كما أرجو شرح الكود سطرًا سطرًا حتى نفهمه، ولكم جزيل الشكر.

وهذا هو الكود أيضًا:

Option Compare Database
Dim trial As Date
Dim b As Date
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Form_Open(Cancel As Integer)

trial = GetSetting("aa", "bb", "trial", Nz(trial))
If trial = Empty Then
SaveSetting "aa", "bb", "trial", Date
End If

trial = GetSetting("aa", "bb", "trial", Nz(trial))

If Date < trial Then
MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical

Else
b = trial + 60 ' 60 يوم مدة تجريبية

If Date > b Then
MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation
DoCmd.OpenForm"المصمم"
Else
MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم"

End If
End If

End Sub

 

 

فترة تجريبية - رولي.accdb