كيف ممكن أجعل برنامج يشتغل لعدد معين

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

هذا الكود كان موجود في بنك الأكود في الفريق العربي للبرمجة

بس مش راضي يشتغل

وبيطلع أخطاء

السلام عليكم

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then 
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If
End Sub

السلام عليكم

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then 
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If
End Sub

ضبط الحمد لله شكرا لك أخي الفاضل المتميز

بس مش عارفه ليش لما اعمل Package ما بيرضى يشتغل البرنامج

ومباشرة تخرج لي رسالة انتهاء المدة

؟؟؟؟؟؟

من الافضل لعمل برامج ديمو هي التقيد بمدة معينة بدل عدد لالتشغيل

وكيف يتم ذلك يا أخي الفاضل ..

لأنه أنا عندي مهم إنه ما يغير التاريخ .. جهازه وبالتالي يعمل البرنامج أكثر من المدة المحددة

وشكرا لك

تأكدي من القيم التي يأخذها البرنامج أول التشغيل

حيث يفترض أنه عند تشغيل البرنامج أول مرة أن لا يجد القيم في الريجستري .

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
msgbox retvalue 
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then 
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If
End Sub

أحسن شئ أختي اذا كنت تريدين عمل Demo لبرنامجك أن تعملي تحديد لوظائفه مثلا تحذفي بعض الوظائف المتميزة في برنامجك لأن تحديد وقت معين لعمل البرنامج يمكن لأي مبتدئ في الكراكنج أن يكسره

و شكرا

كيفية حماية البرنامج بعدد ايام التشغيلومواضيع اخرى مرتبطة :

http://uni.hiarab.net/showthread.php?t=551...%CA%D4%DB%ED%E1