Private Sub Command1_Click()
Dim w
Set w = CreateObject("wscript.shell")w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\form1.exe", App.EXEName & App.Path & "\" & App.EXEName
Shell "C:\WINDOWS\system32\form1.exe", vbMaximizedFocus
End Sub
思路告诉你,自己写代码吧,因为我没安装VB
你在最开始载入那段中写代码,代码作用为向注册表开机自动运行的启动项写入键值(如果你不会用VB向注册表写入,百度一搜,就会出来)
这就可以了。
就看主动防御软件监视注册表的位置 哈哈
网上好多的啊