[游戏娱乐] novaa版批处理论坛宣传动画

 
@echo off&setlocal enabledelayedexpansion&color 17&title 批处理之家&mode con cols=80 lines=20
set "Gra1==========================>"
set "Gra2=<========================="
for /l %%i in (1 1 80) do set Table=!Table!
for /l %%i in (1 1 36) do set Space=  !Space!
set Name=批处理之家
set num=0&echo\&echo\
for /l %%i in (1 1 26) do (
 set /a num=!num!+1
 set "Gra=!Gra1:~0,%%i!!Space!!Gra2:~-%%i!"
 echo      !Gra!
 if "!num!"=="26" goto :Next
 call :Delay 1000
 set Space=!Space:~2!&cls&echo\&echo\
)

:Next
ping /n 2 127.1>nul
cls&echo\&echo\
echo      =========================^> 批                   ^<=========================
ping /n 2 127.1>nul
cls&echo\&echo\
echo      =========================^> 批 处                ^<=========================
ping /n 2 127.1>nul
cls&echo\&echo\
echo      =========================^> 批 处 理             ^<=========================
ping /n 2 127.1>nul
cls&echo\&echo\
echo      =========================^> 批 处 理 之          ^<=========================
ping /n 2 127.1>nul 
cls&echo\&echo\
echo      =========================^> 批 处 理 之 家       ^<=========================
ping /n 2 127.1>nul
echo\&echo\
call :Process
echo\&echo\&echo\
call :ShineIP
echo\&echo\
set "Novaa=Code By Novaa 于深夜" 
for /l %%i in (1 1 17) do (
set /p=       !Novaa:~0,%%i!<nul
set /p=!Table!<nul
call :Delay 800
)
ping /n 3 127.1>nul
goto :eof
:Process
set "Process=------------>最实用的批处理网站"
for /l %%i in (1 1 22) do (
set /p=     !Process:~0,%%i!<nul
set /p=!Table!<nul
call :Delay 1000
)
goto :eof

:ShineIP
set "IP=------------>"
for /l %%i in (1 1 13) do (
set /p=     !IP:~0,%%i!<nul
set /p=!Table!<nul
call :Delay 1000
)
set /p=     ------------^>域<nul&ping /n 2 127.1>nul
set /p=!Table!<nul
set /p=     ------------^>域 名<nul&ping /n 2 127.1>nul
set /p=!Table!<nul
set /p=     ------------^>域 名 :  <nul
set /p=<nul
set /p=bbs.bathome.net<nul
goto :eof

:Delay
for /l %%i in (1 1 %1) do ver>nul
goto :eof
复制代码