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://bathome.net./) Powered by Discuz! 7.2