简单的防止Windows自动锁屏的VBS脚本

文件后缀名从txt更改为vbs，双击可直接运行

原理是通过脚本每隔一段时间自动按2下CAPSLOCK键

脚本如下：

Set objShell = CreateObject("Wscript.Shell")
'约循环8小时，10分钟执行一次
for i=1 to 50
WScript.Sleep 590000
objShell.SendKeys "{CAPSLOCK}"
'WScript.Sleep 3000
objShell.SendKeys "{CAPSLOCK}"
next

另附上 结束所有VBS进程的脚本

Set objShell = CreateObject("Wscript.Shell")
objShell.run "taskkill /im wscript.exe /f",0 ,true