可以定时自动关机的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.主板坏，主板芯过热。
定时自动关机相关文章：