快速连续发送消息

不务正业的我今天偶然看到这个，先记下来，万一以后用得着呢

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 10
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
next 

新建一个txt文件，里面输入以上代码，然后后缀改为vbs，这个东西就做成了。

使用方法：
把打算发的内容复制粘贴到剪贴板上
双击*.vbs文件
然后快速的把鼠标移到文本框内单击一次即可（其实就是相当于多次粘贴）
我们拿QQ作为例子，成功后截图：

想自定义发送次数改for i=1 to 10