vbs脚本防止进入屏保

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500

While True
WshShell.AppActivate "无标题 - 记事本"
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 60000
Wend


'taskkill /f /im wscript.exe /t