关于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---------------------------------------------------