學習啦 > 學習電腦 > 電腦故障 > 電腦故障現(xiàn)象 > 自動關機 >

可以定時自動關機的vbs腳本

時間: 加城1195 分享

  我們都知道設置定時關機方法有多種,包括系統(tǒng)命令,借助軟件,bat腳本等等,此外還可以利用vbs腳本命令實現(xiàn),可能比較復雜,但還是挺有趣的,下面一起看看完整代碼!

  vbs腳本代碼

  Dim mytime,myout1,myout2

  mytime=null

  mytime=InputBox("請輸入定時時間(格式20:10:05)"&vblf&"如果想倒計時關機,請輸入倒計時時間"&vblf&"(單位/分鐘)"&vblf&"輸入‘xxx'可以馬上關機"&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="xxx" 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

  補充:電腦關機的常用方法

  第一種方式:通過點擊電腦的開始菜單并選擇關機

  第二種方法:通過快捷命令alt+F4組合鍵進行關機,在彈出窗口中選擇關機并確定

  第三種方法:通過ctrl+alt+delete組合鍵打開任務管理器

  通過選擇用戶選項點擊活動的賬戶,并選擇斷開或者注銷

  第四種方法:通過電腦運行(快捷命令為ctrl+R)輸入cmd進入到管理員界面,通過輸入shuntdown /p進行關機

  第五種方法:直接按住電腦開機鍵數秒,直到電腦主機停止運行為止,此方法為不得已才會使用,或者直接切斷電源。

  相關閱讀:為什么電腦總是自動關機

  這種情況,一般由于以下原因造成的:

  1.電腦系統(tǒng)中毒或中了惡意軟件。

  2.cpu 風扇壞導致cpu溫度過高,過熱保護。

  3.電源壞,或添加了新硬件,電源供電不足。

  4.顯卡或顯卡風扇壞。

  5.主板壞,主板芯過熱。


定時自動關機相關文章:

1.電腦Win10設置定時自動關機的兩種方法

2.怎么設置時間讓電腦自動關機

3.WIN10怎么設置定時自動關機

4.電腦怎么樣使用360設置定時自動關機

5.如何用cmd代碼設置強制自動關機

4021320