|
fbwolf
初级用户
积分 56
发帖 22
注册 2006-12-13
状态 离线
|
『第
31 楼』:
牛人，在屏幕上随机摆动是根据那个黑客帝国数码雨做出来的吧
|
|
 2007-2-4 00:46 |
|
|
yqadsq1314
初级用户
积分 30
发帖 26
注册 2006-10-25
状态 离线
|
『第
32 楼』:
希望点解
随机行是采用的空行来实现的，但左右的随机位置怎么实现的，希望点解一下
有些不是蛮懂，先谢谢了
|
|
|
2007-2-5 08:57 |
|
|
voiL
中级用户
积分 384
发帖 189
注册 2005-10-19
状态 离线
|
『第
33 楼』:
如果P开头改成这样的就更加完美了.
来自:http://www.cn-dos.net/forum/viewthread.php?tid=25095&fpage=1
| Quote: |
@echo off
mode con cols=15 lines=1
if exist "Temp.bat" goto Main
>Temp.bat echo start/max "" "%~nx0"^&exit
start/max Temp.bat&exit
:Main
@echo off & setlocal EnableDelayedExpansion
mode con cols=125 lines=50 |
|
其中红色部分为新添加的内容,绿色加粗部分为修改过的内容.
声明:本人分辨率为1024*768.
|
|
|
2007-2-7 04:32 |
|
|
6622186
高级用户
积分 894
发帖 411
注册 2007-2-17
状态 离线
|
|
|
2007-2-18 14:24 |
|
|
frankwz
初级用户
积分 41
发帖 22
注册 2007-4-12
状态 离线
|
|
|
2007-4-14 09:27 |
|
|
frankwz
初级用户
积分 41
发帖 22
注册 2007-4-12
状态 离线
|
|
|
2007-4-14 09:27 |
|
|
slw218856
初级用户
积分 133
发帖 75
注册 2008-8-3
状态 离线
|
『第
37 楼』:
真很羡慕，不知道自己什么时候能懂得更多。。。。
|
|
|
2008-8-21 20:31 |
|
|
gxnews
新手上路
积分 5
发帖 4
注册 2008-10-28
状态 离线
|
|
|
2008-11-3 17:25 |
|
|
kgdetg1127
初级用户
积分 158
发帖 89
注册 2007-4-25
状态 离线
|
|
|
2008-11-3 20:36 |
|
|
ktv98
初级用户
积分 112
发帖 81
注册 2008-4-11
状态 离线
|
『第
40 楼』:
好东西 啊,高人
|
CN-DOS批处理室非官方QQ群①：61377162 ②：70174619 ③：75070617
请勿尝试同时加多个群 |
|
|
2008-11-3 20:49 |
|
|
breakme
新手上路
积分 5
发帖 6
注册 2008-11-2
状态 离线
|
『第
41 楼』:
全屏代码
@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= ████
|
|
|
2010-6-30 11:35 |
|
|
zouzhxi
中级用户
蝴蝶之吻
积分 430
发帖 177
注册 2006-9-20
来自 广东深圳
状态 离线
|
|
|
2010-6-30 12:44 |
|
|
jinzihao
初级用户
积分 111
发帖 62
注册 2008-9-5
来自 http://ms-dos.cz.cc
状态 离线
|
『第
43 楼』:
里面用了ping命令，不知道在纯DOS下运行会不会出错？
|
|
|
2010-6-30 17:34 |
|
|
jinzihao
初级用户
积分 111
发帖 62
注册 2008-9-5
来自 http://ms-dos.cz.cc
状态 离线
|
『第
44 楼』:
稍微美化了一下：
@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
|
|
|
2010-6-30 19:41 |
|
|
holley
新手上路
积分 12
发帖 11
注册 2008-5-9
状态 离线
|
|
|
2010-11-25 10:35 |
|
