实用的关机

On Error Resume Next

Dim sRunTime, aTime, iHour, iMinute, Wshshell, Now_time, closetime
CloseTime = 60

Now_time = time()
Set Wshshell = CreateObject("WScript.Shell")
sRunTime = InputBox("小杨之作，可以选择“关机时刻”或者“延迟关机时间”：" & vblf & vblf & "时间：" & Now_time & " (小时0-23，分秒00-59)"& vblf & "延时：正整数（单位分钟）" & vblf & vblf & "退出请单击“取消”。", "定时关机", Now_time)

If sRunTime = "" Then
Wshshell.Popup "定时关机没有启用，本程序即将关闭！", 2 , "定时关机"
WScript.Sleep 3000
Wscript.Quit
End If

If IsDate(sRunTime) = True Then
getstr1 = MsgBox("设置成功！系统将在 " & sRunTime & " 关机！放弃请单击“取消”！", 1 + 48, "定时关机")
If getstr1 = vbcancel Then 
Wshshell.Popup "定时关机已经放弃，本程序即将关闭！", 5 , "定时关机",0 + 16
Wscript.Quit 
End If

 

aTime = Split(sRunTime, ":")
iHour = CInt(aTime(0))
iMinute = CInt(aTime(1))
iSecond = CInt(aTime(2))

Do While True
Wscript.Sleep 500
If (Hour(Now) = iHour) And (Minute(Now) = iMinute) And (Second(Now) = iSecond) Then

For i = CloseTime To 1 Step - 5

yesorno = WshShell.Popup ("指定的关机时间 " & sRunTime & " 到了！" & i &" 秒后系统将关闭，取消定时关机请点击“否”！", 5 , "定时关机", 4 + 32 )

select case yesorno

case 7
Wscript.Quit
case 6
WshShell.run "shutdown /s /t 0",0,false
Wscript.Quit
end select
Wscript.Sleep 1000
Next
WshShell.run "shutdown /s /t 0",0,false
Wscript.Quit
end if

Loop

Else Do
getstr2 = MsgBox("设置成功！系统将在 " & sRunTime & " 分钟后关机！放弃请单击“取消”！", 1 + 48, "定时关机")
If getstr2 = vbcancel Then 
Wshshell.Popup "定时关机已经放弃，本程序即将关闭！", 3 , "定时关机" ,0 + 16
Wscript.Quit 
End If

WScript.Sleep(1000 * 60 * sRunTime)

For i = CloseTime To 1 Step - 5

yesorno = WshShell.Popup (sRunTime & "分钟倒计时时间到了！" & i &" 秒后系统将关闭，取消定时关机请点击“否”！", 5 , "定时关机", 4 + 32 )

select case yesorno

case 7
Wscript.Quit
case 6
WshShell.run "shutdown /s /t 0",0,false
Wscript.Quit
end select
Wscript.Sleep 1000
Next
WshShell.run "shutdown /s /t 0",0,false
Wscript.Quit

Loop
End If

最后将上面的代码保存为.vbs或者.vbe格式的文件便可以直接双击运行