VBS：QQ刷屏

On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 20 wscript.sleep 7 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" 'next是与for配对的' '

>>阅读原文<<