Board logo

标题: [游戏娱乐] 随风版批处理之家论坛bat广告 [打印本页]
作者: 随风    时间: 2007-12-2 02:50     标题: 随风版批处理之家论坛bat广告

各位，看看我为论坛准备的 bat 批处理广告。
总算是完成了，考虑到网上很多地方不能正确的处理代码中的空格，
所以每句都用括弧包了起来，并且凡是有连续空格的地方，都用变量来代替。
其实有些变量已经加了引号，再用括弧包起来，实在有点画蛇添足，也懒的改了。
计算cmd窗口尺寸部分实在很“蹩脚”不知道怎么计算，最后是套出来的。看各位有什么好方法没有。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
代码有 五个 动画特效
   效果一、 进度条
   效果二、 下拉显示字符画 “批处理”
   效果三、 逐字显示广告词。
   效果四、 文字闪烁。
   效果五、 以上每个特效出来之前cmd窗口都会逐渐缩小、放大一次，并且不断改变颜色。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
广告词由 namejm  编写。
两个效果一样的代码     易懂的代码以后再写吧，今天没精神了。
   一个“晦涩难读” 一个 “通俗易懂”  诸位看看用哪个合适？
代码一、
   为“炫耀”技术和增加“神秘感”使用了大量的符号作为变量名，并特意绕了很大的弯路，以使代码“难读”。
   代码的第二个“特效”即：显示“批处理”思路及原代码，由会员“泛滥棏慌”提供，我只作了稍许改动。
:
  1. @echo off&setlocal EnableDelayedExpansion

  2. goto start_1

  3. 我们，是一群执著的批处理爱好者

  4. 在色彩斑斓的Windows下，开启CMD这扇深邃的窗口

  5. 曾经挑灯夜战，曾经彻夜不眠

  6. 我们之所以如此似痴若狂，是因为我们深知：

  7. 尺有所短、寸有所长，CMD不同凡响

  8. 我们精益求精，力求完美

  9. 所有的努力，只为了用最简洁的语言，编写最具实用性的代码

  10. 批处理之家  bbs.bathome.net

  11. 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园

  12. 不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在 ～～ 批处理之家 ～～

  13. :start_1

  14. (set num1=90&set num2=15&set "ko= ")

  15. (mode con: cols=!num1! lines=!num2!)

  16. (set k4=!ko!!ko!!ko!!ko!)

  17. (title code by 随风  2007-12-1  @bbs.bathome.net)

  18. for /l %%a in (1 1 5) do (set yanse=!yanse!abcdef123456789)

  19. (set fang=■&echo.&echo.&set ",=0123456789"&set "hanghao=12")

  20. for /l,%%a,in,(1,1,20),do,(set k=!k!!ko!)

  21. for /f,"tokens=1* delims=:" %%a,in,('findstr /n .* "%~0"'),do,(

  22. if,%%a,leq,%hanghao%,(set _%%a=%%b))

  23. (set "_1=%k%批处理之家!ko!!ko!bbs.bathome.net!ko!!ko!欢迎您")

  24. (set "_2=!k4!!k4!!ko!!ko!网址：bbs.bathome.net")

  25. (set "_2=!_2!!k4!群号：43011867!k4!站长：youxi01")

  26. (set sans=!k4!!k4!!ko!────!k4!批处理之家!ko!!ko!bbs.bathome.net!k4!!ko!)

  27. ::======================================================================

  28. call :cuko

  29. for /l %%a in (1 1 28) do (set "kkk= !kkk!")

  30. (set kait=%kkk%批处理之家!ko!!ko!bbs.bathome.net!ko!!ko!欢迎您)

  31. echo\&echo\&echo\

  32. for /l %%k in (0 1 100) do (

  33. if not "!kait:~%%k,1"=="" (set/p=!kait:~%%k,1!<nul)

  34. for /l %%i in (1 1 100) do ver>nul)

  35. (echo.&echo.&echo.&echo.&set/p=!k4!!k4!!ko!!ko!!ko!<nul)

  36. for /l %%a in (1 1 33) do (

  37. (set /a jind=%%a*3)

  38. (set "jind=!k4!!jind!")

  39. (set "jind=!jind:~-3!")

  40. (set /p=%fang%!jind!%%<nul)

  41. (set /p=<nul)

  42. for /l %%i in (1 1 300) do ver>nul)

  43. (set/p= 100%%<nul)&(ping/n 3 127.1>nul)

  44. call :cuko

  45. call :texiao

  46. call :cuko 17

  47. echo CMD-BAT

  48. for /l,%%a,in,(1,1,%hanghao%),do,(

  49. (set "]=0")

  50. for /l,%%i,in,(0,1,100),do,(

  51. (set /=!_%%a!)

  52. if,not,"!_%%a:~%%i,1!"=="",(set /a]+=1))

  53. call :lis

  54. if %%a equ 2 echo.)

  55. (echo\&echo\&echo\&color 1a)

  56. (set/p=!sans!<nul)

  57. goto sansuo

  58. :lis

  59. (echo\&echo\&set/p= !k4!<nul)

  60. (set /a "\=!]:~0,1!")

  61. set/a?=1/(1/!]:~-1!)2>nul||(set "/=!/! ")

  62. set/a?=1/(10/])2>nul&&(set \=1&set:=1)||(set:=0)

  63. for /l,%%a,in,(!:! 1 !\!),do,(

  64. (set "{=")

  65. if,%%a,equ,!\!,(set }=!]:~-1!),else,(set }=9)

  66. for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)

  67. call :xs)

  68. goto :eof

  69. :xs

  70. for /l,%%k,in,(0 1 !}!),do,(

  71. (call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul)

  72. for /l,%%i,in,(1,1,200),do,ver>nul)

  73. (set /a "sq=}+1")

  74. (call,set "/=%%/:~!sq!%%")

  75. goto :eof

  76. :cuko

  77. (set quese=0&set ookk=)&(set bai1=-&set bai2=-)

  78. for /l %%i in (1,1,72) do (

  79. for /l %%h in (2 2 72) do (if "%%i"=="%%h" set ookk=a)

  80. (call set pys=%%yanse:~!quese!,1%%)

  81. (color !pys!1)

  82. (if defined ookk set /a quese+=1&set ookk=)

  83. (if %%i gtr 36 set bai1=+)

  84. (if !num2! equ 3 set bai2=+)

  85. if not "%1"=="" (

  86. if not defined llis if !num2! equ %~1 set bai2=-&set llis=a)

  87. (if "%1"=="" if !num2! equ 15 set bai2=-)

  88. (set /a num1!bai1!=2&set /a num2!bai2!=1)

  89. (mode con cols=!num1! lines=!num2!))

  90. (color 1f)

  91. for /l %%a in (1 1 1500) do (ver>nul)

  92. goto :eof

  93. :sansuo

  94. endlocal&(set k16=%k4%%k4%%k4%%k4%)

  95. set _=0&set ")=%k16%"&(set "(=欢迎您的加入 !!!")

  96. set "T="

  97. :loop

  98. (set/p=%(%<nul)

  99. if,%_%,geq,500,echo.&echo.&echo.&pause&exit

  100. (set/p=%T%<nul)

  101. (for /l,%%i,in,(1,1,1500),do,ver>nul)

  102. set (=%)%&set ")=%(%"&(set/a "_+=1")

  103. goto loop

  104. :texiao 以下代码 作者：泛滥棏慌

  105. echo\&echo\

  106. set pcl=8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8

  107. for %%i in (!pcl!) do (

  108. if "%%i"=="，" (echo.&for /l %%a in (1 1 300) do ver>nul)

  109. (set a=%%i)&(set b=!a:-=!)

  110. if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (

  111. for /l %%k in (1,1,%%i) do (set/p= <nul)))

  112. (ping/n 3 127.1>nul)

  113. goto :eof
复制代码
作者: youxi01    时间: 2007-12-2 08:00

是不是应该 放到 其它的版块让大家来评评
作者: smilediao    时间: 2007-12-2 09:59

“批处理之家，今天你注册了么？”
哈哈。。。。。
代码的效果很不错啊！
作者: 随风    时间: 2007-12-2 16:37

打算再加点动画、
作者: novaa    时间: 2007-12-2 19:14

技术强！
讲解下吧，难度很大！
作者: foxJL    时间: 2007-12-2 22:51

我YY了一小段,请 普通人 别见怪~!
  1. @echo off&setlocal enabledelayedexpansion

  2. goto start_1

  3. 我们，是一群执著的批处理爱好者

  4. 在色彩斑斓的Windows下，开启CMD这扇深邃的窗口

  5. 曾经挑灯夜战，曾经彻夜不眠

  6. 我们之所以如此似痴若狂，是因为我们深知：

  7. 尺有所短、寸有所长，CMD不同凡响

  8. 我们精益求精，力求完美

  9. 所有的努力，只为了用最简洁的语言，编写最具实用性的代码

  10. 批处理之家  bbs.bathome.net

  11. 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园

  12. 不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在 ～～ 批处理之家 ～～

  13. :start_1

  14. title code by 小楼一夜听春雨  2007-12-1  bbs.bathome.net

  15. mode con cols=112 lines=10 &color 9f

  16. set fang=■&echo.&echo.

  17. for /l %%a in (1 1 35) do set kkk= !kkk!

  18. echo %kkk%批处理之家  bbs.bathome.net  欢迎您

  19. echo.&echo.&set/p=    <nul

  20. for /l %%a in (1 1 50) do (

  21. set /a jind=%%a*2

  22. set jind=   !jind!

  23. set jind=!jind:~-3!

  24. set /p=%fang%!jind!%%<nul

  25. set /p=<nul

  26. for /l %%i in (1 1 1000) do ver>nul

  27. )

  28. mode con: cols=90 lines=40

  29. ECHO CMD-BAT

  30. ::下面一小段code by 泛滥棏慌°

  31. for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do ((if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)

  32. if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)))

  33. set ",=0123456789"&set "hanghao=12"

  34. for /l,%%a,in,(1,1,20),do,set "k= !k!"

  35. for /f,"tokens=1* delims=:" %%a,in,('findstr /n .* "%~0"'),do,(

  36.   if,%%a,leq,%hanghao%,(set _%%a=%%b)

  37. )

  38. set "_1=%k%批处理之家  bbs.bathome.net  欢迎您"

  39. set "_2=          网址：bbs.bathome.net"

  40. set "_2=!_2!    群号：43011867    站长：youxi01"

  41. for /l,%%a,in,(1,1,%hanghao%),do,(

  42.   set "]=0"

  43.   for /l,%%i,in,(0,1,100),do,(

  44.     (set /=!_%%a!)

  45.     if,not,"!_%%a:~%%i,1!"=="",(set /a]+=1)

  46.   )

  47.   call :lis

  48.   if %%a equ 2 echo.

  49. )

  50. echo\&echo\&echo\

  51. set/p=         ────    批处理之家  bbs.bathome.net     <nul

  52. endlocal&color 1a

  53. set _=0&set ")=                "&set "(=欢迎您的加入 !!!"

  54. set "T="

  55. :loop

  56. set/p=%(%<nul

  57. if,%_%,geq,500,echo.&echo.&echo.&pause&exit

  58. set/p=%T%<nul

  59. for /l,%%i,in,(1,1,1500),do,ver>nul

  60. set (=%)%&set ")=%(%"&set/a "_+=1"

  61. goto loop

  62. :lis

  63. echo\&echo\

  64. set/p=     <nul

  65. set /a "\=!]:~0,1!"

  66. set/a?=1/(1/!]:~-1!)2>nul||(set "/=!/! ")

  67. set/a?=1/(10/])2>nul&&(set \=1&set:=1)||(set:=0)

  68. for /l,%%a,in,(!:! 1 !\!),do,(

  69. set "{="

  70. if,%%a,equ,!\!,(set }=!]:~-1!),else,(set }=9)

  71. for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)

  72. call :xs

  73. )

  74. goto :eof

  75. :xs

  76. for /l,%%k,in,(0 1 !}!),do,(

  77. call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul

  78. for /l,%%i,in,(1,1,200),do,ver>nul

  79. )

  80. set /a "sq=}+1"

  81. call,set "/=%%/:~!sq!%%"

  82. goto :eof
复制代码

[ 本帖最后由 泛滥棏慌° 于 2007-12-3 00:02 编辑 ]
作者: 随风    时间: 2007-12-3 02:49

楼上不错，在你的启发下，再来一个

:
  1. @echo off&setlocal EnableDelayedExpansion

  2. goto start_1

  3. 我们，是一群执著的批处理爱好者

  4. 在色彩斑斓的Windows下，开启CMD这扇深邃的窗口

  5. 曾经挑灯夜战，曾经彻夜不眠

  6. 我们之所以如此似痴若狂，是因为我们深知：

  7. 尺有所短、寸有所长，CMD不同凡响

  8. 我们精益求精，力求完美

  9. 所有的努力，只为了用最简洁的语言，编写最具实用性的代码

  10. 批处理之家  bbs.bathome.net

  11. 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园

  12. 不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在 ～～ 批处理之家 ～～

  13. :start_1

  14. title code by 小楼一夜听春雨  2007-12-1  bbs.bathome.net

  15. mode con cols=112 lines=10 &color 1f

  16. set fang=■&echo.&echo.

  17. for /l %%a in (1 1 35) do set "kkk= !kkk!"

  18. echo %kkk%批处理之家  bbs.bathome.net  欢迎您

  19. echo.&echo.&set/p=    <nul

  20. for /l %%a in (1 1 50) do (

  21. set /a "jind=%%a*2"

  22. set "jind=   !jind!"

  23. set "jind=!jind:~-3!"

  24. set /p=%fang%!jind!%%<nul

  25. set /p=<nul

  26. for /l %%i in (1 1 1000) do ver>nul

  27. )

  28. call :texiao

  29. color 1f

  30. mode con: cols=90 lines=35

  31. echo CMD-BAT

  32. set ",=0123456789"&set "hanghao=12"

  33. for /l,%%a,in,(1,1,20),do,set "k= !k!"

  34. for /f,"tokens=1* delims=:" %%a,in,('findstr /n .* "%~0"'),do,(

  35.   if,%%a,leq,%hanghao%,(set _%%a=%%b))

  36. set "_1=%k%批处理之家  bbs.bathome.net  欢迎您"

  37. set "_2=          网址：bbs.bathome.net"

  38. set "_2=!_2!    群号：43011867    站长：youxi01"

  39. for /l,%%a,in,(1,1,%hanghao%),do,(

  40.   set "]=0"

  41.   for /l,%%i,in,(0,1,100),do,(

  42.     (set /=!_%%a!)

  43.     if,not,"!_%%a:~%%i,1!"=="",(set /a]+=1)

  44.   )

  45.   call :lis

  46.   if %%a equ 2 echo.

  47. )

  48. echo\&echo\&echo\

  49. set/p=         ────    批处理之家  bbs.bathome.net     <nul

  50. endlocal&color 1a

  51. set _=0&set ")=                "&set "(=欢迎您的加入 !!!"

  52. set "T="

  53. :loop

  54. set/p=%(%<nul

  55. if,%_%,geq,500,echo.&echo.&echo.&pause&exit

  56. set/p=%T%<nul

  57. for /l,%%i,in,(1,1,1500),do,ver>nul

  58. set (=%)%&set ")=%(%"&set/a "_+=1"

  59. goto loop

  60. :lis

  61. echo\&echo\&set/p=     <nul

  62. set /a "\=!]:~0,1!"

  63. set/a?=1/(1/!]:~-1!)2>nul||(set "/=!/! ")

  64. set/a?=1/(10/])2>nul&&(set \=1&set:=1)||(set:=0)

  65. for /l,%%a,in,(!:! 1 !\!),do,(

  66. set "{="

  67. if,%%a,equ,!\!,(set }=!]:~-1!),else,(set }=9)

  68. for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)

  69. call :xs)

  70. goto :eof

  71. :xs

  72. for /l,%%k,in,(0 1 !}!),do,(

  73. call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul

  74. for /l,%%i,in,(1,1,200),do,ver>nul)

  75. set /a "sq=}+1"

  76. call,set "/=%%/:~!sq!%%"

  77. goto :eof

  78. :texiao 以下代码核心思路，作者：泛滥棏慌

  79. set p1= 5 1 4 1 4 1 b 5 1 4 1 4 1 b 1 4 2 1 4 1 b 5 1 4 1 4 1 2 1 b 5 1 4 2 2 2 b 5 2 2 1 4 1 b 1 3 4 1 4 1 b 5 1 4 1 4 1 b 5 1 4 1 2 2 2 1 b 5 1 4 2 2 1 2 1 b 1 3 4 1 4 3 b

  80. set p2=5 1 4 1 4 1 10 1 8 1 b 5 1 4 1 4 1 10 1 8 1 b 1 4 2 1 4 1 10 4 2 1 b 5 1 4 1 4 1 2 1 6 1 4 1 2 2 b 5 1 4 2 2 2 6 1 6 1 2 1 2 1 b 5 2 2 1 4 1 8 1 4 1 4 1 4 1 b 1 3 4 1 4 1 6 1 2 1 2 1 4 1 b 5 1 4 1 4 1 12 1 6 1 b 5 1 4 1 2 2 2 1 8 1 6 1 b 5 1 4 2 2 1 2 1 6 1 2 2 2 1 b 1 3 4 1 4 3 2 2 8 5 b

  81. set p3= 5 1 4 1 4 1 10 1 8 1 16 7 b 5 1 4 1 4 1 10 1 8 1 8 5 4 1 4 1 b 1 4 2 1 4 1 10 4 2 1 12 1 2 7 b 5 1 4 1 4 1 2 1 6 1 4 1 2 2 10 1 2 1 4 1 4 1 b 5 1 4 2 2 2 6 1 6 1 2 1 2 1 4 5 4 1 4 1 b 5 2 2 1 4 1 8 1 4 1 4 1 4 1 6 1 2 7 b 1 3 4 1 4 1 6 1 2 1 2 1 4 1 12 1 8 1 b 5 1 4 1 4 1 12 1 6 1 12 1 4 5 b 5 1 4 1 2 2 2 1 8 1 6 1 12 2 6 1 b 5 1 4 2 2 1 2 1 6 1 2 2 2 1 8 2 10 1 b 1 3 4 1 4 3 2 2 8 5 8 8 b

  82. set p4= 5 1 4 1 4 1 10 1 8 1 16 7 10 1 b 5 1 4 1 4 1 10 1 8 1 8 5 4 1 4 1 12 1 b 1 4 2 1 4 1 10 4 2 1 12 1 2 7 2 9 b 5 1 4 1 4 1 2 1 6 1 4 1 2 2 10 1 2 1 4 1 4 1 16 1 b 5 1 4 2 2 2 6 1 6 1 2 1 2 1 4 5 4 1 4 1 14 1 b 5 2 2 1 4 1 8 1 4 1 4 1 4 1 6 1 2 7 12 1 b 1 3 4 1 4 1 6 1 2 1 2 1 4 1 12 1 8 1 16 1 b 5 1 4 1 4 1 12 1 6 1 12 1 4 5 10 1 b 5 1 4 1 2 2 2 1 8 1 6 1 12 2 6 1 12 1 b 5 1 4 2 2 1 2 1 6 1 2 2 2 1 8 2 10 1 8 2 2 1 b 1 3 4 1 4 3 2 2 8 5 8 8 10 7 b

  83. set p5=5 1 4 1 4 1 10 1 8 1 16 7 10 1 24 1 b 5 1 4 1 4 1 10 1 8 1 8 5 4 1 4 1 12 1 14 10 b 1 4 2 1 4 1 10 4 2 1 12 1 2 7 2 9 6 2 16 1 b 5 1 4 1 4 1 2 1 6 1 4 1 2 2 10 1 2 1 4 1 4 1 16 1 12 7 b 5 1 4 2 2 2 6 1 6 1 2 1 2 1 4 5 4 1 4 1 14 1 16 1 2 1 6 1 b 5 2 2 1 4 1 8 1 4 1 4 1 4 1 6 1 2 7 12 1 16 1 4 1 4 1 b 1 3 4 1 4 1 6 1 2 1 2 1 4 1 12 1 8 1 16 1 14 2 4 1 2 2 b 5 1 4 1 4 1 12 1 6 1 12 1 4 5 10 1 22 1 2 2 2 1 b 5 1 4 1 2 2 2 1 8 1 6 1 12 2 6 1 12 1 20 2 2 1 2 1 4 1 b 5 1 4 2 2 1 2 1 6 1 2 2 2 1 8 2 10 1 8 2 2 1 20 2 4 1 6 1 b 1 3 4 1 4 3 2 2 8 5 8 8 10 7 2 2 4 3 b

  84. cls&color 0a

  85. for /l %%b in (1 1 5) do (

  86. set /a kuandu+=24

  87. mode con: cols=!kuandu! lines=15

  88. echo\&echo\

  89. for %%a in (!p%%b!) do (

  90.   if "%%a"=="b" (echo.&set pd=) else (

  91.     if not defined pd (set ff= &set pd=a) else (set ff=▓&set pd=)

  92.     for /l %%i in (1 1 %%a) do set abc=!abc!!ff!

  93.     set /p=!abc!<nul

  94.     for /l %%l in (1 1 100) do ver>nul

  95.     set abc=

  96. ))

  97.     ping/n 3 127.1>nul

  98. )

  99. goto :eof
复制代码

[ 本帖最后由 随风 于 2007-12-3 17:45 编辑 ]
作者: novaa    时间: 2007-12-3 12:55

哈哈
强！！！
精彩啊！！！
作者: 随风    时间: 2007-12-3 18:41

以在顶楼更新，并增加了功能相同的 “易懂” 代码，
诸位再看看。？
作者: namejm    时间: 2007-12-4 18:15

　　特效越来越炫目了，可喜可贺。提个建议：可以考虑让CMD窗口逐渐增大的特效。演示代码如下：
  1. @echo off

  2. set num1=15

  3. set num2=2

  4. setlocal enabledelayedexpansion

  5. for /l %%i in (1,1,20) do (

  6.     set /a num1+=2&set /a num2+=1

  7.     mode con cols=!num1! lines=!num2!

  8. )

  9. pause
复制代码
作者: 随风    时间: 2007-12-4 18:50

最初也是用的这种特效。
但是发现 mode 每运行一次，都有一个 cls 的效果.
不知namejm 说的是用在哪个特效上？
如果是用在 批处理之家  这几个字上的话，那么屏幕是否会太高了？
能否给出具体的特效代码？
作者: namejm    时间: 2007-12-4 20:01

　　只用在进度条显示完成之后、逐字显示内容之前，把横条窗口逐渐拉长。
作者: 随风    时间: 2007-12-4 23:05

好注意。
已在顶楼更新，
增加了颜色变换，和cmd窗口尺寸逐渐变换功能。
作者: namejm    时间: 2007-12-5 09:43

　　每次都在变换长度和宽度，并且忽长忽短，显得太过动态，观赏性并不是太好，建议改成一直缩小或一直放大的效果，这样显得更流畅一点。
作者: 随风    时间: 2007-12-6 13:52

若改为一直放大或缩小，窗口的底边会一直跳动，给人很不舒服的感觉。
作者: fml520    时间: 2008-3-14 09:45

经典，学习了 ，顶~~~~~~~~~~~
作者: tange    时间: 2008-3-16 13:30

经典，强就一个字！！
作者: 愚无尽    时间: 2008-8-6 20:03

还没进论坛前就在百度中搜素过，看过，确实非常强。
作者: emou    时间: 2008-9-27 17:00

来到批处理之家，真长见识啊！强强强！！！
作者: hlzj88    时间: 2008-11-11 00:31

窗口来回变，有点不适应，
效果不错，但cpu占有率90上下，很高的哇
作者: cbw1982    时间: 2009-1-31 22:36

妈呀，这个东西做的太好了
作者: liugang123200    时间: 2009-4-3 21:38

来到批处理之家，真长见识啊！强强强！！！顶
作者: jinyaxin    时间: 2009-4-17 14:38

一个小小的批处理就能变换真么多花样    真没白来
作者: HappyBat    时间: 2009-5-20 17:07

很好很强大，我是一名新手，非常值得学习！
作者: zhuyusf    时间: 2009-6-7 21:27

强啊！佩服！！！！！
作者: sampeck    时间: 2009-6-26 09:55

现在发现,批处理之家确实不错的.
作者: 骚鸡    时间: 2009-10-4 22:22

高手。。。。。。。。。。
作者: huxu823    时间: 2009-10-30 16:31

研究了半天还是没搞懂啊！
作者: bearyes    时间: 2009-11-10 20:42

哈哈  我也一样  ···
作者: okcmd    时间: 2010-2-20 12:43

精彩
···············
作者: todayambition    时间: 2010-4-12 20:48

随风 namejm   高手哇
作者: pclhhwa    时间: 2010-6-20 15:49

看了半天都蒙了。

高手啊啊啊啊啊啊啊啊啊啊啊啊！！@~！@~！@


顶死你@@！~@~！@
作者: amwfjhh    时间: 2014-11-10 16:23

(call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul)


最初接触批处理的时候，就被一堆%给晕了好几回，几年了，原以为已经习惯了去看一堆%号，想不到看到了这条语句，又不淡定了……一眼数不完啊有木有……！！！
作者: dengyuli    时间: 2014-12-13 19:37

怎么在我这里就变成了一堆“命令语法不正确。”了？



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2