zqz0012005

改进了一下2楼的代码

set ws = CreateObject("WScript.Shell")
target="qq.exe"
set wmi=GetoOject("Winmgmts:")
do
flag=false
set proc=wmi.ExecQuery("select * from win32_process")
for each info in proc
    if LCase(info.name)=LCase(target) then flag=true : exit for
next
if flag=false then ws.run """E:\Program Files\Tencent\QQ\qq.exe"""
wscript.sleep 1000
loop
复制代码