在窗体中加入一个CheckBox控件,加入以下代码:
Option Explicit
Private Sub Form_Load()
Check1.Caption = “开机启动本程序”
Check1.Value = WinViler
End Sub
Private Sub Check1_Click()
Dim My
Set My = CreateObject(“WScript.Shell”)
If Check1.Value > 0 Then '将程序写入注册表的启动项中
My.regWrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” & App.EXEName, App.Path & “” & App.EXEName & “.exe”, “REG_SZ”
Else
If WinViler > 0 Then '如果程序存在注册表则删除
My.regdelete “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” & App.EXEName
End If
End If
End Sub
'读取
Private Function WinViler() As Long
Dim My As Object
Set My = CreateObject(“WScript.Shell”)
On Error GoTo N
My.regread “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” & App.EXEName
WinViler = 1
Exit Function
N: WinViler = 0
End Function