@echo off&setlocal EnableDelayedExpansion
goto start_1
我們，是一群執著的批處理愛好者
在色彩斑斕的Windows下，開啟CMD這扇深邃的窗口
曾經挑燈夜戰，曾經徹夜不眠
我們之所以如此似癡若狂，是因為我們深知：
尺有所短、寸有所長，CMD不同凡響
我們精益求精，力求完美
所有的努力，只為了用最簡潔的語言，編寫最具實用性的代碼
批處理之家bbs.bathome.net
高手匯聚、資料齊全、是新手入門的福地、老手晉級的樂園
不求最大、但求最好、展現批處理的無窮魅力、一切精彩，盡在 ～～ 批處理之家 ～～
:start_1
(set num1=90&set num2=15&set ko= )
(mode con: cols=!num1! lines=!num2!)
(set k4=!ko!!ko!!ko!!ko!)
(title code by 隨風2007-12-1@bbs.bathome.net)
for /l %%a in (1 1 5) do (set yanse=!yanse!abcdef123456789)
(set fang=■&echo.&echo.&set ,=0123456789&set hanghao=12)
for /l,%%a,in,(1,1,20),do,(set k=!k!!ko!)
for /f,tokens=1* delims=: %%a,in,('findstr /n .* %~0'),do,(
if,%%a,leq,%hanghao%,(set _%%a=%%b))
(set _1=%k%批處理之家!ko!!ko!bbs.bathome.net!ko!!ko!歡迎您)
(set _2=!k4!!k4!!ko!!ko!網址：bbs.bathome.net)
(set _2=!_2!!k4!群號：43011867!k4!站長：youxi01)
(set sans=!k4!!k4!!ko!────!k4!批處理之家!ko!!ko!bbs.bathome.net!k4!!ko!)
::======================================================================
call :cuko
for /l %%a in (1 1 28) do (set kkk= !kkk!)
(set kait=%kkk%批處理之家!ko!!ko!bbs.bathome.net!ko!!ko!歡迎您)
echo&echo&echo
for /l %%k in (0 1 100) do (
if not !kait:~%%k,1== (set/p=!kait:~%%k,1!<nul)
for /l %%i in (1 1 100) do ver>nul)
(echo.&echo.&echo.&echo.&set/p=!k4!!k4!!ko!!ko!!ko!<nul)
for /l %%a in (1 1 33) do (
(set /a jind=%%a*3)
(set jind=!k4!!jind!)
(set jind=!jind:~-3!)
(set /p=%fang%!jind!%%<nul)
(set /p=<nul)
for /l %%i in (1 1 300) do ver>nul)
(set/p= 100%%<nul)&(ping/n 3 127.1>nul)
call :cuko
call :texiao
call :cuko 17
echo CMD-BAT
for /l,%%a,in,(1,1,%hanghao%),do,(
(set ]=0)
for /l,%%i,in,(0,1,100),do,(
(set /=!_%%a!)
if,not,!_%%a:~%%i,1!==,(set /a]+=1))
call :lis
if %%a equ 2 echo.)
(echo&echo&echo&color 1a)
(set/p=!sans!<nul)
goto sansuo
:lis
(echo&echo&set/p= !k4!<nul)
(set /a =!]:~0,1!)
set/a?=1/(1/!]:~-1!)2>nul||(set /=!/! )
set/a?=1/(10/])2>nul&&(set =1&set:=1)||(set:=0)
for /l,%%a,in,(!:! 1 !!),do,(
(set {=)
if,%%a,equ,!!,(set }=!]:~-1!),else,(set }=9)
for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)
call :xs)
goto :eof
:xs
for /l,%%k,in,(0 1 !}!),do,(
(call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul)
for /l,%%i,in,(1,1,200),do,ver>nul)
(set /a sq=}+1)
(call,set /=%%/:~!sq!%%)
goto :eof
:cuko
(set quese=0&set ookk=)&(set bai1=-&set bai2=-)
for /l %%i in (1,1,72) do (
for /l %%h in (2 2 72) do (if %%i==%%h set ookk=a)
(call set pys=%%yanse:~!quese!,1%%)
(color !pys!1)
(if defined ookk set /a quese+=1&set ookk=)
(if %%i gtr 36 set bai1=+)
(if !num2! equ 3 set bai2=+)
if not %1== (
if not defined llis if !num2! equ %~1 set bai2=-&set llis=a)
(if %1== if !num2! equ 15 set bai2=-)
(set /a num1!bai1!=2&set /a num2!bai2!=1)
(mode con cols=!num1! lines=!num2!))
(color 1f)
for /l %%a in (1 1 1500) do (ver>nul)
goto :eof
:sansuo
endlocal&(set k16=%k4%%k4%%k4%%k4%)
set _=0&set )=%k16%&(set (=歡迎您的加入 !!!)
set T=
:loop
(set/p=%(%<nul)
if,%_%,geq,500,echo.&echo.&echo.&pause&exit
(set/p=%T%<nul)
(for /l,%%i,in,(1,1,1500),do,ver>nul)
set (=%)%&set )=%(%&(set/a _+=1)
goto loop
:texiao 以下代碼 作者：泛濫棏慌
echo&echo
set pcl=8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8
for %%i in (!pcl!) do (
if %%i==， (echo.&for /l %%a in (1 1 300) do ver>nul)
(set a=%%i)&(set b=!a:-=!)
if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (
for /l %%k in (1,1,%%i) do (set/p= <nul)))
(ping/n 3 127.1>nul)
goto :eof
nclick="copycode($('code0'));">復制代碼