全屏随机数字动画.BAT

jiavip

------------如题:,,,,,,,,,,,,,,,扔码-------------

1. @Echo off
   
2. Title 全屏随机数字动画
   
3. Setlocal enabledelayedexpansion
   
4. Color e0
   
5. PowerShell -w Maximized ;
   
6. For /l %%. in (1,0,1) do Set/a s+=1& Call :ra
   
7. :ra
   
8. Set a=%Random%
   
9. Set "b=         %Random:~-1%         "
   
10. Set a=%a:0= !b!%
    
11. Set a=%a:1= !b!%
    
12. Set a=%a:2=  !b!%
    
13. Set a=%a:3=   !b!%
    
14. Set a=%a:4=    !b!%
    
15. Set a=%a:5=     !b!%
    
16. Set a=%a:6=      !b!%
    
17. Set a=%a:7=       !b!%
    
18. Set a=%a:8=        !b!%
    
19. Set a=%a:9=         !b!%
    
20. Set/p="%a%"<nul
    
21. Rem;;;;;;下句调速,数值越小,刷新显示速率越慢,,,,,,,
    
22. if %s% equ 10 Ping -n 1 1 >Nul & Set s=0
    
23. Goto,:Eof

复制代码

-------------------代码存ANSI ,名 XXXXX.BAT--------------------
无聊,在论坛里看到上古年代的 <批处理输出如下图形--闪电>帖子!
要说写这些花里胡哨的代码,我可来劲了,,以前没少折腾,,
随手写下这个,,,这帖子代码,,,
只在WIN10下编写测试,
其他系统没有PowerShell 或版本不同,
或许不会自动最大化脚本.,,,


----------------------修改版--------------------------------

1. @Echo off
   
2. Setlocal enabledelayedexpansion
   
3. Color 02
   
4. PowerShell -w Maximized ;
   
5. :ra
   
6. Set/a s+=1
   
7. Set a=%Random%
   
8. Set/a b=%Random% %% 2
   
9. Set "b=          !b!          "
   
10. Title %s%-%b%-全屏随机数字动画---
    
11. Set a=%a:0= !b!%
    
12. Set a=%a:1=  !b!%
    
13. Set a=%a:2=   !b!%
    
14. Set a=%a:3=    !b!%
    
15. Set a=%a:4=     !b!%
    
16. Set a=%a:5=      !b!%
    
17. Set a=%a:6=       !b!%
    
18. Set a=%a:7=        !b!%
    
19. Set a=%a:8=         !b!%
    
20. Set a=%a:9=          !b!%
    
21. Set/p="%a%"<nul
    
22. if %s% equ 100 Ping -n 1 1 >Nul & Set s=0
    
23. Goto,ra

复制代码

---------修改版,----------------
颜色改成黑底绿字,更符合"黑客帝国"那样的数码风,
也修改了循环规则,之前采用 For /l  无限循环是有另外的调用打算,也有其他计算,,
后来发现有点多余了,就改成硬桥硬码的直接循环,,,,