[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

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته
اكيد هناك احدى الطرق ..
اما من خلال ال setting  للمشروع نفسه
او من خلال الامر run regedit  للوينداوز وابحث عن مجلد مفاتيح مشروعك
انا حاليا استعمل الهاتف ولم اتمكن من التمعن جيدا بالسؤال
تحياتي

[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 الى الرقم الذى تريد 


تحياتى 

[bensadi]

(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.إني أحاول بحذر شديد.

---

جزاك الله خيرا يا أخي، توصلت الى الحل ، شكرا.