26-02-18, 03:39 AM
ارجو المساعده في هذا الكود ضروررررررررري
انا بحثت ووجدت كود يجعل البرنامج يعمل لعدد مرات معينه وبعد ذلك يطلب سريال معين علشان البرنامج يتفعل
ولكن الكود لا يعمل فارجو المساعده لمن عندي الحل ضروري
وهذا هو الكود
Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "")
Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
Private Sub fORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If a_ Is Nothing Then
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
End If
If a_ = "OFF" Then
If a Is Nothing Then
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ahmedsalah")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "3")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "s", "xxxx")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
Else
If a = "0" Then
Me.Hide()
MsgBox("انتهت فتره استخدامك للبرنامج")
frmSerialNumber.Show()
Else
a = a - 1
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", a)
MsgBox("باقي لك علي استخدامك للبرنامج " & a & "مره")
End If
End If
Else
End If
End Sub
انا بحثت ووجدت كود يجعل البرنامج يعمل لعدد مرات معينه وبعد ذلك يطلب سريال معين علشان البرنامج يتفعل
ولكن الكود لا يعمل فارجو المساعده لمن عندي الحل ضروري
وهذا هو الكود
Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "")
Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
Private Sub fORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If a_ Is Nothing Then
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
End If
If a_ = "OFF" Then
If a Is Nothing Then
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ahmedsalah")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "3")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "s", "xxxx")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
Else
If a = "0" Then
Me.Hide()
MsgBox("انتهت فتره استخدامك للبرنامج")
frmSerialNumber.Show()
Else
a = a - 1
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", a)
MsgBox("باقي لك علي استخدامك للبرنامج " & a & "مره")
End If
End If
Else
End If
End Sub