防止Windows自动锁屏的VBA脚本

最新推荐文章于 2025-10-17 07:48:14 发布

原创最新推荐文章于 2025-10-17 07:48:14 发布 · 1.2w 阅读

12 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #防屏保 #域用户

VBA 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一个简单的VBA脚本，通过周期性触发NUMLOCK键来防止Windows系统自动启动屏幕保护程序。该脚本适用于那些需要长时间保持显示器处于活动状态的场合。

部署运行你感兴趣的模型镜像

一个很简单的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 500
	wshShell.SendKeys "{NUMLOCK}"
next

您可能感兴趣的与本文相关的镜像