الغاء ما وضع فى الريجسترى ......عاجل حداااااا

وضح سؤالك ، يمكنك حذف الكود من برنامجك أو تضع :

Private Sub Command1_Click()
SaveSetting "A", "0", "RunCount", -1000
End Sub

يعنى الكود ده ممكن يضفلى كود انا كاتبه او يلغيه

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

الكود الذي وضعته يجعل قيمة الرجستري -1000 مثلاً أي يجب عليه الدخول 1000 مرة + 10 لكي يتوقف البرنامج عن العمل

ولكن من أين أتى بالرقم 3 وهل هذا طلبه لا أعرف:

اقتباس

If GD$ > 10 Then ' الرقم (3) يحدد عدد مرات التشغيل

شكرا يا اخى ولكن هل هناك كود يمسح الكود ايضا لو هناك حل ساكون سعيد جدا

عفواً

اقتباس

شكرا يا اخى ولكن هل هناك كود يمسح الكود ايضا لو هناك حل ساكون سعيد جدا

هل البرنامج لك أم لغيرك أم أنه فقط تنفيذي ولا يوجد السورس كود ، ومن أين أتيت بهذا الكود

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

أنا لم أقرأ المشاركات بشكل جيد ولكنك تريد كود يقوم بحذف ما وضع في الرجستري مع العلم أنك استخدمت SaveSetting

لماذا لم تستخدم DeleteSetting

ملحوظة :

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

حاول استخدام دوال API فهي أكثر فاعلية وقم بالتخزين داخل HLM

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

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

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

اتمنى ان يكون اخوانى فى المنتدى فهمو قصدى من المشاركة

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

واتمنى تبادل الخبرات فى هذا الصدد

اقتباس

فكرة مشالركتى هو عمل برنامج ديمو يعمل لفترة وعند ادخال السريال يتم مسح ما وضع فى الريجسترى ويعمل البرنامج على طول دون مشاكل اتمنى ان يكون اخوانى فى المنتدى فهمو قصدى من المشاركة

ولماذا لم تقل هذا من البداية ، فقط تريد تعذب الناس

أنا سأجاوبك على نفس كودك لتتعلم أول خطوة بسيطة

يمكنك مثلاُ من برنامج آخر تسجيل أو وضع كلمة سر في نفس المكان في الرجستري مثلاً رقم هاتفك 12345678

SaveSetting "A", "0", "RunCount", "12345678"

وتستطيع معرفة هذا الرقم من برنامجك كما يلي :

Private Sub Form_Load()
Dim retvalue As String
retvalue = GetSetting("A", "0", "Runcount")
If retvalue = "12345678" Then Exit Sub
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 10 Then ' الرقم (10) يحدد عدد مرات التشغيل
MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية" 
End
End If
End Sub