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
原文链接:https://www.f2er.com/vb/260747.html