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