window阻止计算机熄屏休眠

在企业的电脑/笔记本中，几乎安装有监控软件。如果你在5分钟内不操作电脑回自动熄屏休眠（电脑-电源设置也没用），为了防止电脑自动熄屏休眠，可以编写一个vb脚本，每3分钟模拟NumLock按键来打破 5分钟内不操作电脑回自动熄屏休眠

桌面上创建一个文件：防锁屏.vbs，写入下面的内容，然后双击打开即可（没有界面）

Set vbObj = WScript.CreateObject("WScript.Shell")
WScript.Sleep 5000
vbObj.SendKeys "{NUMLOCK}"  ' 按下NumLock键（切换数字锁定状态）
WScript.Sleep 500           ' 等待500毫秒（0.5秒），确保按键被系统识别
vbObj.SendKeys "{NUMLOCK}"  ' 再次按下NumLock键（恢复原状态）

for i=1 to 180  ' 循环180次 * 3 分钟 = 9 小时
    WScript.Sleep 180000  ' 每次循环等待180000毫秒（3分钟）
    ' 重复模拟NumLock按键（同步骤3，切换后恢复状态）
    vbObj.SendKeys "{NUMLOCK}"
    WScript.Sleep 500
    vbObj.SendKeys "{NUMLOCK}"
next