CODE: [Copy to clipboard]
29 日修改
改后代码
@echo off & setlocal EnableDelayedExpansion
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓
:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y
color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!
echo %nk% %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk% www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new
:rdline
rem 随机改变行数 左右位置。
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do set nk=!nk!
set rdnb=0
goto :EOF
:gt
rem 得到时间 并替换成 数字模样。
if "%1"=="n" call :gt 0 n
if "%1"=="0" call set %2=a
if "%1"=="1" call set %2=b
if "%1"=="2" call set %2=c
if "%1"=="3" call set %2=d
if "%1"=="4" call set %2=e
if "%1"=="5" call set %2=f
if "%1"=="6" call set %2=g
if "%1"=="7" call set %2=h
if "%1"=="8" call set %2=i
if "%1"=="9" call set %2=j
goto :EOF
:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█ █
set a3=█ █
set a4=█ █
set a5=█████
set b1= ██
set b2= █
set b3= █
set b4= █
set b5= █
set c1= ███
set c2= █
set c3=█████
set c4=█
set c5=█████
set d1= ███
set d2= █
set d3=█████
set d4= █
set d5=█████
set e1=█
set e2=█ █
set e3=█████
set e4= █
set e5= █
set f1=███
set f2=█
set f3=█████
set f4= █
set f5=█████
set g1=███
set g2=█
set g3=█████
set g4=█ █
set g5=█████
set h1=█████
set h2=█ █
set h3= █
set h4= █
set h5= █
set i1=█████
set i2=█ █
set i3=█████
set i4=█ █
set i5=█████
set j1=█████
set j2=█ █
set j3=█████
set j4= █
set j5= ████
goto :EOF
CODE: [Copy to clipboard]
原代码
@echo off & setlocal EnableDelayedExpansion
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓
:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y
color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!
echo %nk% %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk% www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new
:rdline
rem 随机改变行数 左右位置。
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do set nk=!nk!
set rdnb=0
goto :EOF
:gt
rem 得到时间 并替换成 数字模样。
set t1=%1
set t2=%2
if "%t1%"=="n" (set t1=0) && set t2=n
if "%t1%"=="0" call set %t2%=a
if "%t1%"=="1" call set %t2%=b
if "%t1%"=="2" call set %t2%=c
if "%t1%"=="3" call set %t2%=d
if "%t1%"=="4" call set %t2%=e
if "%t1%"=="5" call set %t2%=f
if "%t1%"=="6" call set %t2%=g
if "%t1%"=="7" call set %t2%=h
if "%t1%"=="8" call set %t2%=i
if "%t1%"=="9" call set %t2%=j
goto :EOF
:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█ █
set a3=█ █
set a4=█ █
set a5=█████
set b1= ██
set b2= █
set b3= █
set b4= █
set b5= █
set c1= ███
set c2= █
set c3=█████
set c4=█
set c5=█████
set d1= ███
set d2= █
set d3=█████
set d4= █
set d5=█████
set e1=█
set e2=█ █
set e3=█████
set e4= █
set e5= █
set f1=███
set f2=█
set f3=█████
set f4= █
set f5=█████
set g1=███
set g2=█
set g3=█████
set g4=█ █
set g5=█████
set h1=█████
set h2=█ █
set h3= █
set h4= █
set h5= █
set i1=█████
set i2=█ █
set i3=█████
set i4=█ █
set i5=█████
set j1=█████
set j2=█ █
set j3=█████
set j4= █
set j5= ████
goto :EOF
[CODE: [Copy to clipboard]
@echo off & setlocal EnableDelayedExpansion
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set spc=
set font=█★●◆□◎◇¤⊙〓
:new
setlocal
color e%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!
set/a a=%random%%%50,b=%random%%%35
set nk=!spc:~0,%a%!
for /l %%a in (0,1,%b%) do echo.
if "%time:~0,1%"==" " set time=0%time:~1%
echo %nk% %date%
echo %nk% !%time:~0,1%a:█=%rdfont%! !%time:~1,1%a:█=%rdfont%! !%time:~3,1%a:█=%rdfont%! !%time:~4,1%a:█=%rdfont%!
echo %nk% !%time:~0,1%b:█=%rdfont%! !%time:~1,1%b:█=%rdfont%! !%time:~3,1%b:█=%rdfont%! !%time:~4,1%b:█=%rdfont%!
echo %nk% !%time:~0,1%c:█=%rdfont%! !%time:~1,1%c:█=%rdfont%! · !%time:~3,1%c:█=%rdfont%! !%time:~4,1%c:█=%rdfont%!
echo %nk% !%time:~0,1%d:█=%rdfont%! !%time:~1,1%d:█=%rdfont%! !%time:~3,1%d:█=%rdfont%! !%time:~4,1%d:█=%rdfont%!
echo %nk% !%time:~0,1%e:█=%rdfont%! !%time:~1,1%e:█=%rdfont%! · !%time:~3,1%e:█=%rdfont%! !%time:~4,1%e:█=%rdfont%!
echo %nk% www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
endlocal
goto :new
:tnb
rem 0-9 数字模样。
set 0a=█████
set 0b=█ █
set 0c=█ █
set 0d=█ █
set 0e=█████
set 1a= ██
set 1b= █
set 1c= █
set 1d= █
set 1e= █
set 2a= ███
set 2b= █
set 2c=█████
set 2d=█
set 2e=█████
set 3a= ███
set 3b= █
set 3c=█████
set 3d= █
set 3e=█████
set 4a=█
set 4b=█ █
set 4c=█████
set 4d= █
set 4e= █
set 5a=███
set 5b=█
set 5c=█████
set 5d= █
set 5e=█████
set 6a=███
set 6b=█
set 6c=█████
set 6d=█ █
set 6e=█████
set 7a=█████
set 7b=█ █
set 7c= █
set 7d= █
set 7e= █
set 8a=█████
set 8b=█ █
set 8c=█████
set 8d=█ █
set 8e=█████
set 9a=█████
set 9b=█ █
set 9c=█████
set 9d= █
set 9e= ████
CODE: [Copy to clipboard]
@echo off & setlocal EnableDelayedExpansion
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓
:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y
color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!
echo %nk% %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! █ !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! █ !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new
:rdline
rem 随机改变行数 左右位置。
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do set nk=!nk!
set rdnb=0
goto :EOF
:gt
rem 得到时间 并替换成 数字模样。
if "%1"=="n" call :gt 0 n
if "%1"=="0" call set %2=a
if "%1"=="1" call set %2=b
if "%1"=="2" call set %2=c
if "%1"=="3" call set %2=d
if "%1"=="4" call set %2=e
if "%1"=="5" call set %2=f
if "%1"=="6" call set %2=g
if "%1"=="7" call set %2=h
if "%1"=="8" call set %2=i
if "%1"=="9" call set %2=j
goto :EOF
:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█ █
set a3=█ █
set a4=█ █
set a5=█████
set b1= █
set b2= █
set b3= █
set b4= █
set b5= █
set c1=█████
set c2= █
set c3=█████
set c4=█
set c5=█████
set d1=█████
set d2= █
set d3=█████
set d4= █
set d5=█████
set e1=█ █
set e2=█ █
set e3=█████
set e4= █
set e5= █
set f1=█████
set f2=█
set f3=█████
set f4= █
set f5=█████
set g1=█████
set g2=█
set g3=█████
set g4=█ █
set g5=█████
set h1=█████
set h2=█ █
set h3= █
set h4= █
set h5= █
set i1=█████
set i2=█ █
set i3=█████
set i4=█ █
set i5=█████
set j1=█████
set j2=█ █
set j3=█████
set j4= █
set j5=█████
goto :EOF