منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد مثال
لبرنامج يفتح مع بداية الوندز
و لا يمكن تشغيل نسخه اخرى للبرنامج

لإضافة البرنامج مع بدء تشغيل الويندوز ولكي يظهر في نافذة msconfig

استخدم هذه الاوامر

للإضاافة

PHP كود :

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
    End Sub 

للإزالة

PHP كود :

Private Sub RemoveCurrentKey(ByVal name As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.DeleteValue(name, False)
    End Sub 

قم باضافة برنامجك مثلاً

PHP كود :

Dim appPath As String = Application.ExecutablePath
            AddCurrentKey("Hello world", appPath) 

أو ازله

PHP كود :

RemoveCurrentKey("Hello world") 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alswade

HASAN6.0