كود لإضافة برنامجك إلى قائمة بدأ التشغيل [VB.NET]

مرحبا بكم متابعي مدونة محترفي التكنولوجيا في هذه التدوينة الجديدة والتي سأقدم فيها لكم كود يمكنك من أن تجعل برامجك تعمل عند بداية تشغيل الويندوز بلغة الفيجوال بيسك دوت نت.

أولا ستحتاج إلى إضافة زر وظيفته إضافة البرنامج إلى قائمة بدء التشغيل وزر آخر لإزالته من قائمة بدأ التشغيل.

لذلك سنقوم بإضافة اثنان Button يمكنك أيضا استخدام checkBox بدلا من أزرار الأوامر.

الآن بعد أن قمنا بإضافة أزرار الأوامر قم بالنقر مرتين على Button1 لفتح نافذة الأكواد وقم بإضافة الكود التالي:

Dim startwhenwindowsstarts As Microsoft.Win32.RegistryKey
startwhenwindowsstarts = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
startwhenwindowsstarts.SetValue("application name", Application.ExecutablePath)
startwhenwindowsstarts.Close()

الآن نأتي إلى إضافة كود إزالة البرنامج من بدء التشغيل، قم بالنقر مرتين على Button2 وقم بإضافة الكود التالي:

Dim removefromstartup As Microsoft.Win32.RegistryKey
removefromstartup = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
removefromstartup.DeleteValue("application name")
removefromstartup.Close()

ملاحظة: لا تنسى تغيير application name إلى اسم البرنامج الخاص بك في الكودين السابقين.