学习啦>学习电脑>电脑故障>电脑故障现象>自动关机>

可以定时自动关机的vbs脚本

加城分享

  我们都知道设置定时关机方法有多种,包括系统命令,借助软件,bat脚本等等,此外还可以利用vbs脚本命令实现,可能比较复杂,但还是挺有趣的,下面一起看看完整代码!

  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.电脑系统中毒或中了恶意软件。

  2.cpu 风扇坏导致cpu温度过高,过热保护。

  3.电源坏,或添加了新硬件,电源供电不足。

  4.显卡或显卡风扇坏。

  5.主板坏,主板芯过热。


定时自动关机相关文章:

1.电脑Win10设置定时自动关机的两种方法

2.怎么设置时间让电脑自动关机

3.WIN10怎么设置定时自动关机

4.电脑怎么样使用360设置定时自动关机

5.如何用cmd代码设置强制自动关机

    4021320