'备注：用Vbs实现定时关机
On Error Resume Next '防止出现错误
Set p=Wscript.CreateObject("Wscript.shell")
dim a,b
a=1
b=inputbox("请输入时间:格式为:XX:XX:XX 例:17:48:30 为17点48分30秒","定时关机")
while a=1
if CStr(b)=CStr(time()) then
p.run "cmd /c shutdown /s /t 0",0
else
wscript.sleep 500
end if
wend