消息连发代码

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

参数说明：

     for i =1 to 200 代表消息发送条数

     wscript.sleep  520 代表间隔520毫秒发送一次

使用方法：

1. 先把这些代码放到记事本中，将记事本后缀改为vbs。
2. 复制（ctrl+c）要连发的内容。
3. 双击刚刚编辑好的vbs文件。
4. 点击消息编辑框实现消息连发。