منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار حول وضع البرنامج في بدء التشغيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7414)



استفسار حول وضع البرنامج في بدء التشغيل - 3amo - 16-12-12

السلام عليكم ورحمة الله وبركاته
طلب كود بدء تشغيل البرنامج مع النظام جزاكم الله خيرا:confused:


استفسار حول وضع البرنامج في بدء التشغيل - Sajad - 16-12-12

السلام عليكم

انظر هذا الرابطhttp://www.geekpedia.com/tutorial151_Run-the-application-at-Windows-startup.html


استفسار حول وضع البرنامج في بدء التشغيل - 3amo - 16-12-12

بارك الله فيك وجزاك الله خيرا
جاري تجربة الاكواد


استفسار حول وضع البرنامج في بدء التشغيل - 3amo - 17-12-12

السلام عليكم ورحمة الله وبركاته
مثالين لوضع البرنامج في بدء التشغيل
المثال الاول
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim KeyName As String = "test"
        Dim KeyValue As String = "C:\test.exe"
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        If regKey.GetValue(KeyName) = Nothing Then
            MsgBox("no value found")
            regKey.SetValue(KeyName, KeyValue, Microsoft.Win32.RegistryValueKind.String)
            MsgBox("key" & KeyName & "has been created")
        Else
            MsgBox("this programm already exists ", vbInformation, "Information")


        End If
    End Sub
End Class
المثال الثاني
كود :
Imports Microsoft.Win32
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("MyExecutable", "C:\MyExecutable.exe")
regKey.Close()
End Sub
End Class
بالتوفيق للجميع جزاكم الله خيرا