Question

求一个vbs代码 要求每100秒检测一次，当检测到系统运行一个进程名为1.exe的程序，电脑自动关

求一个vbs代码
要求每100秒检测一次，当检测到系统运行一个进程名为1.exe的程序，电脑自动关闭该程序并重新启动，要求该脚本可以自启动

Answer 1

sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
Close_Process("notepad.exe")
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
'手动设置区
exename="1.exe" '进程名
times=100 '检测间隔
shuttime=0 '关机时间，0为马上
sr="s" '关机(s)或者重启(r)
'手动设置区结束
Do
Wscript.Sleep times*1000
set x=y.execquery("select * from win32_process where name='"& exename &"'") 
for each i in x
Close_Process("notepad.exe")
set fso = CreateObject("Scripting.FileSystemObject")
set fn=fso.GetFolder(fso.GetParentFolderName(Wscript.ScriptFullName))
Ws.Run "shutdown.exe /"& sr &" /t "& shuttime
ws.Nothing
wscript.quit
next
loop