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

占占你的光(*^__^*)

  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

评分人数

TOP

耶 怪了

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

TOP

还是喜欢第一楼的效果 --黑影

TOP

返回列表