29-01-18, 11:16 PM
29-01-18, 11:27 PM
السّلام عليكم و رحمة الله و بركاته
هذا أحد الأكواد المجرّبة و يعمل دون أي إلتباسات ..
كود :
'تشغيل البرنامج مع بداية تشغيل الوينداوز
CheckBox1.Checked = True
Try
Dim regKey As Microsoft.Win32.RegistryKey
If CheckBox1.Checked = True Then
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue(Application.ProductName, Application.ExecutablePath)
regKey.Close()
Else
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.DeleteValue(Application.ProductName, False)
regKey.Close()
End If
Catch ex As Exception
End Tryيتم وضعه بالفورم لودْ حسب مشروعك ..
فقط قم بإضافة عنصر تشيك بوكس و أشّر عليه أثناء التّصميم ليكون التّشغيل مع بداية تشغيل الوينداوز مفعّلا على طول
تحياتي
30-01-18, 11:33 PM
شكراً لك 

24-04-18, 05:30 PM
مششكككووورررر ككثثييرراا