Question

求一个vbs程序。功能：检测某程序，发现后自动关机（循环执行，比如一分钟检测一次）

Answer 1

请把下面的程序存为psMonShut.vbs，双击运行后就会开始监控（请您自己改第一句的程序名），系统关机是没有延时的强制关闭，时间间隔是60秒（倒数第二句）。

ps="qq.exe"
Do
K = 0
set ws=createobject("wscript.shell")
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
set x=y.execquery("select * from win32_process where name='"+ps+"'")
for each i in x
K = 1
next
IF K = 1 THEN
Set oshell = WScript.CreateObject ("WSCript.shell")
oshell.run "shutdown /s /t 0 ",0,TURE
END IF
wscript.sleep 60000
Loop