منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] مثال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [مثال] مثال (/showthread.php?tid=13901)

مثال - alswade - 22-11-15

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

RE: مثال - HASAN6.0 - 22-11-15

لإضافة البرنامج مع بدء تشغيل الويندوز ولكي يظهر في نافذة 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") 
Rolleyes