[اسلام الكبابى]

هل يوجد كود أو أى طريقة أحدد بها عدد مرات استخدام برنامج الVB6 من قبل العميل؟
أى عدد مرات عمل الRUN
[b]أى كيف يمكن ايقاف عمل البرنامج بعد هذا العدد من المرات
[/b]

ولكم جزيل الشكر

[ahmedabdelaliem]

السلام عليكم ورحمة الله وبركاته
اخي سجل عدد مرات التشغيل في الريجستري وبعد ذلك يتوقف البرنامج

بالتوفيق

[اسلام الكبابى]

وكيف يمكن تسجيل عدد مرات التشغيل في الريجستري ؟
وشكرآ

[ahmedabdelaliem]

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

PHP كود :

Dim DemoTest As String
Private Sub Form_Load()
DemoTest = GetSetting(App.Title, "Settings", "DemoCount")
If DemoTest = "" Then DemoTest = 0
If DemoTest >= 3 Then
MsgBox "Sorry, Demo is Expired", vbInformation, "Demo is Expired"
End
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If DemoTest = "" Then DemoTest = 0
SaveSetting App.Title, "Settings", "DemoCount", DemoTest + 1
End Sub 


بالتوفيق

[اسلام الكبابى]

بارك الله فيك
ولك ألف شكر