منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عدد مرات استخدام البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عدد مرات استخدام البرنامج (/showthread.php?tid=46311)

عدد مرات استخدام البرنامج - اسلام الكبابى - 17-06-23

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

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

RE: عدد مرات استخدام البرنامج - ahmedabdelaliem - 18-06-23

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

بالتوفيق

RE: عدد مرات استخدام البرنامج - اسلام الكبابى - 19-06-23

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

RE: عدد مرات استخدام البرنامج - ahmedabdelaliem - 20-06-23

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

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 

بالتوفيق

RE: عدد مرات استخدام البرنامج - اسلام الكبابى - 22-06-23

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