1.普通启动,直接调用写注册表方法
Private Sub Form_Load()
'定义一个对象
Dim a
'创建一个对象
Set a = CreateObject("wscript.shell")
'写入注册表启动项
a.regwrite "KEY_LOCAL_ MACHINE\SOFTWARE\Microsfot\Windows\CurrentVersion\Run" & App.EXEName , App.Path & "\" & App.EXEName & ".exe"
End Sub
这种方式,在第一次写入注册表的时候,360的注册表防护功能会发现,并提示,可能被阻止掉,所以采用第二种方式
2.设置定时器,没过一分钟就写一次
Private Sub Timer1_Timer()
Dim a
Set a = CreateObject ("wscript.shell")
a.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName , App.Path & "\" & App.EXEName & ".exe"
End Sub
这样就把程序写到运行注册表中了,每次启动机器的时候都会自动启动。。。