[مساعدة]

حاولت تحويل الكود الى vb6 لعله يعمل، بالنسبة إلى VB.NET فهو يعمل

اتمنى التصحيح والتجربة واخبارنا بالنتيجة


في تحميل الفورم لقراءة السجل والتعليم على الأداة CheckBox إذا البرنامج مفعل في السجل

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Dim WScript As Object, key As String, value As String
   WScript = CreateObject("wscript.shell")
   key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & Application.ProductName
   On Error Resume Next
   value = WScript.RegRead(key)
   If Err.Number = 0 Then
       CheckBox1.Checked = True
   Else
       CheckBox1.Checked = False
   End If
   On Error GoTo 0
End Sub

هذا حدث التعليم على الأداة CheckBox للتفعيل أو التعطيل في السجل

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
   Dim wscript As Object, key As String, value As String
   WScript = CreateObject("wscript.shell")
   key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
   value = App.Path & "\" & App.EXEName & ".exe"
   If CheckBox1.Checked Then
       WScript.RegWrite(key, value)
   Else
       WScript.RegDelete(key)
   End If
End Sub

---

الكود يحتاج صلاحية مسؤول