[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
batman

Rank: 8Rank: 8

帖子
2702 
积分
14559 
技术
176  
捐助
630  
注册时间
2008-6-16 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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。
复制代码
4

评分人数

收藏 分享
＊＊＊共同提高＊＊＊

batman

Rank: 8Rank: 8

帖子
2702 
积分
14559 
技术
176  
捐助
630  
注册时间
2008-6-16 
2楼
发表于 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 编辑 ]
＊＊＊共同提高＊＊＊

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
3楼
发表于 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 编辑 ]
1

评分人数

FuniCode 编程论坛

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
4楼
发表于 2008-8-3 21:29 | 只看该作者

耶 怪了

我复制batman的代码，保存为zw-bathome.bat
打开的时候就被删掉了也……好像是“-” 搞的  去掉了就没事
FuniCode 编程论坛

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14559 
技术
176  
捐助
630  
注册时间
2008-6-16 
5楼
发表于 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 编辑 ]
＊＊＊共同提高＊＊＊

TOP

tjtchly

Rank: 2

帖子
15 
积分
194 
技术
0  
捐助
0  
注册时间
2008-8-7 
6楼
发表于 2008-8-7 20:44 | 只看该作者
很高深呀，学习学习。

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
7楼
发表于 2008-8-13 07:48 | 只看该作者
还是喜欢第一楼的效果 --黑影
FuniCode 编程论坛

TOP

jellyhk

Rank: 6Rank: 6

帖子
356 
积分
2177 
技术
6  
捐助
0  
注册时间
2008-8-4 
8楼
发表于 2008-10-6 19:21 | 只看该作者
本人初学！
问下 斑竹是怎么做到bat和home的颜色不一？
我怎么没看见color??请教！

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14559 
技术
176  
捐助
630  
注册时间
2008-6-16 
9楼
发表于 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（注意后面的*是通配符是必加的）
你会发现会输出如下内容：

现在如文本内容为空，是不是仅会输出彩色的文件名了加":"号了，那么我们怎么去掉这个":"
号呢，我们就来认识一下神奇的退格符""了，退格符顾名思义就是退一格，而这个退一格
是将光标退一格，那么当标退格后再次输入的内容将会覆盖前面的内容，于是我们只要在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 编辑 ]
附件: 您需要登录才可以下载或查看附件。没有帐号？注册
＊＊＊共同提高＊＊＊

TOP

ljl

Rank: 2

帖子
9 
积分
184 
技术
0  
捐助
0  
注册时间
2008-11-27 
10楼
发表于 2008-11-27 15:41 | 只看该作者
都是高手啊，我怎么就不能编出来了

TOP

lifenjoiner

Rank: 2

帖子
38 
积分
135 
技术
2  
捐助
0  
注册时间
2010-9-19 
11楼
发表于 2010-9-25 20:53 | 只看该作者

回复 9楼 的帖子

原帖有误，现已纠正。

[ 本帖最后由 lifenjoiner 于 2010-10-1 21:40 编辑 ]

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14779 
积分
45953 
技术
847  
捐助
745  
注册时间
2008-6-9 
12楼
发表于 2010-9-25 22:05 | 只看该作者

回复 11楼 的帖子

不可以
你应该向他请教一下为啥那样写^_^
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

bbwanwt123

Rank: 1

帖子
8 
积分
28 
技术
0  
捐助
0  
注册时间
2010-9-30 
13楼
发表于 2010-10-1 14:54 | 只看该作者
我保存成bat格式

为什么运行部出来啊

TOP

lifenjoiner

Rank: 2

帖子
38 
积分
135 
技术
2  
捐助
0  
注册时间
2010-9-19 
14楼
发表于 2010-10-1 21:34 | 只看该作者

回复 12楼 的帖子

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

[ 本帖最后由 lifenjoiner 于 2010-10-1 21:52 编辑 ]

TOP

cuipengfei

Rank: 1

帖子
18 
积分
18 
技术
0  
捐助
0  
注册时间
2010-10-9 
15楼
发表于 2010-10-12 11:32 | 只看该作者
三楼的那个代码是怎么编的？看不懂！

TOP

12
返回列表