如何实现QQ页面消息轰炸

 Dim WshShell

 Set WshShell= Wscript.CreateObject("WScript.Shell")
 WshShell.AppActivate "发送对象"
 for i=1 to 99　（这里是发送信息数）
 WScript.Sleep 100
 WshShell.SendKeys "^v"
 WshShell.SendKeys i
 WshShell.SendKeys "%s"
 Next

执行过程：
１.在桌面创建一个文档，将以上代码拷贝进去。
２.然后更改文件后缀名为.vbs文件。
3.打开QQ发送信息页面，将你要发送的信息“拷贝”（必须是粘贴进去的文本）到QQ消息框中，然后双击你的.vbs文件；即可完成。（注意：有的电脑版本不支持.vbs文件，这个问题很好解决，百度一下即可解决。）