关于VB.net 开机启动程序功能

其实就是把运用程序的启动项（*.exe）写入到注册表里面。

具体的步骤就是在页面上拖放一个CheckBox 控件，然后在CheckedChanged的事件中写入一下代码

---------------------------------------coding---------------------------------------------------

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

            Reg.SetValue("SCMS.exe", Application.StartupPath & "\SCMS.exe")         '写入注册表，其中SCMS.exe，就是你需要启动的exe文件

            Reg.Close()

            CheckBox1.Text = "取消开机运行"

            WritePrivateProfileString("MyQQ", "Start", "0", "c:\windows\Servers.ini")

        Else

              Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

            Reg.DeleteValue("SCMS.exe") '删除注册表键

            Reg.Close()

            WritePrivateProfileString("MyQQ", "Start", "1", "c:\windows\Servers.ini")

            CheckBox1.Text = "启动开机运行"

        End If

    End Sub

---------------------------------------coding---------------------------------------------------