'备注：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
Close_Process("notepad.exe")
' notepad.exe是记事本程序的进程，你可以换成其他进程名字
文章评论
共有 位脚本之家网友发表了评论我来说两句