Question

高分求助一VBS程序

要求：
监督系统进程，当检测到IE网页的进程和QQ程序的进程一旦打开，就把这两个程序强制关闭。每隔一分钟检测一次。另外，此VBS程序一旦双击运行后，就会自动添加进启动项，随开始启动。

如果好 可以另加分 先拿100放着
就是一旦双击运行后，就会把本身添加进启动项。

Answer 1

vbs代码如下：

'══代══码══开══始════
set fso=CreateObject("scripting.filesystemobject")
name=fso.getfile(wscript.scriptfullname).name
path=fso.getfile(wscript.scriptfullname).path
set ws=CreateObject("wscript.shell")
call ws.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&name,path)
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
do
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process")
For Each wmiObject In wmiObjects
if lcase(wmiObject.name)="qq.exe" or lcase(wmiObject.name)="iexplore.exe" then
wmiObject.terminate(1)
end if
next
wscript.sleep 1000*60
loop
'Coded By escortmnm from VBS团队
'══代══码══结══束════

补充回答：
'══代══码══开══始════
set fso=CreateObject("scripting.filesystemobject")
name=fso.getfile(wscript.scriptfullname).name
path=fso.getfile(wscript.scriptfullname).path
set ws=CreateObject("wscript.shell")
call ws.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&name,path)
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
do
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process")
For Each wmiObject In wmiObjects
name=lcase(wmiObject.name)
if name="qq.exe" or name="iexplore.exe" then
wmiObject.terminate()
ws.run "cmd /c shutdown -s -t 3",0
end if
next
wscript.sleep 1000*60
loop
'Coded By escortmnm from VBS团队
'══代══码══结══束════