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配对的'
'使用方法就是先写你想的话，然后对其复制，然后双击vbs文件'
next 
wscript.quit