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毫秒发送一次
使用方法:
- 先把这些代码放到记事本中,将记事本后缀改为vbs。
- 复制(ctrl+c)要连发的内容。
- 双击刚刚编辑好的vbs文件。
- 点击消息编辑框实现消息连发。