'備注：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是記事本程序的進程，你可以換成其他進程名字
