من المنتدى القديم استخدام الريجستري لحفظ البيانات

[العبدلي]

قد يتساءل البعض عن كيفية وضع رقم سري لبرامجهم يستخدم لمرة واحدة
--------------------------------------------------------------------------

استخدام الريجيستري لحفظ البيانات...

بعد ان يدخل المستخدم السيريال نمبر تقوم بوضع القيمة OK في الريجستري حتى لاتطلب منه ذلك.. وان لم تكن القيمة موجودة يقوم البرنامج باظهار رسالة تبين ذلك...:
ضع الكود التالي في حدث load للفورم


try = 0
serial = GetSetting("myapp", "serial", "stat2")
If serial <> "OK" Then
chk:
msg = InputBox("يجب ان تكتب رقم التسلسلي")

If msg = "الرقم التسلسلي" Then
MsgBox "الرقم التسلسلي صحيح"

SaveSetting "myapp", "serial", "stat2", "OK"
Else

MsgBox "الرقم التسلسلي خاطئ"
If try = 2 Then End
try = try + 1
GoTo chk
End If
End If


ملاحظة : اذا ادخل المستخدم السيريال نمبر 3 مرات خاطئة يتنتهي البرنامج


بتصرف

[هدهد333]

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

[الفوارس]

اخي العزيز

الاستاذ العبدلي اولاً قام بتسجيل الموضوع لعمل حماية لبرنامجك للعمل في جهاز العميل لمرة واحدة وهذا للفائدة عن كيفية التعامل مع الريجستري فقط

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

وشكراً لكم وللاستاذ العبدلي
:)

[هدهد333]

طيب ارشح الطريقه اذا تعرف ؟؟؟؟

[العبدلي]

الاخ هد هد 333 مرحباً بك

بالنسبة للشرح عن طرق التعامل مع الرجستري فسوف ارفق لك كتاب مع الامثله آمل ان يفيدك


http://www.upload.ps/uploads100507/23826298f9.zip



وتقبل احترامي

[المعرب]

الاخ العبدلي \ بارك الله فيك وجزاك عنا خير الجزاء واصل من إبداعاتك بإنتظار المزيد

[Ab_Shamali]

اخي العبدلي 444 مرحباً بك الرابط لا يعمل

[حسين اليافعي]

شكرا على هذه المشاركه

[مجـدى]

بارك الله فيك اخى العبدلي و لكن الرابط لا يعمل

[adel1]

اخي العبدلي
مرحباً بك الرابط لا يعمل