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

[游戏娱乐] 潜水数天完成了自己满意的批处理数码雨

该批处理同时在cn-dos发布。http://www.cn-dos.net/forum/forumdisplay.php?fid=23&page=1
留意该批处理的第二行特效。
  1. @echo off
  2. title made by 523066680 2008-08-08
  3. ::这一版本由www.cn-dos.net & www.bathome.net 成员523066680编辑
  4. mode con cols=85 lines=21
  5. color 0a
  6. setlocal enabledelayedexpansion
  7. set a=0
  8. for %%m in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
  9. if !a! leq 9 (set n0!a!=%%m) else (set n!b!=%%m)
  10. set /a a+=1
  11. set /a b=!a!-10
  12. )
  13. for %%M in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  14. set n!b!=%%M
  15. set /a b+=1
  16. )
  17. for /l %%a in (1,1,20) do (
  18. set h%%a=
  19. for /l %%b in (1,1,20) do (
  20. call,set code=%%n!random:~1,2!%%
  21. if not defined code (set "code= ")
  22. set h%%a=!code!   !h%%a!
  23. )
  24. )
  25. set num=0
  26. :a
  27. set /a num+=1
  28. if %num% equ 260 set num=0
  29. ping -n>nul
  30. cls
  31. echo,   %h1%
  32. echo,   %hn%
  33. for /l %%a in (3,1,20) do echo,   !h%%a!
  34. for /l %%a in (19,-1,1) do (
  35. set /a n=1+%%a
  36. set h!n!=!h%%a!
  37. )
  38. set hn=%h2%
  39. set h1=
  40. for /l %%b in (1,1,20) do (
  41. call,set code=%%n!random:~1,2!%%
  42. if not defined code (set "code= ")
  43. set h1=!code!   !h1!
  44. )
  45. if %num% gtr 80 (if %num% lss 100 set hn=                      %h19:   = %)
  46. if %num% gtr 140 (if %num% lss 160 set hn=                      %h19:   = %)
  47. if %num% gtr 200 (if %num% lss 220 set hn=                      %h19:   = %)
  48. if %num% gtr 100 (if %num% leq 130 (
  49. set hn=%hn:~0,20%    B a t H o m e    I f _ E x i s t    %hn:~-20%
  50. ))
  51. if %num% gtr 160 (if %num% leq 190 (
  52. set hn=%hn:~0,19%      C n - D o s     I f _ E x i s t     %hn:~-19%
  53. ))
  54. if %num% gtr 220 (if %num% leq 240 (
  55. set hn=%hn:~0,19%          W W W . 3 X 4 Y . C O M        %hn:~0,19%
  56. ))
  57. for %%a in (100 160 220) do (
  58. if %num% equ %%a (set hn=                     =====================+================== ))
  59. goto :a
  60. pause
  61. pause
复制代码
7

评分人数

太牛了!!简直不敢相信!

TOP

真牛!。。。。

TOP

哇喔,强啊  
支持一下

TOP

收藏!!有时间了好好研究!!!

TOP

漂亮,效果真棒

TOP

真长见识了 我必须膜拜一下 太牛了

TOP

回复 29# netbenton


    反应一个问题,算不算鸡蛋里挑骨头,嘿嘿。。netbenton大神的在WIN7系统里如果以管理员身份运行,会无法按任意键关闭。netbenton大神有没有时间修复下哦,太高深了,我实在是看不懂。

TOP

全屏了能当屏保,不错。

TOP

回复 1# 523066680


    如果大牛有时间的话,可否附上一些原理性的解释,很想学习学习,但是有看不太懂……

TOP

回复 79# wosliming


《!chan:~%chn%,1!》这里实现取变量中的一个字符,只要改变 %chn%的值,即可: set /a "chn= (chn + 1) %% 4"

TOP

回复 29# netbenton


   

代码很强大,我注意到你用 set "chan=/-\|"  来实现一个米字 的旋转,

想问下,这个怎么独立出来,想放到别的bat里面,感觉很炫…………

求教…………

TOP

哇~
好漂亮哦~

TOP

这也太强了吧? 只不过1L已经很好了,为何还在4L写呢?还有临时文件呢~
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

不错,好玩哈哈

TOP

返回列表