QQ刷屏VBS小代码

-----------------------------代码-------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("安徽末世网络科技有限公司")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

wsh.AppActivate("安徽末世网络科技有限公司")  //这个是Q群的名字

for i=1 to 10 //10循环刷屏次数

wsh.sendKeys i    //这个是可以删掉   就不显示刷屏次数

使用说明：

    新建一个新文本文档，把代码复制进去，修改文件扩展名为.vbs

   打开Q聊天窗口

    再输入的地方输入你想输入的文字   Ctrl+c 复制  

    双击VPS文件

    输入窗口要有光标闪烁  没有，鼠标点下