阻止电脑锁屏的Vb Script

Dim durationInMins

Set obj = CreateObject("WScript.Shell")

durationInMins = 300

For i=1 to durationInMins

WScript.Sleep (2*60*1000)

obj.SendKeys ("{CAPSLOCK 2}")

Next