كيف أحمي برنامجي بأستخدام الرجستري؟

كالتالي :

1 - عمل كود في الSub Main() وأقصد بها أول فانكشن سيتم قراءته مثل الفورم لود أو الإنيشلايز

يتضمن الكود قراءة الريجيستري ومساواتها بالقيمه المفترضه مثل السيريال نمبر للهادرديسك مجموعه مع الوقت وغيرها من التشفيرات .. تعتمد عليك هذه التشفيرات وعلى قوة البرنامج .

2 - عمل برنامج فرعي يسمى المفتاح ومن خلاله يمكنك إكتشاف القيمة المساويه وإدخالها في الريجيستري

هنا كود تبسيطي للفكرة :

Sub Main()
Startp:
If GetSetting("Key", "Value", "Memper", "55") <> GetSetting("Keys", "Values", "Mempers", "fd") Then
A = InputBox("ادخل كلمة المتاح", "تحذير")
SaveSetting "Keys", "Values", "Mempers", A
If A = "" Then End
GoTo Startp
Else
   InitCommonControls
'هنا فتح أو تشغيل البرنامج
End If
End Sub

الكود رقم 2 في البرنامج الفرعي

Private Sub Command1_Click()
SaveSetting "Key", "Value", "Memper", Text1.Text
MsgBox "Done!"
End
End Sub

عند تشغيل البرنامج الرئيسي سيطلب الكلمه المفتاح ويمكنك إدخالها من خلال البرنامج الفرعي

أتمنى أن تعم الفائده وشكرا لكم :)

شكرا لك وحجرب وحقولك ومتشكر جدا على أهتمامك

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

وعلى فكره ألللي لاحظتو من المثال ألللي أعطيتو ليه أن الفورم بيطلع في الأول أدخل رقم المفتاح وبمجرد الضغط على النموذج الثاني بيلغي نشاط الاول ويبقى البرنامج كده أشتغل بدون ما أحط سيريال بس فكرتك ممتازه وياريت توضحلي وشكرا جدا