| 关键词: 进程 Process ProcessName Next notepad 程序 Resume Close Ucase Error |
'备注: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是记事本程序的进程,你可以换成其他进程名字 |
|
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|