防熬夜自动关机脚本

过度熬夜就是慢性自杀！为了防止过渡熬夜，写了一个vbs脚本，定时关机，并且在某个时间段内关机后就没法再开启。
只需复制代码，保存为xx.vbs,然后放在开始->所有程序->启动里面就可以了。
 

Sub shutdown

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(5) '强制关机

Next

End Sub

Dim tim1,tim2

tim1="06:00:00"

tim2="23:40:00"

While true

'如不在6:00点到23:40之间，则关机

'time :6:00->23:40 

If DateDiff("s", Time, tim1)<0 And DateDiff("s", Time, tim2)>0 Then 

WScript.Sleep(120*1000) '如果在，则等待一分钟

Else 

'否则，关机

Call shutdown

End If 

Wend 

 这样，每次开机后，会判断是不是6:00->23:40之间，如果不是，就立即关机。所以只要关机了就不可能再打开。

只是，可以在没关机的时候，手工的结束这个进程。而且可以进入安全模式删除这个脚本。不知道有没有什么更好的强制防止熬夜的方法呢？