如何实现qq消息轰炸

1、新建一个文本文档复制以下代码

Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate"涛哥真帅" //这里的字可以随便改
for i=1 to 50 //循环次数
WScript.sleep 50 //延迟次数
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys" %s"
Next

2、保存后，改后缀名为vbs