防止Windows自動鎖屏的VBA腳本

一個很簡單的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