用批处理模拟搞笑开机画面 - 中国DOS联盟论坛

还有版主下面代码为什么只显示 b%%而不是123? 变量不可以堪套吗?
CODE:
--------------------------------------------------------------------------------

set a=123456789
set b=3
echo %a:~0,%b%%

这就是为什么要用setlocal ENABLEDELAYEDEXPANSION来启用延时的环境变量的原因。当然，并不是说不启用延时的环境变量就不能实现变量的嵌套，比如用显示命令的叠加来转换:

echo %a:~0,^%b%^% | findstr .

延时是采用3742668兄的代码，不过效果我觉得不怎么好
@echo off
setlocal enabledelayedexpansion
set /a b=81
set a=">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>================================================================================"

:back
cls
for /l %%i in (1,1,20) do @echo.
echo Loading Windows 2000...
set /a b-=1
echo !a:~%b%,80!
if !b! == 1 goto :eof
call :delay 80
goto back

:delay
set /a num=num + 1
if %num% geq %1 (set num=) && goto :eof
goto delay

另
1.jpg为有@echo off 的结果！
2.jpg为没有@echo off的结果！
本来的系统的winxp sp1 ！:o

现在在SP2的环境下测试，情况依旧！

基于以上诸位的探讨
我来给个总结性的发言
批处理如下


@echo off
setlocal EnableDelayedExpansion

set _tmp_F_S=C:\_delay.vbs
set _tmp_F_F=C:\_tmp.tmp
set delay=50
set s1=开机
set s2=快开机
set s3=他妈的开机
set s4=你他妈到底开不开机
set s5=操！！再不开机老子砸了你！！
echo if WScript.Arguments.count = 1 then WScript.Sleep CInt(WScript.Arguments(0)) end if>%_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
for /L %%i in (1,1,4) do (call :show %%s%%i%% && call :fail %%s%%i%%)
call :show %s5%
call :suc
if exist %_tmp_F_S% del %_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
ping -n 1 127.1>nul
goto :EOF

:show
if "%~1"=="" goto :EOF
set s=%1
set /p ans=%cd%^><nul
set /A len=0
:comp_len
echo %%s:~%len%,1%% | find "ECHO">nul && goto end_comp
set /A "len+=1"
goto comp_len
:end_comp
set /A "len-=1"
for /L %%i in (0,1,%len%) do (cscript //nologo %_tmp_F_S% %delay% && set /p ans=!s:~%%i,1!<nul)
cscript //nologo %_tmp_F_S% 500
echo.
echo %cd%^>%1>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:fail
echo '%1' 不是内部或外部命令，也不是可运行的程序
echo 或批处理文件。
echo.
echo '%1' 不是内部或外部命令，也不是可运行的程序>>%_tmp_F_F%
echo 或批处理文件。>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:suc
ping -n 1 127.1>nul
set eqq================================================================================
set gtr=^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>
echo                            Loading Windows 2000 ...>>%_tmp_F_F%
echo.>>%_tmp_F_F%
for /L %%i in (0,1,79) do (set /A new=2*%%i && type %_tmp_F_F% && echo !gtr:~0,%%i!!eqq:~%%i,80! && ping -n 1 127.1>nul && cls)
goto :EOF

Originally posted by my3439955 at 2006-10-2 03:49:
基于以上诸位的探讨
我来给个总结性的发言
批处理如下

@echo off setlocal EnableDelayedExpansion set _tmp_F_S=C:\_delay.vbs set _tmp_F_F=C:\_tmp.tmp set delay ... 行是行/但是到了最后会一直重复前面的内容

不明白楼上的意思
是不是说最后屏幕的闪烁?

@echo off
color 1f
title.
mode con lines=10
rem 进度条 ▉▉▉▉▉
set work=0
set n=0
set mo=0
set number=0
rem all是总数
set all=60
set time=%all%
:show

:check
if %number% GTR %mo% set num=%num%▉&set /a mo=%mo%+1&goto check

:2

cls
echo 进度： %n% / %all% 剩余时间:%time%秒
echo.
echo.
echo 完成 %work% %%%
echo.
if not "%num%"=="" echo %num%
if not "%num%"=="" echo %num%

if %work%==100 goto end

ping 127.1 -n 3 >nul
set /a n=%n%+1
set /a time=%all%-%n%
set /a work=(%n%)*100/(%all%)
set /a number=%work%/3
set /a number=%number%+1
goto show
endlocal

:end
endlocal
pause>nul

很有意思的，试了一下，真的可行。

太精彩了！！！

Originally posted by bg at 2006-10-8 23:43:
@echo off
color 1f
title.
mode con lines=10
rem 进度条 ▉▉▉▉▉
set work=0
set n=0
set mo=0
set number=0
rem all是总数
set all=60
set time=%all%
:show

:check
if %num ...

很好哈~正想要这个的

就是,晕,抄也不写出处,bs

第16楼　3742668	发表于 2006-05-16 19:53
荣誉版主　发帖 718　积分 2,013
还有版主下面代码为什么只显示 b%%而不是123? 变量不可以堪套吗? CODE: -------------------------------------------------------------------------------- set a=123456789 set b=3 echo %a:~0,%b%% 这就是为什么要用setlocal ENABLEDELAYEDEXPANSION来启用延时的环境变量的原因。当然，并不是说不启用延时的环境变量就不能实现变量的嵌套，比如用显示命令的叠加来转换: echo %a:~0,^%b%^% \| findstr .

第17楼　doscc	发表于 2006-05-16 20:45
中级用户　发帖 93　积分 256　来自广东
谢谢了

第18楼　bagpipe	发表于 2006-05-17 11:23
银牌会员　发帖 425　积分 1,144　来自北京
延时是采用3742668兄的代码，不过效果我觉得不怎么好 @echo off setlocal enabledelayedexpansion set /a b=81 set a=">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>================================================================================" :back cls for /l %%i in (1,1,20) do @echo. echo Loading Windows 2000... set /a b-=1 echo !a:~%b%,80! if !b! == 1 goto :eof call :delay 80 goto back :delay set /a num=num + 1 if %num% geq %1 (set num=) && goto :eof goto delay

第19楼　maya0su	发表于 2006-07-24 16:25
中级用户　发帖 131　积分 241
另 1.jpg为有@echo off 的结果！ 2.jpg为没有@echo off的结果！本来的系统的winxp sp1 ！:o 附件 1.JPG (95.48 KiB) 2.JPG (60.48 KiB)

第20楼　maya0su	发表于 2006-07-26 02:59
中级用户　发帖 131　积分 241
现在在SP2的环境下测试，情况依旧！

第21楼　voiL	发表于 2006-07-27 05:22
中级用户　发帖 189　积分 384
XP SP2运行正常. 附件 111.JPG (9.62 KiB)

第22楼　my3439955	发表于 2006-10-02 03:49
中级用户　发帖 99　积分 272
基于以上诸位的探讨我来给个总结性的发言批处理如下 @echo off setlocal EnableDelayedExpansion set _tmp_F_S=C:\_delay.vbs set _tmp_F_F=C:\_tmp.tmp set delay=50 set s1=开机 set s2=快开机 set s3=他妈的开机 set s4=你他妈到底开不开机 set s5=操！！再不开机老子砸了你！！ echo if WScript.Arguments.count = 1 then WScript.Sleep CInt(WScript.Arguments(0)) end if>%_tmp_F_S% if exist %_tmp_F_F% del %_tmp_F_F% for /L %%i in (1,1,4) do (call :show %%s%%i%% && call :fail %%s%%i%%) call :show %s5% call :suc if exist %_tmp_F_S% del %_tmp_F_S% if exist %_tmp_F_F% del %_tmp_F_F% ping -n 1 127.1>nul goto :EOF :show if "%~1"=="" goto :EOF set s=%1 set /p ans=%cd%^><nul set /A len=0 :comp_len echo %%s:~%len%,1%% \| find "ECHO">nul && goto end_comp set /A "len+=1" goto comp_len :end_comp set /A "len-=1" for /L %%i in (0,1,%len%) do (cscript //nologo %_tmp_F_S% %delay% && set /p ans=!s:~%%i,1!<nul) cscript //nologo %_tmp_F_S% 500 echo. echo %cd%^>%1>>%_tmp_F_F% echo.>>%_tmp_F_F% goto :EOF :fail echo '%1' 不是内部或外部命令，也不是可运行的程序 echo 或批处理文件。 echo. echo '%1' 不是内部或外部命令，也不是可运行的程序>>%_tmp_F_F% echo 或批处理文件。>>%_tmp_F_F% echo.>>%_tmp_F_F% goto :EOF :suc ping -n 1 127.1>nul set eqq================================================================================ set gtr=^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^> echo Loading Windows 2000 ...>>%_tmp_F_F% echo.>>%_tmp_F_F% for /L %%i in (0,1,79) do (set /A new=2*%%i && type %_tmp_F_F% && echo !gtr:~0,%%i!!eqq:~%%i,80! && ping -n 1 127.1>nul && cls) goto :EOF

第23楼　gzdx0615	发表于 2006-10-03 09:08
新手上路　发帖 3　积分 10
Originally posted by my3439955 at 2006-10-2 03:49: 基于以上诸位的探讨我来给个总结性的发言批处理如下 @echo off setlocal EnableDelayedExpansion set _tmp_F_S=C:\_delay.vbs set _tmp_F_F=C:\_tmp.tmp set delay ... 行是行/但是到了最后会一直重复前面的内容

第24楼　my3439955	发表于 2006-10-05 22:28
中级用户　发帖 99　积分 272
不明白楼上的意思是不是说最后屏幕的闪烁?

第25楼　bg	发表于 2006-10-08 23:43
初级用户　发帖 34　积分 118
我写的，个人感觉还好。 @echo off color 1f title. mode con lines=10 rem 进度条 ▉▉▉▉▉ set work=0 set n=0 set mo=0 set number=0 rem all是总数 set all=60 set time=%all% :show :check if %number% GTR %mo% set num=%num%▉&set /a mo=%mo%+1&goto check :2 cls echo 进度： %n% / %all% 剩余时间:%time%秒 echo. echo. echo 完成 %work% %%% echo. if not "%num%"=="" echo %num% if not "%num%"=="" echo %num% if %work%==100 goto end ping 127.1 -n 3 >nul set /a n=%n%+1 set /a time=%all%-%n% set /a work=(%n%)*100/(%all%) set /a number=%work%/3 set /a number=%number%+1 goto show endlocal :end endlocal pause>nul

第26楼　weilong888	发表于 2006-10-09 01:01
银牌会员　发帖 548　积分 1,270
很有意思的，试了一下，真的可行。

第27楼　h2o	发表于 2006-10-09 10:42
初级用户　发帖 18　积分 44
太精彩了！！！

第28楼　vkill	发表于 2006-10-09 21:51
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by bg at 2006-10-8 23:43: @echo off color 1f title. mode con lines=10 rem 进度条 ▉▉▉▉▉ set work=0 set n=0 set mo=0 set number=0 rem all是总数 set all=60 set time=%all% :show :check if %num ... 很好哈~正想要这个的

第29楼　electronixtar	发表于 2006-11-04 11:46
铂金会员　发帖 2,672　积分 7,493
http://forum.dirshell.com/read.php?tid=1309&keyword= 有内奸。拖出去毙了

第30楼　vkill	发表于 2006-11-05 05:39
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
就是,晕,抄也不写出处,bs