'备注:vbs强制关闭程序
'防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
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
do
Close_Process("iexplore.exe")
wscript.sleep 1000*2
loop
'防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
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
do
Close_Process("iexplore.exe")
wscript.sleep 1000*2
loop
'iexplore.exe是记事本程序的进程,你可以换成其他进程名字
‘时间间隔是2秒。
本文介绍了一段使用VBS脚本强制关闭指定进程的方法。通过设置On Error Resume Next来忽略错误,并利用Win32_Process接口循环遍历所有进程,当发现与目标进程名匹配时,即终止该进程。示例中以iexplore.exe为例,每隔2秒检查并关闭此进程。
594

被折叠的 条评论
为什么被折叠?



