[YousefOkasha]

اريد كود او الطريقة التي تشغل البرنامج اوتوماتيك عند تشغيل الجهاز

[mohamed haroon]

كود :

Dim applicationName As String = Application.ProductName
      Dim applicationPath As String = Application.ExecutablePath
Dim regKey As Microsoft.Win32.RegistryKey
          regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
          regKey.SetValue(applicationName, """" & applicationPath & """")
          regKey.Close()

[elgokr]

كما اضاف الاخ mohamed haroon

ويمكن استخدام الكود نفسه على سطر واحد بهذا الشكل

كود اضافة البرنامج فى الريجستري

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)

كود حذف البرنامج فى الريجستري

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)

تحياتى لك

وتمنياتى لك التوفيق

[YousefOkasha]

شكرا لكم جميعا

[elgokr]

الشكر لله

تحياتى لك

وتمنياتى لك التوفيق

[dametucorazon]

مميز جدا شكرا لكم

[elgokr]

(16-06-18, 02:55 PM)dametucorazon كتب : مميز جدا شكرا لكم

الشكر لله

وتحياتى لك