太神奇了，，，如果能是正的，就好了
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 时钟--斜体+毫秒（更新，减少cpu和闪烁）
查看 5,926 回复 23
第 16 楼
发表于 2008-08-16 01:27 · 中国 辽宁 大连 西岗区 电信
第 17 楼
发表于 2008-08-16 08:00 · 中国 广东 广州 天河区 电信
哈，给做成屏保 和整体的吧
[ Last edited by 523066680 on 2008-8-16 at 10:18 AM ]
@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
title made by 523066680 2008-08-08
::这一版本由www.cn-dos.net & www.bathome.cn 成员523066680编辑
setlocal enabledelayedexpansion
set n=-1
for %%a in (1 2 3 5 9 a b c d e f) do (set /a n+=1 &set n!n!=%%a)
set 01=●●●●
set 02=● ●
set 03=● ●
set 04=● ●
set 05=●●●●
set 11= ●
set 12= ●
set 13= ●
set 14= ●
set 15= ●
set 21=●●●●
set 22= ●
set 23=●●●●
set 24=●
set 25=●●●●
set 31=●●●●
set 32= ●
set 33=●●●●
set 34= ●
set 35=●●●●
set 41=● ●
set 42=● ●
set 43=●●●●
set 44= ●
set 45= ●
set 51=●●●●
set 52=●
set 53=●●●●
set 54= ●
set 55=●●●●
set 61=●●●●
set 62=●
set 63=●●●●
set 64=● ●
set 65=●●●●
set 71=●●●●
set 72= ●
set 73= ●
set 74= ●
set 75= ●
set 81=●●●●
set 82=● ●
set 83=●●●●
set 84=● ●
set 85=●●●●
set 91=●●●●
set 92=● ●
set 93=●●●●
set 94= ●
set 95=●●●●
:a
for /f %%a in ('time /t') do (set to=%%a &set /a t1=!to:~0,1!,t2=!to:~1,1!)
for /l %%a in (1,1,5) do (
set hang%%a=!%t1%%%a! !%t2%%%a! !%time:~3,1%%%a! !%time:~4,1%%%a! !%time:~6,1%%%a! !%time:~7,1%%%a!)
if %random:~-1% leq 6 (set /a n=!random:~-1!*2) else (set n=!random:~-1!)
set k=
for /l %%a in (1,1,%random:~-1%) do (set k= !k!)
ping -n 1 -w 500 0.0.0.1>nul &cls
color 0!n%random:~-1%!
for /l %%a in (1,1,%n%) do echo,
echo,%k%%hang1%
echo,%k%%hang2%
echo,%k%%hang3%
echo,%k%%hang4%
echo,%k%%hang5%
goto :a
[ Last edited by 523066680 on 2008-8-16 at 10:18 AM ]
第 18 楼
发表于 2008-08-16 19:13 · 中国 广东 江门 电信
不错
第 19 楼
我也来个，低CPU消耗
发表于 2009-05-29 12:41 · 中国 上海 浦东新区 电信
@echo off
title Clock
mode con cols=85 lines=14
color 0a
:start
echo.&echo.
banner.exe " %time:~0,-3%" -c:@
ping 127.1 -n 2 >nul &ping -n>nul
cls
goto start
附件
clock.zip (10.74 KiB, 下载次数: 5)
第 20 楼
发表于 2009-05-29 23:50 · 中国 北京 网宿科技
不错，正好需要，学习了。
改了一个非斜体的。
@echo off
setlocal enabledelayedexpansion
title 时钟
mode con cols=55 lines=7
color 0a
set 01=▉▉▉
set 02=▉ ▉
set 03=▉ ▉
set 04=▉ ▉
set 05=▉▉▉
set 11= ▉
set 12= ▉
set 13= ▉
set 14= ▉
set 15= ▉
set 21=▉▉▉
set 22= ▉
set 23=▉▉▉
set 24=▉
set 25=▉▉▉
set 31=▉▉▉
set 32= ▉
set 33=▉▉▉
set 34= ▉
set 35=▉▉▉
set 41=▉ ▉
set 42=▉ ▉
set 43=▉▉▉
set 44= ▉
set 45= ▉
set 51=▉▉▉
set 52=▉
set 53=▉▉▉
set 54= ▉
set 55=▉▉▉
set 61=▉▉▉
set 62=▉
set 63=▉▉▉
set 64=▉ ▉
set 65=▉▉▉
set 71=▉▉▉
set 72= ▉
set 73= ▉
set 74= ▉
set 75= ▉
set 81=▉▉▉
set 82=▉ ▉
set 83=▉▉▉
set 84=▉ ▉
set 85=▉▉▉
set 91=▉▉▉
set 92=▉ ▉
set 93=▉▉▉
set 94= ▉
set 95=▉▉▉
:a
for /f %%a in ('time /t') do set t0=%%a&set /a t1=!t0:~0,1!,t2=!t0:~1,1!
for /l %%a in (1,1,5) do (set hang%%a=!%t1%%%a! !%t2%%%a! + !%time:~3,1%%%a! !%time:~4,1%%%a! + !%time:~6,1%%%a! !%time:~7,1%%%a!)
choice /c yn /t 1 /d y>nul
cls
echo.
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
goto a
改了一个非斜体的。
@echo off
setlocal enabledelayedexpansion
title 时钟
mode con cols=55 lines=7
color 0a
set 01=▉▉▉
set 02=▉ ▉
set 03=▉ ▉
set 04=▉ ▉
set 05=▉▉▉
set 11= ▉
set 12= ▉
set 13= ▉
set 14= ▉
set 15= ▉
set 21=▉▉▉
set 22= ▉
set 23=▉▉▉
set 24=▉
set 25=▉▉▉
set 31=▉▉▉
set 32= ▉
set 33=▉▉▉
set 34= ▉
set 35=▉▉▉
set 41=▉ ▉
set 42=▉ ▉
set 43=▉▉▉
set 44= ▉
set 45= ▉
set 51=▉▉▉
set 52=▉
set 53=▉▉▉
set 54= ▉
set 55=▉▉▉
set 61=▉▉▉
set 62=▉
set 63=▉▉▉
set 64=▉ ▉
set 65=▉▉▉
set 71=▉▉▉
set 72= ▉
set 73= ▉
set 74= ▉
set 75= ▉
set 81=▉▉▉
set 82=▉ ▉
set 83=▉▉▉
set 84=▉ ▉
set 85=▉▉▉
set 91=▉▉▉
set 92=▉ ▉
set 93=▉▉▉
set 94= ▉
set 95=▉▉▉
:a
for /f %%a in ('time /t') do set t0=%%a&set /a t1=!t0:~0,1!,t2=!t0:~1,1!
for /l %%a in (1,1,5) do (set hang%%a=!%t1%%%a! !%t2%%%a! + !%time:~3,1%%%a! !%time:~4,1%%%a! + !%time:~6,1%%%a! !%time:~7,1%%%a!)
choice /c yn /t 1 /d y>nul
cls
echo.
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
goto a
第 21 楼
发表于 2009-05-30 00:11 · 中国 上海 宝山区 电信
很经典的例子，谢谢分享！
第 22 楼
发表于 2011-01-04 12:58 · 中国 江苏 徐州 电信
厉害啊，不过20楼的代码闪屏太厉害
第 23 楼
发表于 2011-01-06 21:48 · 中国 广东 东莞 中移铁通
加分以示支持.........
第 24 楼
发表于 2011-01-07 16:35 · 中国 山东 济南 联通
都是牛人！！
论坛跳转: