vbs实现消息轰炸

效果

代码

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