很多时候我们都需要定时关机,但是每次都打开命令行输入定时关机的命令是不是很不爽……下面给大家分享一个vbscript写的定时关机代码,在windows可以直接运行,代码如下:
Dim mytime,myout1,myout2
mytime=null
mytime=InputBox(“请输入定时时间(格式20:10:05且不支持win8)”&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=False Then
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
End If
[/code]
将上述代码复制到新建的txt中,并更改后缀为vbs。打开看看效果吧!