编写原因：QQ超快回复的脚本，因为QQ上老是有人对我发垃圾信息，我想教训教训他，可是小第学艺不精，不会做，还请帮忙，回复内容自定只要能起到整它的目的就行。

QQ消息自动发送器

功能：自动将你设置的消息按照规定次数和规定时间自动发送给对方。

变量说明：
SayCount '发送信息条数变量
SayText(10) '发送内容数组变量，可根据需要调整大小，默认为10。
CountSend '发送次数变量
TimeSend '发送消息时间间隔变量

使用注意事项：使用本发送器需要在聊天模式下才能正常使用。
警告：本发送器的使用，有可能让人反感和厌恶，请慎重使用。
==================================================
VBS dim SayText(10)
Rem 警示
VBSCall Call MessageBox("请谨慎使用本发送器，造成的一切后果自负！")
Rem 脚本初始化
VBSCall SayCount=InputBox("需要重复发送几条不同的信息（10条以内）")
VBS n=CInt(SayCount)
IfExpression n<=0 or n>=10
VBSCall Call MessageBox("您的输入不符合要求，请重新输入")
Goto 脚本初始化
EndIf
While n>0
VBSCall SayText(n)=InputBox("请逐条输入信息内容")
VBS n=n-1
EndFor
VBSCall TimeSend=InputBox("请设置发送间隔时间（单位秒）")
VBSCall CountSend=InputBox("请设置消息发送次数")
VBSCall Call MessageBox("发送器初始化完毕！")
Delay 1000
Rem 开始自动发送消息
VBS C=CInt(CountSend)
While C>0
VBS S=CInt(SayCount)
While S>0
SayExpression SayText(S)
KeyDown 18 1
KeyPress 83 1
KeyUp 18 1
VBS T=CInt(TimeSend)
While T>0
Delay 1000
VBS T=T-1
EndFor
Delay 100
VBS S=S-1
EndFor
VBS C=C-1
Delay 100
EndFor
VBSCall Call MessageBox("发送器运行完毕！")