【开发笔记】- QQ消息轰炸

1、右键新建一个文本文件；

2、打开记事本将如下代码复制过去；

On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 100 '这里是轰炸次数
wscript.sleep 70 
wsh.AppActivate("这里是要轰炸的人的名字") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit

3、保存关闭，将文件格式txt修改为vbs格式；

4、复制你要发送的消息内容，双击vbs文件即可；