mefayed
مدير عام المنتدى
عدد الرسائل : 495
تاريخ التسجيل : 07/11/2006
 | موضوع: اجعل البرنامج يشتغل عدد معين من المرات ثم يطلب منك شراءه  الخميس ديسمبر 07, 2006 6:00 pm | |
| نسخة مشتركة من البرنامج تشتغل لعدد معين، ثم تطلب منك شراء النسخة الأصلية
Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If
End Sub
| |
|
