新建文本文档，打开，

复制以下代码：

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的输入框就可以自动刷屏了。