[مصمم هاوي]

هل يمكن التعديل على مثال التفعيل وذلك في هذه الجزئية من الكود

لا ادري أين الخطأ في عدم ظهور الخطأ

فأريد عندما يكون كود التفعيل صحيح يتم الانتقال للشاشة الرئيسية، مع عدم ظهور شاشة التفعيل مرة آخرى
توجد مكتبتان يجب إضافتهما في مجلد البرنامج

كود :

   Public Function Writovalue(key As String) As Boolean
       Dim regkey As RegistryKey

       Try

           regkey = Registry.LocalMachine.OpenSubKey("SoftTMARE", True)
           regkey = Registry.LocalMachine.OpenSubKey("SoftWare\ActivationExample", True)

           If regkey Is Nothing Then
               regkey = Registry.LocalMachine.OpenSubKey("SoftTMARE", True)
               regkey = Registry.LocalMachine.OpenSubKey("SoftWare\ActivationExample")

               regkey = Registry.LocalMachine.OpenSubKey("SoftWare\ActivationExample", True)
               regkey = SetValue("System_key", key)

               regkey.Close()

           End If

           Return True

       Catch ex As Exception

           Return False

       End Try

   End Function

في المرفقات مثالين أحدهما لتوليد كود التفعيل والمثال الآخر للبرنامج


  Test_Processor.rar (الحجم : 126 ك ب / التحميلات : 17)

  P_Processor.rar (الحجم : 105.57 ك ب / التحميلات : 19)

[الماجيك مسعد]

عند التفعيل بنجاح احفظ متغير في اعدادات البرنامج وليكن بقيمة true
وفي الفورم لود الخاص باول فورم يفتح في برنامجك
اعمل تحقق علي القيمة المحفظة مسبقا اذا كانت true يقوم بفتح الفورم الرئيسي كما تشاء
واذا كان false يفتح نافذة التفعيل

[مصمم هاوي]

(10-10-22, 04:03 PM)الماجيك مسعد كتب : عند التفعيل بنجاح احفظ متغير في اعدادات البرنامج وليكن بقيمة true
وفي الفورم لود الخاص باول فورم يفتح في برنامجك
اعمل تحقق علي القيمة المحفظة مسبقا اذا كانت true يقوم بفتح الفورم الرئيسي كما تشاء
واذا كان false يفتح نافذة التفعيل

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

[مصمم هاوي]

الرجــاء الاهتمام بالموضـــوع

[مصمم هاوي]

بعد تجاهل الموضوع عملت على تعديل مثال مخزن عندي مسبقا وتم الأمر بنجاح