【VBScript】QQ聊天信息轰炸

效果

源码

Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.AppActivate "这是你的聊天对象"
for i=1 to 50
WScript.sleep 350
WshShell.Sendkeys "^v"
WshShell.Sendkeys i
WshShell.Sendkeys "%s"
Next