ارجو المساعده في هذا الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : ارجو المساعده في هذا الكود (/showthread.php?tid=23987)

ارجو المساعده في هذا الكود - emamtron2014 - 26-02-18 ارجو المساعده في هذا الكود ضروررررررررري  انا بحثت ووجدت كود يجعل البرنامج يعمل لعدد مرات معينه وبعد ذلك يطلب سريال معين علشان البرنامج يتفعل ولكن الكود لا يعمل فارجو المساعده لمن عندي الحل ضروري وهذا هو الكود 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