QQ刷屏VBS——（娱乐使用）

新建文本文档，打开，

复制以下代码：

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 10
wscript.sleep 700
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys i
xda.sendKeys "%s"
next
wscript.quit

保存，更改后缀名为vbs，复制你要刷屏的内容，打开QQ对话框，双击打开写好的vbs，最后点击QQ的输入框就可以自动刷屏了。

注：10代表发送10次，700代表每次发送的时间间隔为700毫秒，可以根据需要自己修改数值，娱乐就好，千万不要设置短间隔发送几十几百次刷屏（电脑有可能会卡住，还有可能会被拉黑！！！）