[rochdi191]

(16-07-20, 07:59 PM)aljzazy كتب :

حياك الله اخي الكريم

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

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

كود :

Public Function check_Key() As String
       Try
           Dim Checkkey As RegistryKey
           Dim CK_Key As String
           Checkkey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
           CK_Key = Checkkey.GetValue("System_key")
           Return CK_Key
       Catch ex As Exception
           Return ""
       End Try
   End Function

وبعد ذلك نقوم بحدث اللود للشاشة الرئيسية

كود :

  Dim x As String
       x = check_Key()
       If x = String.Empty Then
           MsgBox(" need active")
           Form1.ShowDialog()
       Else
           MsgBox(" مرحبا بك ")
       End If

وهذا السورس كود يمكن ان يساعدك

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