批处理之家 » BAT求助&讨论 » 写了一段批处理数码雨

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

返回列表发帖

Rank: 3 Rank: 3

帖子: 81
积分: 208
技术: 33
捐助: 0
注册时间: 2015-1-8

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2015-3-12 00:47 | 只看该作者

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

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

学习批处理20天

:0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`~!@#$%^&*()-=\[];',./_+|{}"<>?          
@echo off
set/p str=<"%~f0"
setlocal enabledelayedexpansion
mode con lines=30&color 0A
set/a j=200,i=j-28
for /l %%a in (1,1,%i%) do (
    for /l %%b in (1,1,39) do (
        set/a mod=!random!%%104
        for %%c in (!mod!) do set "[%%a]=![%%a]! !str:~%%c,1!"
    )
)
for /l %%a in (%i%,1,%j%) do set "[%%a]= "
for /l %%a in (78,-2,2) do (
    set/a ln=i-!random!%%28
    for /l %%b in (!ln!,1,!i!) do set "[%%b]=![%%b]:~,%%a! ![%%b]:~%%a!"
)
set "[10]=![10]:~,23! <Matrix Digital Rain by cobat> ![10]:~-23!"
for /l %%a in (%i%,-1,2) do (
    cls&set/a i-=1,j-=1
    for /l %%b in (!i!,1,!j!) do echo,![%%b]!
    for /l %%c in (1,1,800) do cd>nul
)
pause>nul
复制代码

1 评分人数

523066680: 支持一下PB + 12 技术 + 1

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2015-3-12 10:01 | 只看该作者

20天…

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 2

帖子: 87
积分: 147
技术: 2
捐助: 0
注册时间: 2015-3-6

3楼

发表于 2015-3-12 14:44 | 只看该作者

黑客帝国片头也是这样子

Rank: 2

帖子: 87
积分: 147
技术: 2
捐助: 0
注册时间: 2015-3-6

4楼

发表于 2015-3-12 15:03 | 只看该作者

孙子兵法指出:最值得投资的兵种是情报员,黑客是其中之一

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

5楼

发表于 2015-3-18 11:35 | 只看该作者

回复 1# cobat

期待楼主的更多作品。

FuniCode 编程论坛

Rank: 2

帖子: 74
积分: 107
技术: 0
捐助: 0
注册时间: 2014-8-15

6楼

发表于 2015-3-18 13:45 | 只看该作者

回复 1# cobat

set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"
复制代码

这一段时什么意思？多多指教！

菩提本无树，明镜亦非台。
本是无一物，何处惹尘埃。

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

7楼

发表于 2015-3-18 14:37 | 只看该作者

回复 7# 523066680

我还以为你会把自己的贴出来…

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

8楼

发表于 2015-3-18 15:50 | 只看该作者

回复 9# CrLf

（旧的东西就不提了，向前看）

然后 netbenton 和 neorobin 都写了更好看的版本（简直亮瞎了

http://bbs.bathome.net/redirect. ... 27008&ptid=1393

http://bbs.bathome.net/redirect. ... 13&fromuid=3337

FuniCode 编程论坛

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

9楼

发表于 2015-3-18 15:56 | 只看该作者

回复 11# 523066680

从来不敢想去跟那两位爷比特效

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编