可以定時自動關(guān)機的vbs腳本
我們都知道設(shè)置定時關(guān)機方法有多種，包括系統(tǒng)命令，借助軟件，bat腳本等等，此外還可以利用vbs腳本命令實現(xiàn)，可能比較復(fù)雜，但還是挺有趣的，下面一起看看完整代碼!
vbs腳本代碼
Dim mytime,myout1,myout2
mytime=null
mytime=InputBox("請輸入定時時間(格式20：10：05)"&vblf&"如果想倒計時關(guān)機，請輸入倒計時時間"&vblf&"(單位/分鐘)"&vblf&"輸入‘xxx'可以馬上關(guān)機"&vblf&"退出點‘取消'","定時關(guān)機","1")
Set wshshell=wscript.createobject("wscript.shell")
If IsNumeric(mytime)=False Then
If IsDate(mytime)=True Then
wshshell.run "at "&mytime&" shutdown -s" '定時關(guān)機在任務(wù)列表中
myout1=MsgBox("定時成功!電腦將在"&mytime&"關(guān)機!放棄關(guān)機請點‘取消'!",vbokcancel,"定時關(guān)機")
If myout1=vbcancel Then
wshshell.run "at /delete /y"
MsgBox "關(guān)機已取消!",64,"定時關(guān)機"
End If
Else
If mytime="xxx" Then
wshshell.run "shutdown -s -t 0"
End If
MsgBox "輸入錯誤!請重新輸入!",64,"定時關(guān)機"
End If
Else
If mytime>600 Or mytime<=0 Then
MsgBox "輸入錯誤!倒計時不能多于10小時(600分鐘)!",64,"定時關(guān)機"
wscript.quit
End If
wshshell.run "shutdown -s -t "&mytime*60
myout2=MsgBox("設(shè)置成功!電腦將在"&mytime&"分鐘后關(guān)機!放棄關(guān)機請點‘取消'!",vbokcancel,"定時關(guān)機")
If myout2=vbcancel Then
wshshell.run "shutdown -a"
MsgBox "關(guān)機已取消!",64,"定時關(guān)機"
End If
End If
補充：電腦關(guān)機的常用方法
第一種方式：通過點擊電腦的開始菜單并選擇關(guān)機
第二種方法：通過快捷命令alt+F4組合鍵進行關(guān)機，在彈出窗口中選擇關(guān)機并確定
第三種方法：通過ctrl+alt+delete組合鍵打開任務(wù)管理器
通過選擇用戶選項點擊活動的賬戶，并選擇斷開或者注銷
第四種方法：通過電腦運行(快捷命令為ctrl+R)輸入cmd進入到管理員界面，通過輸入shuntdown /p進行關(guān)機
第五種方法：直接按住電腦開機鍵數(shù)秒，直到電腦主機停止運行為止，此方法為不得已才會使用，或者直接切斷電源。
相關(guān)閱讀：為什么電腦總是自動關(guān)機
這種情況，一般由于以下原因造成的:
1.電腦系統(tǒng)中毒或中了惡意軟件。
2.cpu 風(fēng)扇壞導(dǎo)致cpu溫度過高，過熱保護。
3.電源壞，或添加了新硬件，電源供電不足。
4.顯卡或顯卡風(fēng)扇壞。
5.主板壞，主板芯過熱。
定時自動關(guān)機相關(guān)文章：
1.電腦Win10設(shè)置定時自動關(guān)機的兩種方法