消息连发代码

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

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

消息连发代码最先出现在Python成神之路。