其实就是把运用程序的启动项(*.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---------------------------------------------------