Question

vbs啊 高手 麻烦下 帮我这个定时关机加个可以取消按钮 不然开了停不了

set wso=wscript.createobject("Wscript.Shell")

b=Chr(32)

t=inputbox("输入预定关机时间，以分为单位；如值为空，则为取消自动关机")

if t="" then

wso.run("shutdown "&b&" -a")

else

t=t*60

end if

wso.run("shutdown "&b&" -s "&b&" -t "&b&" "&t&"")

Answer 1

set wso=wscript.createobject("Wscript.Shell")
t=inputbox("输入预定关机时间，以分为单位；如值为空，则为取消自动关机")
if t="" then
wso.run "shutdown -a"
else
t=t*60
wso.run "shutdown -s -t " & t
end if

追问

怎么停啊？

Answer 2

set wso=wscript.createobject("Wscript.Shell")

b=Chr(32)

t=inputbox("输入预定关机时间，以分为单位；如值为空，则为取消自动关机")

if t="" then

wso.run("shutdown "&b&" -a")

else

t=t*60

end if

wso.run("shutdown "&b&" -s "&b&" -t "&b&" "&t&"")
msgbox ("若需停止关机请将本对话框关闭即可")
wso.run("shutdown -a")