qq消息轰炸代码vbs

和室友斗图在网上找的代码，创建一个text文本，把代码复制进去，后缀改为vbs，复制要发送的内容，双击vbs文件，然后点击聊天框即可，两个版本，一个带数字，一个不带。带数字的版本使用时需要将//和后面的文字删除，否则会报错。

带数字

set wshshell=wscript.createobject("wscript.shell") 
wshshell.AppActivate"要发送的人的名字" 
for i=1 to 100     //循环次数
wscript.sleep 100     //间隔时间，单位毫秒
wshshell.sendKeys "^v" 
wshshell.sendKeys i 
wshshell.sendKeys "%s" 
next

不带数字

set wshshell=wscript.createobject("wscript.shell") 
wshshell.AppActivate"要发送的人的名字" 
for i=1 to 100
wscript.sleep 100 
wshshell.sendKeys "^v" 
wshshell.sendKeys "%s" 
next