31-01-18, 02:23 PM
الكود هو عبارة عن أن المستخدم يستخدم البرنامج لمدة 5 أيام فقط و للمبرمج بإستطاعتة تغيير المدة
كود :
' XpressLayer , Eng. Hazem Ali
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 5 Then
MsgBox ("انتهت مدة عمل البرنامج ، رجاء شراء النسخة الاصلية")
Unload Me
End If