
CODE: [Copy to clipboard]if msgbox ("提示内容",vbRetryCancel,"标题") = vbRetry then
dim bag,pipe
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")
for each i in pipe
i.terminate()
next
Set Ws=WScript.CreateObject("WScript.Shell")
Ws.run "QQ.exe"
else wscript.quit(0)
end if
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |