转载：https://blog.csdn.net/zhusongziye/article/details/79704082
一个很简单的VBA脚本，可以防止Windows自动锁屏。
主要是利用了一个不常用的键 NUMLOCK。
' 先定义一个Shell对象
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 5000
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 500
wshShell.SendKeys "{NUMLOCK}"
'设置成正需要接续的时间
for i=1 to 180
'设置成比屏保时间短点就可以
WScript.Sleep 180000
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 1
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 500
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 1
wshShell.SendKeys "{NUMLOCK}"
next
网友评论