هذا كود لنسخة "تجريبية" جعلتها في برنامجي عندما توقف البرنامج لم استطيع إعادة "تفعيل البرنامج من جديد"، من لديه حل؟ شكرا
الكوه هو كما يلي:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim GD As String
Dim retvalue As Object
retvalue = GetSetting("A", "0", "Runcount")
GD = CStr(Val(retvalue) + 1)
SaveSetting("A", "0", "RunCount", GD)
If CDbl(GD) > 10 Then ' 1
MsgBox("انتهت مدة تشغيل البرنامج،،، ")
Me.Close()
End If
End Sub
End Class
السلام عليكم و رحمة الله و بركاته
اكيد هناك احدى الطرق ..
اما من خلال ال setting للمشروع نفسه
او من خلال الامر run regedit للوينداوز وابحث عن مجلد مفاتيح مشروعك
انا حاليا استعمل الهاتف ولم اتمكن من التمعن جيدا بالسؤال
تحياتي
(09-01-19, 08:08 PM)new2016 كتب : [ -> ] (09-01-19, 05:29 PM)bensadi كتب : [ -> ]هذا كود لنسخة "تجريبية" جعلتها في برنامجي عندما توقف البرنامج لم استطيع إعادة "تفعيل البرنامج من جديد"، من لديه حل؟ شكرا
الكوه هو كما يلي:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim GD As String
Dim retvalue As Object
retvalue = GetSetting("A", "0", "Runcount")
GD = CStr(Val(retvalue) + 1)
SaveSetting("A", "0", "RunCount", GD)
If CDbl(GD) > 10 Then ' 1
MsgBox("انتهت مدة تشغيل البرنامج،،، ")
Me.Close()
End If
End Sub
End Class
السلام عليكم ورحمة الله وبركاته
هذا الكود يكتب قيمة داخل الريجيسترى الخاص بالويندوز الذى تعمل عليه تسمى RunCount
الحل هو الذهاب الى الريجيسترى فى العنوان التاالى
\KEY_CURRENT_USER\Software\VB and VBA Program Settings
A
0
وتعديل القيمة RunCount يدويا من 10 الى الصفر
واذا احببت زيادة عدد مرات استخدام البرنامج عدل القيمة فى كود الشرط من 10 الى الرقم الذى تريد
تحياتى
حفظك الله من كل شر، وجدت القيمة 10 لـ RunCunt و لم أتمكن من تغيير الرقم 10.إني أحاول بحذر شديد.
جزاك الله خيرا يا أخي، توصلت الى الحل ، شكرا.