代碼實現QQ消息轟炸

准備：（代碼在目錄2）

 代碼

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 200
wscript.sleep 10
wsh.AppActivate("36℃8")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

操作：

　　打開和好友的聊天框，雙擊程序就行了！

注意：

　　如果雙擊程序后電腦上面有360提示，允許就可以了！

微信自動發送消息：

腳本會監控你的粘貼板信息，從而發送給你指定備注的人：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "備注的聯系人"
for i = 1 to 100
WScript.Sleep 500
WshShell.SendKeys "^v"
'WshShell.SendKeys i
WshShell.SendKeys "%s"
Next