1、Option ExplicitConst REG_SZ As Long = 1Const 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 LongConst 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 my髫潋啜缅exe 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 IfEnd Sub
5、Private Sub Command3_Click() EndEnd Sub