批处理之家 - Powered by Discuz! Board

::made by 523066680@cn-dos.net 2008-12-25
::blog: hi.baidu.com/523066680
::首发于:
@set evern1= 35 4248x+ 53 64 57 66 7179x+ 9397x+ 75f5y+ f4 b3 c2 b7 c8 3e 4d 5c 5bcby+ db ea f9 7b7fx+ 7efey+
@set evern2= 2535y+ 44 5352x- 464dx+ 656cx+ 6595y+ a3adx+ 49g9y+
@set evern3= 62 71 24g4y+ 55 66 77 484ex+ 5e7ey+ 878gx+ 2bbby+ ca d9 e8 f7 cc dd ee ff fg
@set evern4= 2c 3b 4a49x- 5857x- 5655x- 6575y+ 84 93 939fx+ 6ahay+ h9 c6 d5 e4 cd de ef
@echo off&setLocal enabLedeLayedexpansion
title made by 523066680@cn-dos.net
mode con coLs=40 Lines=22
color 40
set end= cn-dos 523066680 祝大家
set "L0=" &set "str=■" &set "num=0123456789abcdefghi"
for /l %%a in (1,1,18) do (set L=!L!)
for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a)
for /l %%n in (1,1,4) do (
for /l %%a in (1,1,18) do (set L%%a=%L%)
for %%a in (!evern%%n!) do (call :a %%a)
for /l %%a in (1,1,18) do (set "L%%n_%%a=!L%%a!")
ping -n 2 127.1>nul
)
color 4e
for /l %%a in (0,1,30) do (
set /p x=!end:~%%a,1!<nul
for /l %%b in (1,1,5) do (ping -n 1 127.0>nul)
)
mode con cols=75 lines=37
cls,
for /l %%a in (1,1,18) do (echo,!L1_%%a! !L2_%%a!)
for /l %%a in (1,1,18) do (echo,!L3_%%a! !L4_%%a!)
ping -n 5 127.1>nul
exit
:a
set n=%~1
if "%n:~3%"=="" (set "do=::") else (set "do=")
set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1
%do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1
%do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%"
:a-1
set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
call :echo call yes
%do% set /a %YorX%a%add%=1,xa2=xa+1
%do% if not !%YorX%a! equ !%YorX%b! (goto :a-1)
%do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
:echo
if "%2"=="yes" (set for=3) else (set for=5)
for /l %%a in (1,1,%for%) do (ping -n 1 127.1>nul)
cLs
for /l %%a in (0,1,18) do (echo, !L%%a!)
goto :eof

复制代码

@echo off
mode con cols=38 lines=20
title Happy new year
color 4e
set "act="
echo,= = = = = = = = =
echo,= =
echo,= 请稍等... =
echo,= =
echo,= = = = = = = = =
ping -n 2 127.1>nul
cls
set "act="
for /f "tokens=*" %%a in (%~snx0) do (
if defined act (
if "%%a"=="x" (ping -n 3 127.1>nul &cls &echo, &echo,) else (echo,%%a)
)
if "%%a"==":yes" (set act=yes)
)
echo,
echo,
echo, 恭喜发财，红包拿来
echo,
echo,
echo,
set str= Press any key to exit . . .
for /l %%a in (1,1,30) do (ping -n 1 127.1>nul &ping -n 1 127.1>nul &call set /p a=%%str:~%%a,1%%<nul)
pause>nul
exit
:yes

■■
■■■■■■■■
■■■■
■■■
■■■■■■■■■■■■■■
■■■
■■■■■■■
■■■
■■■■■
■■■■■
■■■
■■■
■■■■
x
■
■
■■■■■■■■■
■■■
■■■■■■■■
■■
■■
■■
■■■■■■■■■■■
■
■
■
■
■
■
x
■■
■■
■■■■■■■■
■■■■
■■■■■
■■■■■
■■■■■■■■■■■
■■
■■
■■
■■■
■■■
■■■
■■■■
■
x
■
■
■■
■■■■
■■
■■
■■
■■■■■■■■■■■■
■
■
■■■
■■■
■■■
■
■
■■
x

复制代码