一个很简单的VBA脚本,可以防止Windows自动锁屏。
主要是利用了一个不常用的键 NUMLOCK。
' 先定义一个Shell对象Set WshShell = WScript.CreateObject("WScript.Shell")WScript.Sleep 5000wshShell.SendKeys "{NUMLOCK}"WScript.Sleep 500wshShell.SendKeys "{NUMLOCK}"'设置成正需要接续的时间for i=1 to 180'设置成比屏保时间短点就可以WScript.Sleep 180000wshShell.SendKeys "{NUMLOCK}"WScript.Sleep 500wshShell.SendKeys "{NUMLOCK}"next
如果觉得《防止Windows自动锁屏的VBA脚本》对你有帮助,请点赞、收藏,并留下你的观点哦!