[转载]批处理之家论坛网站宣传小动画


@echo off&setlocal enabledelayedexpansion
color 1f&title made by batman 2008-08-02
:begin
echo.&echo.&echo.&echo.
for /f "skip=44 delims=" %%a in (%~fs0) do (
set "str=%%a"&set /a n+=1
if !n! lss 11 (
if !n! leq 5 (
set "a=c"
) else (
set "a=a"
)
if !n! equ 6 echo.
call :sp "%%a"&echo.
) else (
if !n! equ 11 echo.&echo.
set "var=!str!"&call :step
if !n! equ 15 echo.
if !n! geq 15 call :lp
)
)
pause>nul&goto :eof
:lp
call :sp "no" 80
if %n% equ 15 (
set "a=f"
) else (
set "a=e"
)
call :sp "%str%"
set /a m+=1
if %m% lss 5 goto lp
if %n% equ 15 ping /n 2 127.1>nul&echo.&echo.
set "m=-5"&goto :eof
:step
set /p b=%var:~,1%<nul&set "var=%var:~1%"
for /l %%i in (1,1,200) do echo>nul
if defined var goto step
ping /n 2 127.1>nul
call :sp "no" 80&goto :eof
:sp
if %1 neq "no" set /p= <nul>%1&findstr /a:1%a% .* %1*
for /l %%i in (1,1,%2) do set /p= <nul
del /q %1*>nul 2>nul&goto :eof
●●●● ●●●● ●●●●●
● ● ● ● ●
●●●●● ●●●●● ●
● ● ● ● ●
●●●●● ● ● ●
● ● ●●●● ●●●● ●●●●●
● ● ● ● ● ● ● ●
●●●●● ● ● ● ● ● ●●●●
● ● ● ● ● ● ● ●
● ● ●●●● ● ● ● ●●●●●
我们,在Windows窗前
为了追逐的梦,叩响CMD深邃的大门
多少回挑灯夜战,又多少次彻夜难眠
身心虽已疲倦,然心中却有个坚定的信念:
精益求精缔造完美,不言最好只求更高
www.bathome.net ----- It's the best professional batwebsite
文章附属文件

文件名称: 20180105115146006886.png

文件大小:13 KB

文件签名:5408DD2C7C9B63DF928812D9AB5BEA6B16925FCB

评论列表

此文章还没有评论。