Dim ts,ws
set ws=createobject("wscript.shell")
ts=MsgBox("下班时间已到,"&vbcrlf&vbcrlf&"5秒 后将自动关机......",vbinformation+vbokcancel+vbdefaultbutton1,"提示")
if ts=vbok then
ws.run "taskkill /f /im delay.vbs",0 处理循环,郁闷阿~!
rem ws.run "shutdown.exe -s -f -t 0 "测试,可不能随便关机~!
end if
if ts=vbcancel then
ws.run "taskkill /f /im delay.vbs",0
end if作者: slore 时间: 2009-3-2 04:55 taskkill /f /im delay.vbs?