程序写入动画模拟： - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛


@echo off&mode con cols=42 lines=10
title 程序写入中...
set tu=■
set code=123456789abcdef
:begin
set /a num=%random%%%2
call,set str=%str%%num%
set /a n+=1
if %n% lss 40 goto begin
set /a num1=%random%%%15
call,set a=%%code:~%num1%,1%%
set /p= <nul>%str%&findstr /a:%a% .* %str%* 2>nul
set /a m+=1&call :lp
title %x%
set x=
if %m% equ 18 set m=0
echo.
del /q %str%
set str=&set n=0&goto begin
:lp
for /l %%i in (1,1,%m%) do call,set x=%%x%%%tu%

[ Last edited by zw19750516 on 2008-5-24 at 08:13 PM ]

第1楼　bat-zw	发表于 2008-05-24 19:56
金牌会员　发帖 1,276　积分 3,105
程序写入动画模拟： @echo off&mode con cols=42 lines=10 title 程序写入中... set tu=■ set code=123456789abcdef :begin set /a num=%random%%%2 call,set str=%str%%num% set /a n+=1 if %n% lss 40 goto begin set /a num1=%random%%%15 call,set a=%%code:~%num1%,1%% set /p= <nul>%str%&findstr /a:%a% .* %str%* 2>nul set /a m+=1&call :lp title %x% set x= if %m% equ 18 set m=0 echo. del /q %str% set str=&set n=0&goto begin :lp for /l %%i in (1,1,%m%) do call,set x=%%x%%%tu% [ Last edited by zw19750516 on 2008-5-24 at 08:13 PM ]

第2楼　WANKOILZ	发表于 2008-05-24 21:18
初级用户　发帖 89　积分 198　来自重庆
得到"天佑中华"的启发吧，看起来比较有创意，title里还加了进度条.....