批处理文字特效（飞入、变色、循环变动等）【已更新】 - 中国DOS联盟论坛

变色文字＋飞入特效


@echo off&setlocal enabledelayedexpansion&cls&color 0f&title Welcome to CN-DOS!
mode con: cols=30 lines=3
set "a=                            CN-DOS"
set "b="
set "c=12345689abcde"
echo\
:c
for /l %%a in (6,1,28) do (
set /a d=%random%%%13+1
call :pp %%a
)
goto c
:pp
set/p=!a:~-%1!<nul
set/p=!b:~0,%1!<nul
color 0!c:~%d%,1!
goto :eof

/ - \ | 进度特效


@echo off&setlocal enabledelayedexpansion&cls&title *-提示信息-*&color 0f
mode con: cols=40 lines=6
for /l %%a in (1,1,120) do (
if %%a leq 56 set/p=*<nul
if %%a equ 57 set/p=友<nul&ping -n 1 127.1>nul
if %%a equ 59 set/p=情<nul&ping -n 1 127.1>nul
if %%a equ 61 set/p=提<nul&ping -n 1 127.1>nul
if %%a equ 63 set/p=示<nul&ping -n 1 127.1>nul
if %%a geq 65 set/p=*<nul
)
set "c=12345689abcde"
echo/
set b=/-\
set 退格=
:b
for /l %%i in (0,1,3) do (
call :a %%i
set /a d=%random%%%13+1
)
goto :b
:a
set/a a=%1%%4
if %a% EQU 3 (set/p=          ^| Welcome to CN-DOS<nul) else set/p=          !b:~%a%,1! Welcome to CN-DOS<nul
ping/n 1 127.1>nul
color 0!c:~%d%,1!
set/p=%退格%<nul
goto :eof

星星版提示


@echo off&setlocal enabledelayedexpansion&title *一个眺望摩天轮的人*
mode con cols=30 lines=7
set a=☆☆☆☆☆☆☆☆☆☆
set b=★
set c=
set d=
set e=123456789abcde
echo/
echo **********(D--O--S)***********
echo  *Welcome to China Dos Union*
echo\
:b
for /l %%a in (0,1,9) do (
set /a f=%random%%%14+1
set/p=!a:~%%a,1!<nul&set/p=%b%<nul
ping -n 1 127.1>nul
color 0!e:~%f%,1!
set/p=%c%<nul
if %%a equ 9 (set/p=%d%<nul&for /l %%a in (9,-1,1) do (set/p=!a:~-%%a!!<nul&set/p=%b%<nul&ping -n 1 127.1>nul&set/p=%d%<nul))
)
goto b

星星之火，可以燎原，不要让DOS在沉默下去了.............

[ Last edited by bagpipe on 2006-11-23 at 01:26 AM ]

第1楼　bagpipe	发表于 2006-11-09 23:41
银牌会员　发帖 425　积分 1,144　来自北京
批处理文字特效（飞入、变色、循环变动等）【已更新】变色文字＋飞入特效 @echo off&setlocal enabledelayedexpansion&cls&color 0f&title Welcome to CN-DOS! mode con: cols=30 lines=3 set "a= CN-DOS" set "b=" set "c=12345689abcde" echo\ :c for /l %%a in (6,1,28) do ( set /a d=%random%%%13+1 call :pp %%a ) goto c :pp set/p=!a:~-%1!<nul set/p=!b:~0,%1!<nul color 0!c:~%d%,1! goto :eof / - \ \| 进度特效 @echo off&setlocal enabledelayedexpansion&cls&title -提示信息-&color 0f mode con: cols=40 lines=6 for /l %%a in (1,1,120) do ( if %%a leq 56 set/p=<nul if %%a equ 57 set/p=友<nul&ping -n 1 127.1>nul if %%a equ 59 set/p=情<nul&ping -n 1 127.1>nul if %%a equ 61 set/p=提<nul&ping -n 1 127.1>nul if %%a equ 63 set/p=示<nul&ping -n 1 127.1>nul if %%a geq 65 set/p=<nul ) set "c=12345689abcde" echo/ set b=/-\ set 退格= :b for /l %%i in (0,1,3) do ( call :a %%i set /a d=%random%%%13+1 ) goto :b :a set/a a=%1%%4 if %a% EQU 3 (set/p= ^\| Welcome to CN-DOS<nul) else set/p= !b:~%a%,1! Welcome to CN-DOS<nul ping/n 1 127.1>nul color 0!c:~%d%,1! set/p=%退格%<nul goto :eof 星星版提示 @echo off&setlocal enabledelayedexpansion&title 一个眺望摩天轮的人 mode con cols=30 lines=7 set a=☆☆☆☆☆☆☆☆☆☆ set b=★ set c= set d= set e=123456789abcde echo/ echo ********(D--O--S)********* echo Welcome to China Dos Union echo\ :b for /l %%a in (0,1,9) do ( set /a f=%random%%%14+1 set/p=!a:~%%a,1!<nul&set/p=%b%<nul ping -n 1 127.1>nul color 0!e:~%f%,1! set/p=%c%<nul if %%a equ 9 (set/p=%d%<nul&for /l %%a in (9,-1,1) do (set/p=!a:~-%%a!!<nul&set/p=%b%<nul&ping -n 1 127.1>nul&set/p=%d%<nul)) ) goto b 星星之火，可以燎原，不要让DOS在沉默下去了............. [ Last edited by bagpipe on 2006-11-23 at 01:26 AM ]

第2楼　electronixtar	发表于 2006-11-09 23:42
铂金会员　发帖 2,672　积分 7,493
恩，这个帖子是我代Bagpipe发的 Bagpipe写的这么好的批处理，不拿出来分享就太不厚道了！ btw，Bagpipe自从玩失踪后把这个昵称为"Bagpipe"的帐号给我了～～我会陆续把Bagpipe前辈私藏的批处理放出来，哈哈～～希望Bagpipe看见了不要怪我 [ Last edited by electronixtar on 2006-11-9 at 11:45 PM ]

第3楼　piziliu2004	发表于 2006-11-09 23:55
中级用户　发帖 139　积分 321
不错.!

第4楼　redtek	发表于 2006-11-11 05:59
金牌会员　发帖 1,147　积分 2,902
好看！给人一种即将节日到来的感觉～：）

第5楼　ccwan	发表于 2006-11-11 06:32
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
前辈高人！佩服！

第6楼　vkill	发表于 2006-11-11 07:51
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
学习学习

第7楼　holee	发表于 2006-11-11 12:03
初级用户　发帖 27　积分 53
经典啊。。

第8楼　amao	发表于 2006-11-11 13:26
中级用户　发帖 152　积分 316
收藏起来慢慢学习高人的武功秘笈

第9楼　soker	发表于 2006-11-11 16:27
初级用户　发帖 15　积分 30
高人。。。实在厉害。。。

第10楼　voiL	发表于 2006-11-11 22:38
中级用户　发帖 189　积分 384
第一次看到这么炫丽的批处理.

第11楼　maya0su	发表于 2006-11-12 00:19
中级用户　发帖 131　积分 241
晕啦! 太刺激了我估计这也只能在XP下了好批处理啊多发多发!

第12楼　jiesen	发表于 2006-11-12 08:05
新手上路　发帖 8　积分 15
厉害呵呵~!~!~!~!~!~!~!

第13楼　heixing	发表于 2006-11-17 11:02
初级用户　发帖 16　积分 28
支持好帖子

第14楼　Michale	发表于 2006-11-18 00:00
初级用户　发帖 27　积分 52　来自 ☆逍遥宫☆
yeah.....我喜欢~~谢谢拉~~~

第15楼　hijackjave	发表于 2006-11-18 02:54
新手上路　发帖 2　积分 3
楼主太强了啊