标题: [原创]COLOR TIME 彩色时间屏保 [打印本页]
作者: doscc 时间: 2007-1-28 06:09 标题: [原创]COLOR TIME 彩色时间屏保
好久没来了，好久没玩批处理了。 发个最近写的 批处理 给大家!
xp 试验成功!
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
改后代码
@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
原代码
@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
[ Last edited by doscc on 2007-1-29 at 02:20 PM ]@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
附件 1:a.JPG (2007-1-28 06:09, 19.62 K, 下载附件所需积分 1点 ,下载次数： 5)
附件 2:COLOR TIME.bat.txt (2007-1-28 06:09, 2.75 K, 下载附件所需积分 1点 ,下载次数： 42)
作者: doscc 时间: 2007-1-28 06:10 标题: a
a
附件 1:
作者: ccwan 时间: 2007-1-28 06:19
很有意思的东东，支持一下。
作者: redtek 时间: 2007-1-28 08:38
欣赏～～
动态的时间变化，很有意思的代码～：）
而且还特别像动画屏幕保护，非常可爱！！！
作者: Eblis 时间: 2007-1-28 08:58
好``
作者: heicai 时间: 2007-1-28 09:34
牛人，玩批处理到如此高深境界！
作者: wxjclh 时间: 2007-1-28 10:07
高，实在是高！
作者: lxmxn 时间: 2007-1-28 11:25
恩，不错，活像一个屏保… ^_^
作者: electronixtar 时间: 2007-1-28 11:39
顶啊，加分！
作者: 0401 时间: 2007-1-28 13:04
有创意，用起来还像屏保，呵呵。
作者: doscc 时间: 2007-1-28 14:50
谢谢大家支持! 这个批处理 是跟距 nokia s60 手机屏保 想出来的.
作者: PPdos 时间: 2007-1-28 21:39
支持！但有一疑问还请楼主解答
| Quote: | |
|
此处为何要call?
作者: aspirer 时间: 2007-1-29 01:38
| Quote: | |
|
牛啊。牛人都是在深夜的时候出来活动的吗？
能不能稍作注释
作者: redtek 时间: 2007-1-29 01:54
一点儿建议～：）
如果兄这精彩的帖子能在标题上标示出含有：批处理彩色时间动画 或是 含有批处理动画 等标题词汇，这样将来论坛检索时可根据“动画”、“批处理彩色”、“彩色”等关键词快速定位并找到兄的帖子。
（因 COLOR TIME 的标题很难让从没有看过兄帖子内容的网友能够通过论坛检索来找到他想要找的含有“动画”类型与内容的帖子。非常希望兄这么精彩的帖子可以非常快的被需要的网友定位并检索到～：）
（如果 COLOR TIME 标题还是兄非常喜欢的名字或是它代表帖子中代码的特色与主题精神，在帖子中还可以使用类似图书分类检索或是文件主题词的方式让将来有更多的网友能够通过论坛的检索功能快速找到兄的帖子～：）
如：
［主题词：彩色批处理动画 时间动画 COLOR TIME 动画屏保 屏幕保护 动态时间 彩色动画］
等相关还可以通过论坛正文内容来快速检索这个帖子的主题词汇表～：）
[ Last edited by redtek on 2007-1-28 at 01:22 PM ]
作者: redtek 时间: 2007-1-29 02:05
根据主题词测试，使用１４楼主题词中的 “彩色动画” 一关键词应用论坛正文检索功能，已经可以检索到兄这么精彩的帖子了～：）
[ Last edited by redtek on 2007-1-28 at 01:07 PM ]
附件 1:
作者: amao 时间: 2007-1-29 03:27
P处理能玩到这个境界，实在是牛人啊
收下来慢慢品味
作者: doscc 时间: 2007-1-29 14:31
去掉 call 的效果也是一样.
call 有时的作用是很大的.
@echo off
set a=1
echo %a%
call :aa a
echo %a%
goto :EOF
:aa
call set %1=2
goto :EOF
作者: qzwqzw 时间: 2007-1-29 15:01
第一句call是本职工作
第二句call是蛇足之笔
set %1=2
与
call set %1=2
结果没有什么不同
在下面的例子中call是有用的
@echo off
set a=1 2 3
echo %a%
call :aa a
echo %a%
goto :EOF
:aa
call set %1=%%%1%% 4 5 6
goto :EOF
[ Last edited by qzwqzw on 2007-1-29 at 02:03 AM ]set a=1 2 3
echo %a%
call :aa a
echo %a%
goto :EOF
:aa
call set %1=%%%1%% 4 5 6
goto :EOF
作者: qjbm 时间: 2007-1-29 15:18
请问 qzwqzw :
1.---------------------------
call set %1=%%%1%% 4 5 6
在代码没有测试运行前,如何判断该使用几次%符号.
2.---------------------------
call set %1=%%%1%% 4 5 6 等效于 set %1=%a% 4 5 6
call set是否有必要性.
[ Last edited by qjbm on 2007-1-29 at 02:23 AM ]
作者: bbq123bbq 时间: 2007-1-29 15:19
强~~~~~~~够牛的虽然没看懂....汗~~
作者: doscc 时间: 2007-1-29 15:22
加多一对 %%
call set %1=%%%1%% 4 5 6
↓
call set a=%%a%% 4 5 6
↓
set a=%a% 4 5 6
作者: PPdos 时间: 2007-1-29 15:51
| Quote: | |
|
领悟不错的话 call的作用在一定程度上是代替的变量延迟
@echo off
setlocal enabledelayedexpansion
set a=1 2 3
echo %a%
call :aa a
echo %a%
pause
goto :EOF
:aa
set %1=!%1! 4 5 6
goto :EOF
setlocal enabledelayedexpansion
set a=1 2 3
echo %a%
call :aa a
echo %a%
pause
goto :EOF
:aa
set %1=!%1! 4 5 6
goto :EOF
作者: qzwqzw 时间: 2007-1-30 00:41
---qjbm-----------
Q1：总的原则是需要解析几次就用几层%
比如call set %1=%%%1%% 4 5 6
在call执行之前命令行已被处理成了类似这样的形式
call set a=%a% 4 5 6
在call执行之后set执行之前命令行则变成这样
set a=1 2 3 4 5 6
Q2:当aa段内使用的是不确定的或者动态变化的变量名时call set是有用的
---PPdos----------------------------------
领悟得不错
不过反过来理解更合适些——
变量延迟l的作用在一定程度上是代替的call
因为call的用法出现要早得多
在没有cmd的时候
dos下就是用call来实现类似C语言的传址特性的
作者: flykiss8 时间: 2007-1-30 05:22
厉害，收藏慢慢学~~~~~~
作者: tao0610 时间: 2007-1-30 12:06
创意很不错.就是不必要的语句有点多.简化一下.
@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= ████
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= ████
作者: scriptor 时间: 2007-1-30 12:50
太佩服你们了
哈哈。。。。
作者: scriptor 时间: 2007-1-30 12:51
很久没有来法帖子了
今天看到了很多好的东西了
正在狂学中啊
*_*
作者: hngaoshou 时间: 2007-1-31 00:22
大力支持
作者: bob1989 时间: 2007-1-31 11:00
数字写得不太好看啊`
作者: hngaoshou 时间: 2007-2-1 00:53
顶.............
不过我总觉得缺点什么
作者: fbwolf 时间: 2007-2-4 00:46
牛人，在屏幕上随机摆动是根据那个黑客帝国数码雨做出来的吧
作者: yqadsq1314 时间: 2007-2-5 08:57 标题: 希望点解
随机行是采用的空行来实现的，但左右的随机位置怎么实现的，希望点解一下
有些不是蛮懂，先谢谢了
作者: voiL 时间: 2007-2-7 04:32
如果P开头改成这样的就更加完美了.
来自:http://www.cn-dos.net/forum/viewthread.php?tid=25095&fpage=1
| Quote: | |
|
其中红色部分为新添加的内容,绿色加粗部分为修改过的内容.
声明:本人分辨率为1024*768.
作者: 6622186 时间: 2007-2-18 14:24 标题: 随笔
看来高手真多
作者: frankwz 时间: 2007-4-14 09:27
好东西 啊,高人
作者: frankwz 时间: 2007-4-14 09:27
好东西 啊,高人
作者: slw218856 时间: 2008-8-21 20:31
真很羡慕，不知道自己什么时候能懂得更多。。。。
作者: gxnews 时间: 2008-11-3 17:25
牛！
作者: kgdetg1127 时间: 2008-11-3 20:36
顶.
作者: ktv98 时间: 2008-11-3 20:49
好东西 啊,高人
作者: breakme 时间: 2010-6-30 11:35 标题: 全屏代码
@echo off
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul
setlocal EnableDelayedExpansion
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= ████
作者: zouzhxi 时间: 2010-6-30 12:44
永不上左上角的，囧。
作者: jinzihao 时间: 2010-6-30 17:34
里面用了ping命令，不知道在纯DOS下运行会不会出错？
作者: jinzihao 时间: 2010-6-30 19:41
稍微美化了一下：
@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
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
作者: holley 时间: 2010-11-25 10:35
很有意思,学习学习函数
作者: 517 时间: 2010-12-31 18:20
学习
作者: 517 时间: 2010-12-31 18:21
哪个是啊。怎么弄
作者: gudou 时间: 2011-1-4 12:38
厉害啊……%真是牛！！
学习都很困难……