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

 

posted @ 2013-05-04 04:02  jieyuefeng  阅读(857)  评论(0)  编辑  收藏  举报