轉(zhuǎn)載：https://blog.csdn.net/zhusongziye/article/details/79704082
一個(gè)很簡(jiǎn)單的VBA腳本红竭，可以防止Windows自動(dòng)鎖屏。
主要是利用了一個(gè)不常用的鍵 NUMLOCK喘落。
' 先定義一個(gè)Shell對(duì)象
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 5000
wshShell.SendKeys "{NUMLOCK}"
WScript.Sleep 500
wshShell.SendKeys "{NUMLOCK}"
'設(shè)置成正需要接續(xù)的時(shí)間
for i=1 to 180
'設(shè)置成比屏保時(shí)間短點(diǎn)就可以
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
