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配對的' '

>>阅读原文<<