bat实现的模仿黑客帝国里面的数码雨

::黑客帝国里数码雨 @echo %dbg% off :: Code by redtek --2 CMD@XP :: 出处： setlocal ENABLEDELAYEDEXPANSION mode con cols= lines= cls set 退格= set redtek=" " set end=0 :start set /a end+=1 call :calc set /p=!setspaces! nul set /p=%退格%<NUL set /p=%redtek:~1,%<NUL&ECHO. goto :start :calc if %end%== ( set /a end=0 & cls & set /a cols=!random:~0,2! echo ... 风力：!cols! ... if !cols! GTR set cols= if !cols! LSS 2 set cols=2 set setspaces=!redtek:~1,%cols%!!random:~0,1! goto :eof ) @echo off :: Code by JM --3 CMD@XP :: 出处： :: test.txt内容为：abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%&*(){}[]_+-="'?.,/ :: 暂时不能处理 |<>^ mode con cols= color for /f %%i in (test.txt) do set str_char=%%i set str_blank= setlocal enabledelayedexpansion :loop :: 取随机位置上的字符 set /a num_char=1%random:~-1%%random:~0,1%- set char=!str_char:~-%num_char%,1! :: 设置随机长度的空格 set /a num_blank=1%random:~-1%%random:~0,1%- set blank=!str_blank:~0,%num_blank%! echo.%blank%%char% goto loop @echo off :: Code by 不得不爱 --3 CMD@XP :: 出处： mode con cols= set a=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-="'?.,/^&^^^>^< set b= setlocal enabledelayedexpansion :a set /a num=%random%%% set 字符=!a:~-%num%,1! set/a c=%random%%% set 空格=!b:~-%c%! echo %空格%^%字符% goto a @echo off :: Code by yfd --3 CMD@XP :: 出处： mode con cols= LINES= set a=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-="'?.,/^&^^^>^< set b= setlocal enabledelayedexpansion :a set /a num=%random%%% set 字符=!a:~-%num%,1! set/a c=%random%%% set 空格=!b:~-%c%! ::echo. %空格%^%字符% set/a i+=1 rem 指针=i 尾指针=j set/a j=i- set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n .1>nul goto a @echo off :: Code by hxuan -- CMD@XP :: 出处： ::mode con cols= setlocal ENABLEDELAYEDEXPANSION color goto BEGIN goto :eof ::function mt_rand "a" "b" :mt_rand ::( set a=%~1 set b=%~2 set /a _mt_rand=(!random!%%(%b%-%a%))+%a% exit /b 0 ::) :BEGIN ::{-- SET iWidth= SET iDensity=6 SET sText="#$&'()*+,-./:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~ SET sText=!sText:"=! set /A iText=-1 for /l %%i in (1,1,%iWidth%) do ( set aDown%%i=0 ) :loop for /l %%I in (1,1,%iWidth%) do ( set /a aDown%%I-=1 if !aDown%%I! LSS 0 ( call :mt_rand "0" "%iDensity%"&&set aArrow%%I=!_mt_rand! call :mt_rand "" ""&&set aDown%%I=!_mt_rand! ) if !aArrow%%I! EQU 1 ( call :mt_rand "0" "%iText%"&&(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!) set /p=!aa!<NUL ) else ( set /p= <NUL ) ) goto loop ::--} :exit exit /b 0 @echo off :: Code by hxuan -- CMD@XP :: 出处： setlocal ENABLEDELAYEDEXPANSION color for /l %%i in (1,1,) do ( set Down%%i=0 ) :loop for /l %%j in (1,1,) do ( set /a Down%%j-=1 if !down%%j! LSS 0 ( set /a Arrow%%j=!random!%%4 set /a Down%%j=!random!%%+ ) if "!Arrow%%j!" == "1" ( set /a chr=!random!%%2 set /p=!chr!<NUL ) else ( set /p= <NUL ) ) goto loop goto :eof @echo off :: Code by newaifi -- CMD@XP :: 出处： setlocal ENABLEDELAYEDEXPANSION for /l %%i in (1,1,) do ( set Down%%i=0 ) for /l %%i in (0) do ( set line= for /l %%j in (1,1,) do ( set /a Down%%j-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /a Down%%j=!random!%%+ ) call set x=!Arrow%%j! if "!x!" == "1" ( set line=!line!1 ) else (set "line=!line! ") ) call set /p=!line!<NUL )

推荐整理分享bat实现的模仿黑客帝国里面的数码雨，希望有所帮助，仅作参考，欢迎阅读内容。

文章相关热门搜索词:,内容如对您有帮助，希望把文章链接给更多的朋友！

5个计算天数的批处理代码第1/3页 于是把我的收集整理后发出来给大家共享一下。说明：收集整理：随风@bbs.bathome.cn--第一个代码作者：WillSort出自：cn-dos第二、三、四、个代码作

bat批处理 if 命令示例详解 if命令示例详解if,正如它E文中的意思，就是如果的意思，用来进行条件判断。翻译过来的意思就是：如果符合某一条件，便执行后面的命令。主要用来

纯脚本备份_还原驱动增强版附相关sleep.exe 说明：不能说此脚本比驱动精灵更完美，但它确实弥补了驱动精灵的不足！这个版本是我先前版本上（借助DevCon纯脚本备份驱动）增强的，已经是完美