Board logo

标题: [游戏娱乐] 批处理之家论坛网站宣传小动画 [打印本页]
作者: batman    时间: 2008-8-3 13:09     标题: 批处理之家论坛网站宣传小动画

  1. @echo off&setlocal enabledelayedexpansion

  2. title made by batman 2008-08-02

  3. :begin

  4. echo.&echo.&echo.&echo.&set "n=0"&set "m=0"

  5. for /f "skip=26 delims=" %%a in (%~fs0) do (

  6.     for %%i in (0 5 10) do if !n! equ %%i set /a a=!random!%%10

  7.     set "str=%%a"&set /a n+=1

  8.     for %%m in (6 11) do if !n! equ %%m echo.&echo.

  9.     if !n! neq 11 call :sp "%%a"&echo.

  10. )

  11. call :sp "no" 80

  12. set "var=%str%"

  13. :lp

  14. set /p b=%var:~,1%<nul&set "var=%var:~1%"

  15. for /l %%i in (1,1,100) do echo>nul

  16. if defined var goto lp

  17. :loop 

  18. call :sp "no" 80

  19. call :sp "%str%"

  20. set /a m+=1&if !m! lss 10 goto loop

  21. del /q ●* *-*>nul 2>nul

  22. ping /n 3 127.1>nul&cls&goto begin 

  23. :sp

  24. if %1 neq "no" set /p= <nul>%1&findstr /a:0%a% .* %1*

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

  26. del /q ●* *-*>nul 2>nul&goto :eof

  27.                ●●●●    ●●●●  ●●●●●

  28.               ●      ● ●      ●     ●

  29.              ●●●●● ●●●●●     ●

  30.             ●      ● ●      ●     ●

  31.            ●●●●● ●      ●     ●

  32.                     ●      ●  ●●●●   ●●●●   ●●●●●

  33.                    ●      ● ●      ● ●  ●   ● ●

  34.                   ●●●●● ●      ● ●  ●   ● ●●●●

  35.                  ●      ● ●      ● ●  ●   ● ●

  36.                 ●      ●  ●●●●  ●  ●   ● ●●●●●

  37.          www.bathome.net ----- It's the best professional batwebsite。
复制代码
作者: batman    时间: 2008-8-3 20:03

更新版：
  1. @echo off&setlocal enabledelayedexpansion

  2. color 1f&title made by batman 2008-08-02

  3. :begin

  4. echo.&echo.&echo.&echo.

  5. for /f "skip=32 delims=" %%a in (%~fs0) do (

  6.     for %%i in (0 5 10) do if !n! equ %%i set /a a=!random!%%9+1

  7.     set "str=%%a"&set /a n+=1

  8.     for %%m in (6 11) do if !n! equ %%m echo.&echo.

  9.     if !n! lss 11 (

  10.        call :sp "%%a"&echo.

  11.        ) else (

  12.        set "var=!str!"&call :step

  13.        if !n! geq 15 call :lp

  14.     )

  15. )

  16. pause>nul&goto :eof

  17. :lp 

  18. call :sp "no" 80

  19. call :sp "%str%"

  20. set /a m+=1&if !m! lss 5 goto lp

  21. if %n% equ 15 ping /n 2 127.1>nul&echo.&echo.

  22. set "m=-5"&set /a a=%random%%%9+1&goto :eof

  23. :step

  24. set /p b=%var:~,1%<nul&set "var=%var:~1%"

  25. for /l %%i in (1,1,200) do echo>nul

  26. if defined var goto step 

  27. ping /n 2 127.1>nul

  28. call :sp "no" 80&goto :eof

  29. :sp

  30. if %1 neq "no" set /p= <nul>%1&findstr /a:0%a% .* %1*

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

  32. del /q ●* 精* *-*>nul 2>nul&goto :eof

  33.                ●●●●    ●●●●  ●●●●●

  34.               ●      ● ●      ●     ●

  35.              ●●●●● ●●●●●     ●

  36.             ●      ● ●      ●     ●

  37.            ●●●●● ●      ●     ●

  38.                     ●      ●  ●●●●   ●●●●   ●●●●●

  39.                    ●      ● ●      ● ●  ●   ● ●

  40.                   ●●●●● ●      ● ●  ●   ● ●●●●

  41.                  ●      ● ●      ● ●  ●   ● ●

  42.                 ●      ●  ●●●●  ●  ●   ● ●●●●●

  43.                           我们，在Windows窗前

  44.                     为了追逐的梦，叩响CMD深邃的大门

  45.                    多少回挑灯夜战，又多少次彻夜难眠

  46.                  身心虽已疲倦，然心中却有个坚定的信念：

  47.                   精益求精力求完美，不言最好只求更高

  48.          www.bathome.net ----- It's the best professional batwebsite。
复制代码

[ 本帖最后由 batman 于 2008-8-3 21:24 编辑 ]
作者: 523066680    时间: 2008-8-3 20:48     标题: 占占你的光(*^__^*)

  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set fu= ^/ ^\

  4. set "kong=                                                                            "

  5. set "kong2=____________________________________________________________________________"

  6. set /a a=0,b=0,e=2,tiao=0

  7. :a

  8. set /a b+=1,c=30-%b%+%e%

  9. cls

  10. echo,  if_exist 回BatHome的路上…… 

  11. for /l %%a in (1,1,6) do echo,

  12. echo,!kong:~0,%b%!_ @

  13. echo,!kong:~0,%b%! ^/

  14. echo,!kong2:~0,%b%!!fu:~%a%,2!!kong2:~0,%c%!

  15. ping -n>nul

  16. if %a% equ 4 (set /a a=0) else (set /a a+=1)

  17. if %a% leq 2 (set e=2) 

  18. if %a% equ 3 (set e=3) 

  19. if %a% equ 4 (set e=4)

  20. if not %b% equ 30 goto :a else goto :b

  21. set /a b=30,j=0,k=6

  22. :b

  23. if not %j% equ 6 (set /a j+=1,tiao=%j%) else (set /a k-=1,tiao=%k%)

  24. set /a b+=1,up=6-%tiao%

  25. cls

  26. for /l %%a in (1,1,%up%) do echo,

  27. echo,!kong:~0,%b%!  @/

  28. echo,!kong:~0,%b%!^<^/

  29. echo,!kong:~0,%b%!!/^>

  30. for /l %%a in (1,1,%tiao%) do echo,

  31. echo,!kong2:~0,30!

  32. ping -n>nul&ping -n>nul

  33. if %a% equ 4 (set /a a=0) else (set /a a+=1)

  34. if %k%==0 (goto :c1) else (goto :b)

  35. :c1

  36. set /a cc=0,dd=0

  37. set call1=嘿嘿,到家啦！

  38. :c

  39. if not %tiao% equ 10 set /a tiao+=1 

  40. if not %b% equ 60 set /a b+=1

  41. if not "%cc%" == "30" (set /a cc+=1,num=30-%cc%)

  42. if "%cc%"=="30" if not "%dd%"=="30" set /a dd+=1

  43. cls

  44. for /l %%a in (1,1,9) do echo,

  45. echo,!kong2:~0,%num%!

  46. for /l %%a in (1,1,%tiao%) do echo,

  47. if %tiao% equ 10 echo,!kong:~0,%b%!!call1:~0,%dd%!

  48. echo,!kong:~0,%b%!_ @   

  49. echo,!kong:~0,%b%! ^/\  

  50. echo,!kong:~0,%b%!!fu:~%a%,2! 

  51. if %tiao% lss 10 (ping -n>nul&ping -n>nul&ping -n>nul) else (ping -n>nul)

  52. if %a% equ 4 (set /a a=0) else (set /a a+=1)

  53. if "%dd%"=="30" (ping -n 2 127.1>nul &goto :d1) else (goto :c)

  54. :d1

  55. set name= W E L C O M E  B A T H O M E

  56. set /a a=0

  57. cls

  58. color 02

  59. :dd

  60. if %time:~10,1% lss 3 set /a a+=1 

  61. set an=%random%%random%%random%%random%%random%%random%%random%%random%%random%

  62. set an=%an:~0,20%!name:~0,%a%!%an:~20%

  63. if %a% equ 32 set an=                       W E l C O M E  B A T H O M E &color 0a

  64. cls

  65. echo.&echo.&echo.

  66. echo.       ●●●●    ●●●●  ●●●●●

  67. echo.      ●      ● ●      ●     ●

  68. echo.     ●●●●● ●●●●●     ●

  69. echo.    ●      ● ●      ●     ●

  70. echo.   ●●●●● ●      ●     ●

  71. echo.

  72. echo.

  73. echo.            ●      ●  ●●●●   ●●●●   ●●●●●

  74. echo.           ●      ● ●      ● ●  ●   ● ●

  75. echo.          ●●●●● ●      ● ●  ●   ● ●●●●

  76. echo.         ●      ● ●      ● ●  ●   ● ●

  77. echo.        ●      ●  ●●●●  ●  ●   ● ●●●●●

  78. echo.

  79. echo.      %an%

  80. echo.&echo.&echo.

  81. echo. @ 哇 

  82. echo.^<^|\

  83. echo./ \

  84. ping -n>nul

  85. if %a% lss 32 (goto :dd) else (goto :end)

  86. :end

  87. pause>nul
复制代码

[ 本帖最后由 523066680 于 2008-8-3 21:40 编辑 ]
作者: 523066680    时间: 2008-8-3 21:29     标题: 耶 怪了

我复制batman的代码，保存为zw-bathome.bat
打开的时候就被删掉了也……好像是“-” 搞的  去掉了就没事
作者: batman    时间: 2008-8-3 23:01

最终定稿：
  1. @echo off&setlocal enabledelayedexpansion

  2. color 1f&title made by batman 2008-08-02

  3. :begin

  4. echo.&echo.&echo.&echo.

  5. for /f "skip=44 delims=" %%a in (%~fs0) do (

  6.     set "str=%%a"&set /a n+=1

  7.     if !n! lss 11 (

  8.        if !n! leq 5 (

  9.           set "a=c"

  10.           ) else (

  11.           set "a=a"

  12.        )

  13.        if !n! equ 6 echo.

  14.        call :sp "%%a"&echo.

  15.        ) else (

  16.        if !n! equ 11 echo.&echo.

  17.        set "var=!str!"&call :step

  18.        if !n! equ 15 echo.

  19.        if !n! geq 15 call :lp

  20.     )

  21. )

  22. pause>nul&goto :eof

  23. :lp 

  24. call :sp "no" 80

  25. if %n% equ 15 (

  26.    set "a=f"

  27.    ) else (

  28.    set "a=e"

  29. )

  30. call :sp "%str%"

  31. set /a m+=1

  32. if %m% lss 5 goto lp

  33. if %n% equ 15 ping /n 2 127.1>nul&echo.&echo.

  34. set "m=-5"&goto :eof

  35. :step

  36. set /p b=%var:~,1%<nul&set "var=%var:~1%"

  37. for /l %%i in (1,1,200) do echo>nul

  38. if defined var goto step 

  39. ping /n 2 127.1>nul

  40. call :sp "no" 80&goto :eof

  41. :sp

  42. if %1 neq "no" set /p= <nul>%1&findstr /a:1%a% .* %1*

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

  44. del /q %1*>nul 2>nul&goto :eof

  45.                ●●●●    ●●●●  ●●●●●

  46.               ●      ● ●      ●     ●

  47.              ●●●●● ●●●●●     ●

  48.             ●      ● ●      ●     ●

  49.            ●●●●● ●      ●     ●

  50.                     ●      ●  ●●●●   ●●●●   ●●●●●

  51.                    ●      ● ●      ● ●  ●   ● ●

  52.                   ●●●●● ●      ● ●  ●   ● ●●●●

  53.                  ●      ● ●      ● ●  ●   ● ●

  54.                 ●      ●  ●●●●  ●  ●   ● ●●●●●

  55.                             我们，在Windows窗前

  56.                       为了追逐的梦，叩响CMD深邃的大门

  57.                      多少回挑灯夜战，又多少次彻夜难眠

  58.                    身心虽已疲倦，然心中却有个坚定的信念：

  59.                      精益求精缔造完美，不言最好只求更高

  60.          www.bathome.net ----- It's the best professional batwebsite
复制代码


[ 本帖最后由 batman 于 2008-8-3 23:11 编辑 ]
作者: tjtchly    时间: 2008-8-7 20:44

很高深呀，学习学习。
作者: 523066680    时间: 2008-8-13 07:48

还是喜欢第一楼的效果 --黑影
作者: jellyhk    时间: 2008-10-6 19:21

本人初学！
问下 斑竹是怎么做到bat和home的颜色不一？
我怎么没看见color??请教！
作者: batman    时间: 2008-10-6 21:04

原帖由 jellyhk 于 2008-10-6 19:21 发表
本人初学！
问下 斑竹是怎么做到bat和home的颜色不一？
我怎么没看见color??请教！

颜色是在这个标签内实现变化的：
  1. :sp

  2. if %1 neq "no" set /p= <nul>%1&findstr /a:1%a% .* %1*

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

  4. del /q %1*>nul 2>nul&goto :eof
复制代码
在cmd中键入findstr /?，你会看到这样一行： [/A:attr   指定有十六进位数字的颜色属性。
请见 "color /?"]，但这样的帮助信息会让你看得云里雾里，我就结合上面的代码来稍做下
说明：当findstr 后面跟/a:的开关时将会以紧跟在":"号后的两个颜色编码（前面一个是背景
，后面的一个是字符颜色）来输出查找内容（注意这个内容是彩色的文件名加":"号，后面
紧跟文件本身内容），我们先来段代码以帮助理解：
有文本a.txt内容如下
  1. bathome is the best webbbs
复制代码
在cmd中键入findstr /a:1f .* *a.txt（注意后面的*是通配符是必加的）
你会发现会输出如下内容：
[attach]446[/attach]
现在如文本内容为空，是不是仅会输出彩色的文件名了加":"号了，那么我们怎么去掉这个":"
号呢，我们就来认识一下神奇的退格符""了，退格符顾名思义就是退一格，而这个退一格
是将光标退一格，那么当标退格后再次输入的内容将会覆盖前面的内容，于是我们只要在a.txt
中输入" "（退格符+空格+退格符）是不是就将这个":"去掉了，而当sp标签的第一句命令：
if %1 neq "no" set /p= <nul>%1&findstr /a:1%a% .* %1*中的%a%和%1两个参数发生变化
屏幕输出内容和输出颜色就会相应进行变化，只是这样会每次生成一个以%1命名的文件，所以
标签中最后来个句：del /q %1*>nul 2>nul&goto :eof输出后再将生成的临时文件删除。

[ 本帖最后由 batman 于 2008-10-6 21:06 编辑 ]
作者: ljl    时间: 2008-11-27 15:41

都是高手啊，我怎么就不能编出来了
作者: lifenjoiner    时间: 2010-9-25 20:53     标题: 回复 9楼 的帖子

原帖有误，现已纠正。

[ 本帖最后由 lifenjoiner 于 2010-10-1 21:40 编辑 ]
作者: Batcher    时间: 2010-9-25 22:05     标题: 回复 11楼 的帖子

不可以
你应该向他请教一下为啥那样写^_^
作者: bbwanwt123    时间: 2010-10-1 14:54

我保存成bat格式

为什么运行部出来啊
作者: lifenjoiner    时间: 2010-10-1 21:34     标题: 回复 12楼 的帖子

呵呵，谢了，原理我明白。

[ 本帖最后由 lifenjoiner 于 2010-10-1 21:52 编辑 ]
作者: cuipengfei    时间: 2010-10-12 11:32

三楼的那个代码是怎么编的？看不懂！
作者: wc726842270    时间: 2010-10-26 09:53     标题: 回复 9楼 的帖子

“findstr /a:1f .* *a.txt”后面的通配符是干什么的啊
作者: hack1994    时间: 2010-12-26 16:40

●●●●  ●●●●    ●●    ●●●●  ●●●●  ●●●●  ●●●●  ●●●●  ●  ●●●●
     ●   ●         ● ●    ●    ●  ●    ●  ●    ●  ●    ●       ●   ●  ●
    ●    ●●●●  ●  ●    ●    ●  ●    ●  ●●●●  ●●●●      ●    ●  ●●●●
   ●     ●    ●  ●●●●  ●    ●  ●    ●  ●    ●  ●    ●     ●     ●        ●
  ●      ●    ●      ●    ●    ●  ●    ●  ●    ●  ●    ●    ●      ●        ●
●       ●●●●      ●    ●●●●  ●●●●  ●●●●  ●●●●   ●       ●  ●●●●
作者: 慕夜蓝化    时间: 2014-12-15 09:59

>_<！！！！
强！ ，我只为了改变批处理中一行颜色的字体，来到了这里，没想到那么的厉害。
大家！赞赞赞！



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