[مصمم هاوي]

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

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

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

كود :

   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)