可以定時自動關(guān)機的vbs腳本
我們都知道設(shè)置定時關(guān)機方法有多種,包括系統(tǒng)命令,借助軟件,bat腳本等等,此外還可以利用vbs腳本命令實現(xiàn),可能比較復雜,但還是挺有趣的,下面一起看看完整代碼!
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)機在任務列表中
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組合鍵打開任務管理器
通過選擇用戶選項點擊活動的賬戶,并選擇斷開或者注銷
第四種方法:通過電腦運行(快捷命令為ctrl+R)輸入cmd進入到管理員界面,通過輸入shuntdown /p進行關(guān)機
第五種方法:直接按住電腦開機鍵數(shù)秒,直到電腦主機停止運行為止,此方法為不得已才會使用,或者直接切斷電源。
相關(guān)閱讀:為什么電腦總是自動關(guān)機
這種情況,一般由于以下原因造成的:
1.電腦系統(tǒng)中毒或中了惡意軟件。
2.cpu 風扇壞導致cpu溫度過高,過熱保護。
3.電源壞,或添加了新硬件,電源供電不足。
4.顯卡或顯卡風扇壞。
5.主板壞,主板芯過熱。
定時自動關(guān)機相關(guān)文章:
1.電腦Win10設(shè)置定時自動關(guān)機的兩種方法