|
crazysakura
初级用户
积分 82
发帖 46
注册 2008-8-15
状态 离线
|
『第
16 楼』:
太神奇了，，，如果能是正的，就好了
|
|
 2008-8-16 01:27 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
17 楼』:
哈，给做成屏保 和整体的吧
@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 ]
|
综合型编程论坛
我的作品索引 |
|
|
2008-8-16 08:00 |
|
|
BC
中级用户
积分 338
发帖 175
注册 2007-10-21
状态 离线
|
|
|
2008-8-16 19:13 |
|
|
uiopuiop
中级用户
积分 400
发帖 211
注册 2007-9-30
状态 离线
|
『第
19 楼』:
我也来个，低CPU消耗
@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
附件
1:  clock.zip (2009-5-29 12:41, 10.74 K,下载次数： 5)
|
|
|
2009-5-29 12:41 |
|
|
tongzj
初级用户
积分 49
发帖 43
注册 2007-1-20
状态 离线
|
『第
20 楼』:
不错，正好需要，学习了。
改了一个非斜体的。
@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
|
|
|
2009-5-29 23:50 |
|
|
yzdocean
新手上路
积分 1
发帖 3
注册 2009-2-12
状态 离线
|
|
|
2009-5-30 00:11 |
|
|
gudou
初级用户
积分 43
发帖 29
注册 2008-3-31
状态 离线
|
『第
22 楼』:
厉害啊，不过20楼的代码闪屏太厉害
|
|
|
2011-1-4 12:58 |
|
|
acaigg
初级用户
积分 115
发帖 92
注册 2010-12-24
状态 离线
|
『第
23 楼』:
加分以示支持.........
|
|
|
2011-1-6 21:48 |
|
|
sdlwsch
初级用户
积分 27
发帖 15
注册 2006-3-17
状态 离线
|
|
|
2011-1-7 16:35 |
|
