一段阻止电脑锁屏的Vb Script
创建一个文件，拷贝下面文本，保存文件为~.vbs，双击运行即可。
Dim durationInMins
Set obj = CreateObject("WScript.Shell")
durationInMins = 300
For i=1 to durationInMins
WScript.Sleep (2*60*1000)
obj.SendKeys ("{CAPSLOCK 2}")
Next创建一个文件，拷贝下面文本，保存文件为~.vbs，双击运行即可。
Dim durationInMins
Set obj = CreateObject("WScript.Shell")
durationInMins = 300
For i=1 to durationInMins
WScript.Sleep (2*60*1000)
obj.SendKeys ("{CAPSLOCK 2}")
Next