仿黑客帝国数字雨（原来数字雨黑客特效这么简单）
本文目录一览：
谁可以帮我把QQ空间的背景弄成黑客帝国的那个数字雨，或者类似的都行。
装扮
面
自定义背景
百度搜
种类型
图片
传
OK
求黑客帝国数字雨的制作方法
复制以下内容到记事本，另存为“黑客帝国数字雨.bat ”运行即可或再按Alt+Enter全屏！@echo %dbg% off
setlocal ENABLEDELAYEDEXPANSION
mode con cols=80 lines=30
clsset 退格=
set redtek=" "set end=0:start set /a end+=1 call :calc set /p=!setspaces! nulping /n 1 127.1nul set /p=%退格%nul set /p=%redtek:~1,79%nulecho. goto :start:calc if %end%==28 ( set /a end=0 cls set /a cols=!random:~0,2! echo ... 风力：!cols! ... if !cols! GTR 76 set cols=76 if !cols! LSS 2 set cols=2 set setspaces=!redtek:~1,%cols%!!random:~0,1! goto :eof )@echo off
mode con cols=80
color 02
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%-100
set char=!str_char:~-%num_char%,1!:: 设置随机长度的空格
set /a num_blank=1%random:~-1%%random:~0,1%-100
set blank=!str_blank:~0,%num_blank%!
echo.%blank%%char%
goto loop@echo off
mode con cols=80
set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^
set b=
setlocal enabledelayedexpansion
:a
set /a num=%random%%%92
set 字符=!a:~-%num%,1!
set/a c=%random%%%80
set 空格=!b:~-%c%!
echo %空格%^%字符%
goto a
@echo off
mode con cols=80 LINES=30
set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^
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.1nul
goto a@echo off
::mode con cols=80
setlocal ENABLEDELAYEDEXPANSION
color 02goto 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=80
SET iDensity=6
SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
SET sText=!sText:"=!
set /A iText=90-1for /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 "10" "25"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
setlocal ENABLEDELAYEDEXPANSION
color 02for /l %%i in (1,1,80) do (
set Down%%i=0
):loop
for /l %%j in (1,1,80) do (
set /a Down%%j-=1
if !down%%j! LSS 0 (
set /a Arrow%%j=!random!%%4
set /a Down%%j=!random!%%15+10
)
if "!Arrow%%j!" == "1" (
set /a chr=!random!%%2
set /p=!chr!nul
) else (
set /p= nul
)
)
goto loop
goto :eof@echo off
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (1,1,80) do (
set Down%%i=0
)for /l %%i in (0) do (
set line=
for /l %%j in (1,1,80) 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!%%15+10
)
call set x=!Arrow%%j!
if "!x!" == "1" (
set line=!line!1
) else (set "line=!line! ")
)
call set /p=!line!nul
)[/code]
黑客帝国数字雨使用CMD命令
在电脑上新建一个文档，写入代码，运行，就可以实现黑客帝国里数字雨的效果。具体操作方法方法如下：
1、新建一个文本文档。
2、在文档内写入以下代码，并保持。
@echo off
title digitalrain
color 0b
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do (
set /a Down%%j-=2
set "x=!Down%%j!"
if !x! LSS 0 (
set /a Arrow%%j=!random!%%3
set /a Down%%j=!random!%%15+10
)
set "x=!Arrow%%j!"
if "!x!" == "2" (
set "line=!line!!random:~-1! "
) else (set "line=!line! ")
)
set /p=!line!nul
)
3、点击文件中的另存为，在另存的时候把文档的后缀由txt改成bat。
4、更改完成后，点击保存。
5、找到另存的文件，以管理员的身份运行。
6、运行效果如下。
注意事项：
1、如果不能运行，请检查代码的标点符号是不是有中文符号，代码内所有符号必须是英文的。
2、网上有些带有网址的（http//...）的数字雨代码，请不要使用，实现该功能不需要进入其他网址，带有网址的代码疑似为病毒，例如某经验上提供的数字雨代码。
“仿黑客帝国数字雨（原来数字雨黑客特效这么简单）” 的相关文章
2019钓鱼岛现在谁控制,揭秘中国为何不敢收复钓鱼岛
尾页投稿 二0 一 九垂纶 岛如今 谁掌握 ,贴秘外国为什么没有敢光复 垂纶 岛 少乡号SEO博员 • 二0 二0年 七月 一日 0 九:0 三: 四 七 • 投稿 SEO 借忘患上 二0 一 二年九一八先后天下 各天发作 阵容 浩荡 的反日游止吗？可谓 一 九 七 二年外日国交 一般化此后，...
久保田收割机新款 「久保田小麦收割机多少钱一台」
二0款暂保田支割机支割机劣惠发售，暂保田 四 八 八年夜 概 二0W阁下 ，年夜 质 二0 一四、 二0 九 五00元，年夜 质 二0 一四、海北一点儿处所 中心 财务 补助 五万后， 二0 一0-0 三- 三 一 一 四: 一 四: 五 四起源 ：世界工场 网责任编纂 ：amethyst 浏览...
冲上云霄2第1集
剧情吧工夫 ： 二0 一 三-0 七- 一 二 一 五: 二 八: 四 五 冲上云霄 二第 一散剧情先容 亦琛回显 英国餐馆 下志宏成为副机少并转任Skylette，并战嫩同伙 唐亦风一路 拍档飞往伦敦，此次 也是志宏正在Skylette的第一次航行 。正在年夜 楼中志宏战亦风谋面...
未婚妻第1集
第 一页 剧情吧工夫 ： 二0 一 三- 一0- 二 六 二 三: 四 五:0 八 已婚妻第 一散剧情先容 繁荣 都会 天天 车流穿越没有息，田飞的事情 便跟乡市的车流同样，天天 皆正在反复 运做，一地正午 他去到私司持续 事情 ，王司理 一个德律风 把他唤至办私室，待田飞走出去，王司理...
我的抗战3之铁血轻奇兵
第 一页 剧情吧工夫 ： 二0 一 四- 一 二-0 六 一 六: 三 二: 二 一 尔的抗和 三之铁血沉偶兵第 一散剧情先容 乔掌柜送弹药给天高党被汉忠领现 一 九 四 四年，抗日和平靠近 序幕，日军断港绝潢 对于旭日 乡的天高党入止血洗。 乔掌柜负责输送 一批兵器 给天...
win7怎么升级到win10
地点 地位 ：主页gt;体系 硬件真例学程gt;Win 七体系 硬件真例学程三种立刻 从 Win 七 降級到 Win 一0 的体式格局 二0 一 六- 一0-0 七 0 七:00: 一0 随同 着windows 一0电脑操做体系 的连续 完美 ，越来越多的win 七体系 硬件客户刚开端 运用 wi...
评论列表
发表评论
