on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 2010 -c ""定時關機···"" ",0 ,true
dim a
do while(a <> "NO")
a = inputbox ("取消關機請輸入 ""NO"" ","請輸入命令","NO",2700,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "執行命令"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "取消關機命令成功！ "
把上面的代碼復制粘貼到文本文檔裏，保存，把“新建 文本文檔.txt”改成“定時關機.bat”
代碼第4行有數字“2010”（就是-s -t 2010 -c 的2010）是秒即2010秒合33分30秒，想要多久關機自己改就行