【開發筆記】- 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文件即可；