vbs刷屏代码

使用sendkeys函数发送按键信息或内容 如下面代码 间隔3秒发送一次内容

Set objShell = CreateObject("Wscript.Shell")

do

WScript.Sleep 3000

objShell.SendKeys "1"

WScript.Sleep 3000

objShell.SendKeys "2"

loop