@echo off
title 批处理广告牌
setlocal EnableDelayedExpansion
::===========这里可以自己设定（必须是全角字符）==============
set 文字=批处理之家——不求最大，但求最好，做最实用的批处理论坛。ｗｗｗ．ｂａｔｈｏｍｅ．ｎｅｔ
::===========================================================
set w=%文字%
for /l %%b in (0 1 8192) do (
if "!w:~%%b,1!"=="" (set zs=%%b&goto a))
:a
set /a mz=%zs%*2+5
mode con:cols=%mz% lines=2
color f0
for /l %%a in (0 1 %zs%) do (
set dq=!w:~%%a,1!
set /a xk=!zs!-%%a
for /l %%d in (0 1 !xk!) do (set /a kg2=!zs!-%%a
set /a kg=!kg2!-%%d
set kg1=
for /l %%c in (0 1 !kg!) do (set kg1=　!kg1!)
cls
echo.
echo !y!!kg1!!dq!
for /l %%f in (1 1 200) do (echo.>nul))
set y=!y!!dq!
)
ping -n 3 127.0.1>nul
set y=
%0
复制代码

@echo off&(setlocal,EnableDelayedExpansion&mode con:lines=5 cols=40)
:start
(cls&echo\&echo\)&(set "space="&set "unback="&set "unspace="&set "back="&set "bat=bbs.bathome.net")
for,/l,%%i,in,(1,1,26),do,(set /p=!space!!unback!!bat!!back!<nul&set "space= !space!"&set "back=!back!"
if,"%%i"=="26",(for,/l,%%j,in,(1,1,26),do,(cls&echo\&echo\
(set /p=!space!!unback!!bat!!unspace!<nul&set "unback=!unback!"&set "unspace= !unspace!")
for,/l,%%i,in,(1,1,300),do,echo,ver>nul)
(goto,start))
for,/l,%%i,in,(1,1,300),do,echo,ver>nul)
复制代码