Shulou(Shulou.com)06/03 Report--

This article is about how to use bat to imitate the digital rain in the Matrix. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

:: digital rain in the Matrix

@ echo% dbg% off

:: Code by redtek 2006-11-2 CMD@XP

:: source: http://www.cn-dos.net/forum/viewthread.php?tid=24418

Setlocal ENABLEDELAYEDEXPANSION

Mode con cols=80 lines=30

Cls

Set backspace =

Set redtek= ""

Set end=0

: start

Set / an end+=1

Call: calc

Set / paired setting spaces! Nul

Set / packs% backspace% ^

< set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! ::echo. %空格%^%字符% set/a i+=1 rem 指针=i 尾指针=j set/a j=i-30 set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n 127.1>

Nul

Goto a

@ echo off

:: source: http://www.cn-dos.net/forum/viewthread.php?tid=24418

:: mode con cols=80

Setlocal ENABLEDELAYEDEXPANSION

Color 02

Goto BEGIN

Goto: eof

:: function mt_rand "a"b"

: mt_rand

: (

Set aversion% room1

Set breadth% room2

Set / a _ mt_rand= (! percentage%% (% b% muri% a%)) +% a%

Exit / b 0

::)

: BEGIN

: {-

SET iWidth=80

SET iDensity=6

SET sText= "# $&'() * +, -. / 0123456789 Phantom @ ABCDEFGHIJKLMNOPQRSTUVWXYZ [\] ^ _ `abcdefghijklmnopqrstuvwxyz {|} ~

SET sTextFormText: "=!

Set / An iText=90-1

For / l%% I in (1JI% iWidth%) do (

Set aDown%%i=0

)

: loop

For / l%% I in (1JI% iWidth%) do (

Set / an aDown%%I-=1

If! aDown%%I! LSS 0 (

Call: mt_rand "0"% iDensity%" & & set aArrow%% Illustrated.

Call: mt_rand "10"25" & & set aDown%% Illustrated

)

If! aArrow%%I! EQU 1 (

Call: mt_rand "0"% iText%" & & (FOR% M IN ("! _ mt_rand!") DO SET aastatsTextGroupe%% MPhone1!)

Set / paired roomaa!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.