中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-06-22 22:05
欢迎新会员 Xiaohua　 RSS
共 47,998 主题排行 / 350,073 发帖 / 今日 0 篇 / 48,216 会员排行 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]COLOR TIME 彩色时间屏保 查看 10,216　回复 47
1 2 3 4 下一页 › 推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 [原创]COLOR TIME 彩色时间屏保 发表于 2007-01-28 06:09　·　 中国 广东 佛山 中移铁通
doscc
中级用户
★★
积分 256
发帖 93
注册 2006-03-26 22:12
20年会员
UID 52853
性别 男
来自 广东
状态 离线
好久没来了，好久没玩批处理了。 发个最近写的 批处理 给大家!

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 随机改变行数 左右位置。

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 ]
本帖最近评分记录 （共 7 条） 点击查看详情
评分人分数时间
ccwan +5 2007-01-28 06:19
redtek +15 2007-01-28 08:36
lxmxn +6 2007-01-28 11:25
electronixtar +8 2007-01-28 11:42
0401 +4 2007-01-28 13:03
PPdos +4 2007-01-28 20:44
namejm +4 2007-01-30 12:57
附件
a.JPG
COLOR TIME.bat.txt (2.75 KiB, 下载附件所需积分 1 点, 下载次数: 42)
第 2 楼 a 发表于 2007-01-28 06:10　·　 中国 广东 佛山 中移铁通
doscc
中级用户
★★
积分 256
发帖 93
注册 2006-03-26 22:12
20年会员
UID 52853
性别 男
来自 广东
状态 离线
a
附件
b.JPG
第 3 楼 发表于 2007-01-28 06:19　·　 中国 河北 廊坊 三河市 移动
ccwan
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
很有意思的东东，支持一下。
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 4 楼 发表于 2007-01-28 08:38　·　 中国 北京 朝阳区 联通
redtek
金牌会员
★★★★
积分 2,902
发帖 1,147
注册 2006-09-21 12:00
19年会员
UID 63324
性别 男
状态 离线
欣赏～～
动态的时间变化，很有意思的代码～：）
而且还特别像动画屏幕保护，非常可爱！！！
　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
第 5 楼 发表于 2007-01-28 08:58　·　 中国 湖南 长沙 电信
Eblis
中级用户
★★
积分 251
发帖 108
注册 2007-01-07 11:33
19年会员
UID 75721
性别 男
来自 湖南==>广州
状态 离线
好``
DOS新人.多多指導
第 6 楼 发表于 2007-01-28 09:34　·　 中国 浙江 电信
heicai
中级用户
★★
积分 385
发帖 156
注册 2007-01-19 02:32
19年会员
UID 76955
性别 男
状态 离线
牛人，玩批处理到如此高深境界！
第 7 楼 发表于 2007-01-28 10:07　·　 中国 北京 顺义区 联通
wxjclh
初级用户
★
积分 65
发帖 32
注册 2007-01-17 09:56
19年会员
UID 76791
性别 男
状态 离线
高，实在是高！
第 8 楼 发表于 2007-01-28 11:25　·　 中国 湖北 武汉 电信
lxmxn
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
19年会员
UID 59080
状态 离线

　　恩，不错，活像一个屏保… ^_^
第 9 楼 发表于 2007-01-28 11:39　·　 中国 四川 成都 教育网
electronixtar
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
顶啊，加分！

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 10 楼 发表于 2007-01-28 13:04　·　 中国 北京 联通
0401
中级用户
★★
带走
积分 435
发帖 88
注册 2005-09-24 19:22
20年会员
UID 42793
状态 离线
有创意，用起来还像屏保，呵呵。
第 11 楼 发表于 2007-01-28 14:50　·　 中国 广东 佛山 中移铁通
doscc
中级用户
★★
积分 256
发帖 93
注册 2006-03-26 22:12
20年会员
UID 52853
性别 男
来自 广东
状态 离线
谢谢大家支持! 这个批处理 是跟距 nokia s60 手机屏保 想出来的.
第 12 楼 发表于 2007-01-28 21:39　·　 美国 弗吉尼亚州 梅克伦堡县 博伊顿 Microsoft
PPdos
高级用户
★★
积分 783
发帖 268
注册 2006-12-26 17:18
19年会员
UID 74627
性别 男
状态 离线
支持！但有一疑问还请楼主解答

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%



此处为何要call?
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.
第 13 楼 发表于 2007-01-29 01:38　·　 中国 江苏 苏州 广电网(移动出口)
aspirer
初级用户
★
积分 72
发帖 35
注册 2006-11-13 01:26
19年会员
UID 70380
性别 男
状态 离线
Originally posted by doscc at 2007-1-28 01:50 AM:
谢谢大家支持! 这个批处理 是跟距 nokia s60 手机屏保 想出来的.


牛啊。牛人都是在深夜的时候出来活动的吗？
能不能稍作注释
Novell 迷http://novell.me
第 14 楼 发表于 2007-01-29 01:54　·　 中国 北京 联通
redtek
金牌会员
★★★★
积分 2,902
发帖 1,147
注册 2006-09-21 12:00
19年会员
UID 63324
性别 男
状态 离线
一点儿建议～：）


如果兄这精彩的帖子能在标题上标示出含有：批处理彩色时间动画　或是　含有批处理动画　　等标题词汇，这样将来论坛检索时可根据“动画”、“批处理彩色”、“彩色”等关键词快速定位并找到兄的帖子。



（因 COLOR TIME 的标题很难让从没有看过兄帖子内容的网友能够通过论坛检索来找到他想要找的含有“动画”类型与内容的帖子。非常希望兄这么精彩的帖子可以非常快的被需要的网友定位并检索到～：）


（如果 COLOR TIME 标题还是兄非常喜欢的名字或是它代表帖子中代码的特色与主题精神，在帖子中还可以使用类似图书分类检索或是文件主题词的方式让将来有更多的网友能够通过论坛的检索功能快速找到兄的帖子～：）


如：

［主题词：彩色批处理动画 时间动画 COLOR TIME 动画屏保 屏幕保护 动态时间 彩色动画］

等相关还可以通过论坛正文内容来快速检索这个帖子的主题词汇表～：）

　　

[ Last edited by redtek on 2007-1-28 at 01:22 PM ]
　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
第 15 楼 发表于 2007-01-29 02:05　·　 中国 北京 联通
redtek
金牌会员
★★★★
积分 2,902
发帖 1,147
注册 2006-09-21 12:00
19年会员
UID 63324
性别 男
状态 离线
根据主题词测试，使用１４楼主题词中的　“彩色动画”　一关键词应用论坛正文检索功能，已经可以检索到兄这么精彩的帖子了～：）

[ Last edited by redtek on 2007-1-28 at 01:07 PM ]
附件
未命名.GIF
　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
1 2 3 4 下一页 ›
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023