2008奥运倒计时批处理版

523066680

            纯粹娱乐 没办法  这几天真的无聊到不行 qq丢了 好友都不见了，没人鸟我
，无奈之下体力活照样干。

1. @echo off &setlocal enabledelayedexpansion
   
2. title CodeBy523066680
   
3. for /l %%x in (5,-1,1) do (
   
4. for /f "delims== tokens=1" %%a in ('set') do (set %%a=)
   
5. set "k=                    "
   
6. for /l %%a in (1,1,15) do (set l%%a=!k!)
   
7. for /f "delims=x" %%a in (%~snx0) do (
   
8.   if "%%a"==":%%xend" (set "yes=")
   
9.   if defined yes (set /a "n+=1" &set S!n!=%%a)
   
10.   if "%%a"==":%%x" (set /a yes=1,n=0)
    
11. )
    
12. for /l %%a in (1,1,12) do (
    
13.    for /l %%b in (0,1,15) do (
    
14.    if "!S%%a:~%%b,1!"=="*" (set x_!random!_%%a_%%b_x=x)
    
15.    )
    
16. )
    
17. for /f "delims=_ tokens=3,4" %%a in ('set x_') do (
    
18.    set /a x=%%b+1
    
19.    call set l%%a=!l%%a:~0,%%b!*%%l%%a:~!x!%%
    
20.    call :a 50
    
21.    cls
    
22.    for /l %%a in (1,1,15) do (echo,!l%%a!)
    
23. )
    
24. call :a 800
    
25. )
    
26. pause
    
27. exit
    
28. :a
    
29. for /l %%a in (1,1,%1) do (echo,>nul)
    
30. goto :eof
    
31. :5
    
32. ***************
    
33. ***************
    
34. ***
    
35. ***
    
36. ***
    
37. ***************
    
38. ***************
    
39.             ***
    
40.             ***
    
41.             ***
    
42. ***************
    
43. ***************
    
44. :5end
    
45. :4
    
46. ***         ***
    
47. ***         ***
    
48. ***         ***
    
49. ***         ***
    
50. ***         ***
    
51. ***************
    
52. ***************
    
53.             ***
    
54.             ***
    
55.             ***
    
56.             ***
    
57.             ***
    
58. :4end
    
59. :3
    
60. ***************
    
61. ***************
    
62.             ***
    
63.             ***
    
64.             ***
    
65. ***************
    
66. ***************
    
67.             ***
    
68.             ***
    
69.             ***
    
70. ***************
    
71. ***************
    
72. :3end
    
73. :2
    
74. ***************
    
75. ***************
    
76.             ***
    
77.             ***
    
78.             ***
    
79. ***************
    
80. ***************
    
81. ***
    
82. ***
    
83. ***
    
84. ***************
    
85. ***************
    
86. :2end
    
87. :1
    
88.       ***
    
89.       ***
    
90.       ***
    
91.       ***
    
92.       ***
    
93.       ***
    
94.       ***
    
95.       ***
    
96.       ***
    
97.       ***
    
98.       ***
    
99.       ***
    
100. :1end

复制代码

defanive

都是力气活。。。
兄真得无聊成这样？
帮忙去写写我的那些库文件嘛。。。

523066680

我去发了些连接。

defanive

LS，链接已阅，但是还有问题。。。

Peking007

不错，初次来～

tslnyys

为什么一运行批处理，CPU就100%呢。