novaa版批处理论坛宣传动画

novaa

1. 
   
2. @echo off&setlocal enabledelayedexpansion&color 17&title 批处理之家&mode con cols=80 lines=20
   
3. set "Gra1==========================>"
   
4. set "Gra2=<========================="
   
5. for /l %%i in (1 1 80) do set Table=!Table!
   
6. for /l %%i in (1 1 36) do set Space=  !Space!
   
7. set Name=批处理之家
   
8. set num=0&echo\&echo\
   
9. for /l %%i in (1 1 26) do (
   
10. set /a num=!num!+1
    
11. set "Gra=!Gra1:~0,%%i!!Space!!Gra2:~-%%i!"
    
12. echo      !Gra!
    
13. if "!num!"=="26" goto :Next
    
14. call :Delay 1000
    
15. set Space=!Space:~2!&cls&echo\&echo\
    
16. )
    
17. 
    
18. :Next
    
19. ping /n 2 127.1>nul
    
20. cls&echo\&echo\
    
21. echo      =========================^> 批                   ^<=========================
    
22. ping /n 2 127.1>nul
    
23. cls&echo\&echo\
    
24. echo      =========================^> 批 处                ^<=========================
    
25. ping /n 2 127.1>nul
    
26. cls&echo\&echo\
    
27. echo      =========================^> 批 处 理             ^<=========================
    
28. ping /n 2 127.1>nul
    
29. cls&echo\&echo\
    
30. echo      =========================^> 批 处 理 之          ^<=========================
    
31. ping /n 2 127.1>nul
    
32. cls&echo\&echo\
    
33. echo      =========================^> 批 处 理 之 家       ^<=========================
    
34. ping /n 2 127.1>nul
    
35. echo\&echo\
    
36. call :Process
    
37. echo\&echo\&echo\
    
38. call :ShineIP
    
39. echo\&echo\
    
40. set "Novaa=Code By Novaa 于深夜"
    
41. for /l %%i in (1 1 17) do (
    
42. set /p=       !Novaa:~0,%%i!<nul
    
43. set /p=!Table!<nul
    
44. call :Delay 800
    
45. )
    
46. ping /n 3 127.1>nul
    
47. goto :eof
    
48. :Process
    
49. set "Process=------------>最实用的批处理网站"
    
50. for /l %%i in (1 1 22) do (
    
51. set /p=     !Process:~0,%%i!<nul
    
52. set /p=!Table!<nul
    
53. call :Delay 1000
    
54. )
    
55. goto :eof
    
56. 
    
57. :ShineIP
    
58. set "IP=------------>"
    
59. for /l %%i in (1 1 13) do (
    
60. set /p=     !IP:~0,%%i!<nul
    
61. set /p=!Table!<nul
    
62. call :Delay 1000
    
63. )
    
64. set /p=     ------------^>域<nul&ping /n 2 127.1>nul
    
65. set /p=!Table!<nul
    
66. set /p=     ------------^>域 名<nul&ping /n 2 127.1>nul
    
67. set /p=!Table!<nul
    
68. set /p=     ------------^>域 名 :  <nul
    
69. set /p=<nul
    
70. set /p=bbs.bathome.net<nul
    
71. goto :eof
    
72. 
    
73. :Delay
    
74. for /l %%i in (1 1 %1) do ver>nul
    
75. goto :eof

复制代码

novaa

我开始写的时候发现如果这样就不可以

1. @echo off&setlocal enabledelayedexpansion
   
2. set "Process==========="
   
3. for /l %%i in (1 1 10) do (
   
4. set /p=!Process:~0,%%i!<NUL
   
5. )

复制代码

显示语法错误

随风

加个空格就可以了。再用退格来删除这个空格
set /p== 这里两个=连在一起，所以出错。
:

1. @echo off&setlocal enabledelayedexpansion
   
2. set "Process==========="
   
3. for /l %%i in (1 1 10) do (
   
4. set /p= !Process:~0,%%i!<NUL
   
5. )
   
6. pause

复制代码

[ 本帖最后由 随风 于 2008-3-9 19:50 编辑 ]

84918930

LZ
顶起来..
好论坛
加油

garyng

Code By Novaa 于深夜

深夜做的啊？