10-10-22, 02:45 PM
هل يمكن التعديل على مثال التفعيل وذلك في هذه الجزئية من الكود
لا ادري أين الخطأ في عدم ظهور الخطأ
فأريد عندما يكون كود التفعيل صحيح يتم الانتقال للشاشة الرئيسية، مع عدم ظهور شاشة التفعيل مرة آخرى
توجد مكتبتان يجب إضافتهما في مجلد البرنامج
في المرفقات مثالين أحدهما لتوليد كود التفعيل والمثال الآخر للبرنامج
[attachment=28290]
[attachment=28291]
لا ادري أين الخطأ في عدم ظهور الخطأ
فأريد عندما يكون كود التفعيل صحيح يتم الانتقال للشاشة الرئيسية، مع عدم ظهور شاشة التفعيل مرة آخرى
توجد مكتبتان يجب إضافتهما في مجلد البرنامج
كود :
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في المرفقات مثالين أحدهما لتوليد كود التفعيل والمثال الآخر للبرنامج
[attachment=28290]
[attachment=28291]