Question

VBS如何检测进程是否存在

VBS如何检测进程是否存在
比如说我要检测QQ.EXE是否在运行（每2秒检测一次 一直循环）
一但检测到QQ.exe退出 就创建一个TXT文件（c:\1.txt）
然后脚本自己退出

Answer 1

set f=createobject("scripting.filesystemobject")
do
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("QQ.exe") then

p.terminate
set fw=f.createtextfile("咐孙您的结束进程结果.txt",2)
fw.close
wscript.sleep 2000
set ff=f.opentextfile("您的结束进程结果.txt",8,true)
ff.writeline now & " " & "结束QQ进程.exe"
ff.close
end if

next
wscript.sleep 2000
loop

如果退出脚本的衡腊话 在LOOP 上面一行加上 WScript.quit
其实这个脚本一直都是隐藏运行 之后所写入结束QQ的时间都是追加进文本的
不需要退出也衡拦链可以 不是很占资源 wscript.sleep 2000 1000为1秒 自己改吧