用VB设置开机自动启动应用程序

1、Option Explicit

 

Const REG_SZ As Long = 1

 

Const HKEY_LOCAL_MACHINE = &H80000002

 

'创建注册表项

 

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _

 

"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _

 

phkResult As Long) As Long

 

'设置注册表项中的值

 

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _

 

"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _

 

ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _

 

ByVal cbData As Long) As Long

 

'打开注册表中的项

 

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _

 

"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _

 

ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

 

'获取子项

 

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _

 

"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _

 

ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

 

Const REG_DWORD = 4

2、Private Sub Form_Load()

'为text1设置默认路径程序

 

Text1.Text = "C:\Program Files\****\****.exe"'请修改自动启动程序的路径。

 

End Sub

3、Private Sub Command1_Click()

'设置开机启动

 

Dim hKey As Long

 

Dim myexe As String

 

Dim myint As Integer

 

myint = Len(Text1.Text) - InStrRev(Text1.Text, "\")'取得应用程序文件名字符串的字节数，含扩展名

 

myexe = Right(Text1.Text, myint)'取得应用程序文件名字符串，含扩展名

 

If Text1.Text <> "" Then

 

RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey

 

'"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"是注册表中的路径

 

RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Text1.Text, 255

 

'myexe是上面注册表路径中添加的项，Text1.Text是该项的数据。

 

End If

 

MsgBox "设置完成,请您重新启动计算机!" & vbCrLf & vbCrLf & "你设置的程序将开机自动执行！", 64, "提示信息"

 

End Sub

4、Private Sub Command2_Click()

'查找自动启动的程序

 

DHK1.DialogTitle = "选择程序"'注意打开对话框的名称是DHK1

 

DHK1.Filter = "应用程序(*.exe)|*.exe"

 

DHK1.ShowOpen

 

If Len(DHK1.FileName) Then

 

Text1.Text = DHK1.FileName

 

End If

 

End Sub

5、Private Sub Command3_Click()

End

 

End Sub