'备注：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")
'vbs代码结束----------------------------------------------
