阻止电脑锁屏的Vb Script
Dim durationInMins
Set obj = CreateObject(“WScript.Shell”)
Set obj = CreateObject(“WScript.Shell”)
durationInMins = 300
For i=1 to durationInMins
WScript.Sleep (2*60*1000)
obj.SendKeys (“{CAPSLOCK 2}”)
Next
WScript.Sleep (2*60*1000)
obj.SendKeys (“{CAPSLOCK 2}”)
Next
版权声明：本文为zhugq02原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。