QQ轰炸（刷屏）代码

在桌面上新建文本文档

打开文本文档，复制一下代码

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 20
wscript.sleep 100
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys i
xda.sendKeys "%s"
next
wscript.quit

编辑完成后对文件重命名将（.txt）改为（.vbs）
20代表次数，100代表时差
百试百灵，通过不断地尝试，小编成功的进入了同学的“黑名单”
再次还是奉劝大家次数不要太多，以免被拉黑屏蔽或者是电脑死机