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

[特效代码] 写了一段批处理数码雨

本帖最后由 cobat 于 2015-3-18 16:14 编辑

学习批处理20天
  1. :0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`~!@#$%^&*()-=\[];',./_+|{}"<>?         
  2. @echo off
  3. set/p str=<"%~f0"
  4. setlocal enabledelayedexpansion
  5. mode con lines=30&color 0A
  6. set/a j=200,i=j-28
  7. for /l %%a in (1,1,%i%) do (
  8.     for /l %%b in (1,1,39) do (
  9.         set/a mod=!random!%%104
  10.         for %%c in (!mod!) do set "[%%a]=![%%a]! !str:~%%c,1!"
  11.     )
  12. )
  13. for /l %%a in (%i%,1,%j%) do set "[%%a]= "
  14. for /l %%a in (78,-2,2) do (
  15.     set/a ln=i-!random!%%28
  16.     for /l %%b in (!ln!,1,!i!) do set "[%%b]=![%%b]:~,%%a! ![%%b]:~%%a!"
  17. )
  18. set "[10]=![10]:~,23! <Matrix Digital Rain by cobat> ![10]:~-23!"
  19. for /l %%a in (%i%,-1,2) do (
  20.     cls&set/a i-=1,j-=1
  21.     for /l %%b in (!i!,1,!j!) do echo,![%%b]!
  22.     for /l %%c in (1,1,800) do cd>nul
  23. )
  24. pause>nul
复制代码
1

评分人数

返回列表