每分钟按一下esc，防止息屏
runShell.vbs
Set objShell = CreateObject("Wscript.Shell)
objShell.popup "Unlock screen program starts to run.", 2, "Succeess"
do
Wscript.Sleep 60000
objShell.Sendkeys"{Esc}"
loop
关闭程序 killShell.bat
@echo off
TASKKIL /F /IM wscipt.exe /T
