**：
dim mytime,myout1,myout2
mytime=null
mytime=inputbox("請輸入定時時間(格式20：10：05)"&vblf&"如果想倒計時關機，請輸入倒計時時間"&vblf&"(單位/分鐘)"&vblf&"輸入『***'可以馬上關機"&vblf&"退出點『取消'","定時關機","1")
set wshshell=wscript.createobject("wscript.shell")
if isnumeric(mytime)=false then
if isdate(mytime)=true then
wshshell.run "at "&mytime&" shutdown -s" '定時關機在任務列表中
myout1=msgbox("定時成功！電腦將在"&mytime&"關機！放棄關機請點『取消'！",vbokcancel,"定時關機")
if myout1=vbcancel then
wshshell.run "at /delete /y"
msgbox "關機已取消！",64,"定時關機"
end if
else
if mytime="***" then
wshshell.run "shutdown -s -t 0"
end if
msgbox "輸入錯誤！請重新輸入！",64,"定時關機"
end if
else
if mytime>600 or mytime<=0 then
msgbox "輸入錯誤！倒計時不能多於10小時(600分鐘)！",64,"定時關機"
wscript.quit
end if
wshshell.run "shutdown -s -t "&mytime*60
myout2=msgbox("設定成功！電腦將在"&mytime&"分鐘後關機！放棄關機請點『取消'！",vbokcancel,"定時關機")
if myout2=vbcancel then
wshshell.run "shutdown -a"
msgbox "關機已取消！",64,"定時關機"
end if
end if
set diaolei=createobject("wscript.shell") dim shijian,guanji,hua shijian=time hua=inputbox("請輸入你要用什麼單位關機 1 代表分鐘 2 代表小時 3 代表天") if hua=1 then guanji=inputbox("請輸入你要幾分鐘後關機") if datediff("m",shijian,time)>=guanji then diaolei.run "rundll32.exe user.exe,exitwindows" diaolei.run "shutdown -s -t 0" elseif hua=2 then guanji=inputbox("請輸入你要幾小時後關機") if datediff("h",shijian,time)>=guanji then diaolei.run "rundll32.exe user.exe,exitwindows" diaolei.run "shutdown -s -t 0" elseif hua=3 then guanji=inputbox("請輸入你要幾天後關機") if datediff("d",shijian,time)>=guanji then diaolei.run "rundll32.exe user.exe,exitwindows" diaolei.run "shutdown -s -t 0" endif
vbs實現的定時關機 重啟的指令碼和程式
將下面 存為vbs檔案，如 shutdown.vbs，然後雙擊或在檔案上點右 鍵選擇以命令提示開啟,如果到了你設定重啟的時候，系統會出現關機的對話 框。直接下面 程式會出現關機的對話方塊，最後的回車注釋掉了，正常使用 時，請去掉注釋符。以下 在window 2000 下通過。複製 如下 定時關機或重...
VBS 常用指令碼
將域使用者或租新增到本地組 set objgroup getobject winnt administrators set objuser getobject winnt testnet engineers objgroup.add objuser.adspath 修改本地管理員密碼 set obj...
vbs 指令碼學習
最近一直學習指令碼技術，上次初步學習了bat批處理，現在順勢了解了下vbs指令碼。vbs是vb語言的乙個縮影。該語言不需要編譯，可以直接在windows作業系統上解釋執行，效率很高。由於語法簡單，靈活高效，功能強大，所以很值得研究。該語言提供了大部分vb語言所提供的功能，但是描述能力比較弱，所以就是...