@echo off&echo.&echo.&color 0c
::code 随风 @bbs.bathome.net 2008-0511
set /p= <nul>●
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
set /p=%t%<nul
for %%a in (a b c d e f) do (
   setlocal
   call :loop %%a
   endlocal
)
pause>nul&exit
:loop
set wjm=%str:~0,1%
if "%str:~1%"=="" (set bu=　) else set bu=●
findstr /a:%1 .* ●*
set /p=%bu%<nul
for /l %%a in (1 1 100) do ver>nul
set str=%str:~1%
if defined str goto loop
set /p=%t%<nul
goto :eof
复制代码

@echo off&echo.&echo.&color 0c
::code 随风 @bbs.bathome.net 2008-0511
set /p= <nul>●
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
set /p=%t%<nul
set ys=abcdefa
setlocal EnableDelayedExpansion
for %%a in (a b c d e f) do (
   set /a m+=1&call set b2=%%ys:~!m!,1%%
   call :loop %%a !b2!
)
pause>nul&exit
:loop
set /a n+=1,h+=1
if "%str:~1%"=="" (set bu=　) else set bu=●
findstr /a:%1 .* ●*
set /p=%bu%<nul
if %n% geq 5 call :list %1 %2 %2&set n=2
title %2
set str=%str:~1%
if %h% lss 30 goto loop
set /p=%t%<nul
set /a h=0,n=0
goto :eof
:list
if "%2"=="" goto :eof
set /p=<nul
findstr /a:%2 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
findstr /a:%1 .* ●*
set /p=%bu%<nul
shift
goto list
复制代码

@echo off&echo.&echo.&color 0c
set _1=●&set "_2=●●"
set /p= <nul>●
copy /y ● ●● >nul
set ys=abdef123456789
::code 随风 @bbs.bathome.net 2008-0511
for /l %%a in (1 1 30) do (
   call set str=●%%str%%
   call set t=%%t%%
)
set /p=       %str%<nul
:loop
set /a n=%random%%%27+3,w=%random%%%2+1,m=n-4+w,h=%random%%%14,h2=(h2+1)%%10
call set y=%%ys:~%h%,1%%
call set w=%%_%w%%%
for /l %%a in (1 1 %n%) do set /p=<nul
findstr /a:%y% . %w%*
for /l %%a in (1 1 %m%) do set /p=●<nul
for /l %%a in (1 1 500) do ver>nul
if %h2% geq 5 (color 0c) else color 0%y%
goto loop
复制代码

@echo off&mode con cols=41 lines=5
title 权当打发无聊的小动画
set a=★&set b=☆&set c=0123456789abcdef
echo.&echo.
:begin
set /a n=%random%%%20+1,m=40-2*n,x=%random%%%16
call,color 1%%c:~%x%,1%%
for /l %%i in (1,1,20) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,100) do set /p=<nul
for /l %%i in (1,1,%m%) do set /p= <nul&ping /n 127.1>nul
for /l %%i in (1,1,%n%) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,100) do set /p=<nul
goto begin
复制代码

@echo off&mode con cols=30 lines=5
echo.&echo.
:begin
set str=bbs.bathome.net&set b=123456789abcdef
set /a a=%random%%%14
call,color 1%%b:~%a%,1%%
call,set var=%%str:~%a%,1%%
call,set str=%%str:%var%= %%
set /p=       %str%<nul
for /l %%i in (1,1,1000) do set /p=<nul
goto begin
复制代码

call,color 1%%c:~%x%,1%%
复制代码

@echo off&mode con cols=41 lines=5
title 动画
set a=★&set b=☆&set c=0123456789abcdef
echo.
echo        edit by hdw 2009-8-5
echo.
:begin
set /a n=%random%%%20+1,m=40-2*n,x=%random%%%16
call,color 0%%c:~%x%,1%%
for /l %%i in (1,1,20) do set /p=%b%<nul&ping>nul
for /l %%i in (1,1,20) do set /p=<nul
for /l %%i in (1,1,8) do set /p= <nul&ping>nul
for /l %%i in (1,1,12) do set /p=%a%<nul&ping>nul
for /l %%i in (1,1,20) do set /p=<nul
goto begin
::加“&ping>null”起到了延时的作用
::★占两个退格符位或空格位
::一个退格符加一个空格符可以把光标前一个字符删除
复制代码