[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
- -!
这bat也会冲突吗,我换了个文件夹就看到了
确实牛哈,学习!!!!!!

TOP

晕啊,我怎么没看到什么效果啊

TOP

真不容易呢 呵呵 写累了,大家如果有看 就看一楼的吧

TOP

后一代码有临时文件遗留.... 支持绿化

TOP

支持........原创............

TOP

话说我的贴子怎么就少人回帖啊

TOP

闪烁好难处理 ……我只能做到这样了

  1. @echo off
  2. title made by 523066680 2008-08-08
  3. ::这一版本由www.cn-dos.net & www.bathome.net 成员523066680编辑
  4. mode con cols=110 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:~3,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. del xXx
  30. ECHO,      %h1%>>XXX
  31. ECHO,      %hn%>>XXX
  32. for /l %%a in (3,1,20) do echo,      !h%%a!>>xXx
  33. for /l %%a in (1,1,100) do echo,>nul
  34. cls
  35. type xXx
  36. for /l %%a in (19,-1,1) do (
  37. set /a n=1+%%a
  38. set h!n!=!h%%a!
  39. )
  40. set hn=%h2%
  41. set h1=
  42. for /l %%b in (1,1,20) do (
  43. call,set code=%%n!random:~3,2!%%
  44. if not defined code (set "code= ")
  45. set h1=!code!    !h1!
  46. )
  47. if %num% gtr 80 (if %num% lss 100 set hn=                         %h19:   = %)
  48. if %num% gtr 140 (if %num% lss 160 set hn=                          %h19:   = %)
  49. if %num% gtr 200 (if %num% lss 220 set hn=                          %h19:   = %)
  50. if %num% gtr 100 (if %num% leq 130 (
  51. set hn=%hn:~0,30%    B a t H o m e    I f _ E x i s t    %hn:~-30%
  52. ))
  53. if %num% gtr 160 (if %num% leq 190 (
  54. set hn=%hn:~0,29%      C n - D o s     I f _ E x i s t     %hn:~-29%
  55. ))
  56. if %num% gtr 220 (if %num% leq 240 (
  57. set hn=%hn:~0,29%          W W W . 3 X 4 Y . C O M        %hn:~0,29%
  58. ))
  59. for %%a in (100 160 220) do (
  60. if %num% equ %%a (set hn=                           =====================+================== ))
  61. goto :a
复制代码
2

评分人数

TOP

效果是目前见到比较好的了,加油!再加入些随机数字字符效果才更好,另外数码雨的层次长短也非常必要,不要总是满屏都是嘛

TOP

试过了,不错啊!!!

TOP

返回列表