一段阻止電腦鎖屏的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