如何实现黑客帝国中的01瀑布流
@echo %dbg% off setlocal ENABLEDELAYEDEXPANSION mode con cols=80 lines=30 cls set 退格= set redtek=" " set end=0 :start set /a end+=1 call :calc set /p=!setspaces! nul set /p=%退格% set /p=%redtek:~1,79% 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 02 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=80 SET iDensity=6 SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ SET sText=!sText:"=! set /A iText=90-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 "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!) else ( set /p= ) ) goto loop ::--} :exit exit /b 0 @echo off setlocal ENABLEDELAYEDEXPANSION color 02 for /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!) else ( set /p= ) ) 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!) 将上面的代码保存在记事本内，再将记事本的后缀名txt 改成 Bat 就可以了
让电脑像黑客帝国一样滚绿码
这种代码确实有，我曾经用过！就是cmd批处理代码，也可以其他语言，如果用其他语言编写没你说那个绿色字幕啥的，不管是什么代码写的都是那种清理垃圾！绿色的滚码也挺酷酷的！
别听别人瞎说，他们没有见识，我七年前就玩过这个cmd清理垃圾批处理。现在清理垃圾用杀毒软件就可以做到！没必要这种特技炫酷的！其实你玩其他也可以的，比如你真正的学一门黑客技术
谁有黑客帝国里面的数字雨的动态图片
孩子~自己做吧！首先点击开始→所有程序→附件→记事本 然后就把下面的代码复制到记事本里，另存为“黑客帝国数字雨.bat” 然后另存为成功后运行文件即可实现桌面数字雨或按Alt+Enter实现全屏数字雨
注：请忽修改下面数字雨代码的任何一个字母，否则将无法成功允许(包括空格在内)
数字雨代码如下： @echo %dbg% off
setlocal ENABLEDELAYEDEXPANSION
mode con cols=80 lines=30
cls
set 退格=
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 02
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=80
SET iDensity=6
SET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
SET sText=!sText:"=!
set /A iText=90-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 "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 02
for /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]
我要黑客帝国里的数字流星雨代码，用html或asp写的
htmlstyle type="text/css"
!--
body {
background-color: #000000;
}
--
/style
Body
script language="JavaScript"
!--
if (document.all){
Cols=60;
Cl=20;//Space's are included so real length is 48!
Cs=20;
Ts=20;
Tc='#008800';
Tc1='#00ff00';
MnS=20;
MxS=30;
I=Cs;
Sp=new Array();S=new Array();Y=new Array();
C=new Array();M=new Array();B=new Array();
RC=new Array();E=new Array();Tcc=new Array(0,1);
document.write(" div id='Container' style='position:absolute;top:0;left:-"+Cs+"'");
document.write(" div style='position:relative'");
for(i=0; i Cols; i++){
S[i]=I+=Cs;
document.write(" div id='A' style='position:absolute;top:0;font-family:Arial;font-size:"
+Ts+"px;left:"+S[i]+";width:"+Ts+"px;height:0px;color:"+Tc+";visibility:hidden' /div");
}
document.write(" /div /div");
for(j=0; j Cols; j++){
RC[j]=1+Math.round(Math.random()*Cl);
Y[j]=0;
Sp[j]=Math.round(MnS+Math.random()*MxS);
for(i=0; i RC[j]; i++){
B[i]='';
C[i]=Math.round(Math.random()*1)+' ';
M[j]=B[0]+=C[i];
}
}
function Cycle(){
Container.style.top=window.document.body.scrollTop;
for (i=0; i Cols; i++){
var r = Math.floor(Math.random()*Tcc.length);
E[i] = ' font color='+Tc1+''+Tcc[r]+' /font';
Y[i]+=Sp[i];
if (Y[i] window.document.body.clientHeight){
for(i2=0; i2 Cols; i2++){
RC[i2]=1+Math.round(Math.random()*Cl);
for(i3=0; i3 RC[i2]; i3++){
B[i3]='';
C[i3]=Math.round(Math.random()*1)+' ';
C[Math.floor(Math.random()*i2)]=' '+' ';
M[i]=B[0]+=C[i3];
Y[i]=-Ts*M[i].length/1.5;
A[i].style.visibility='visible';
}
Sp[i]=Math.round(MnS+Math.random()*MxS);
}
}
A[i].style.top=Y[i];
A[i].innerHTML=M[i]+' '+E[i]+' ';
}
setTimeout('Cycle()',20)
}
Cycle();
}
// --
/script
/body
/html
演示地址：
http://www.toto369.net/jdtx/hkdg.htm
网上找的代码，我给你改了下
一起来看流星雨中雨荨和端木一起看的是什么电影
[编辑本段]【电影】
【片名】：功夫之王
【别名】： 双J计划
【英文名】：The Forbidden Kingdom
更多外文片名：
Untitled JJ Project
Jackie Chan/Jet Li Project
....USA (working title)
Kings of Kungfu
.....原名
Gong fu zhi wang
.....China (Mandarin title) ...
【导 演】：袁和平 罗伯.明科夫（Rob Minkoff）
【影片类型】：动作
【主 演】：
成 龙 饰 鲁彦 老霍
李连杰 饰 默僧 孙悟空
迈克尔·安格拉诺（Michael Angarano） 饰 杰森（Jason）
邹兆龙 饰 玉疆战神
刘亦菲 饰 金燕子
李冰冰 饰 白发魔女
【语 言】：普通话 英语
【片 长】：94分钟25秒
【色 彩】：彩色
【幅面】35毫米胶片变形宽银幕
【混音】杜比数码环绕声 DTS SDDS
【级别】Taiwan:PG-12 Singapore:PG USA:PG-13 South Korea:12 Malaysia:U
【制作成本】70,000,000/estimated
【拍摄日期】2007年5月2日 - 2007年8月23日
【摄制格式】35 mm
【洗印格式】35 mm .....(anamorphic)
《功夫之王》不失为一部有趣好玩的片子，而且可以看出，幕后的那些洋人确实对香港的功夫片历史有着熟悉的了解和深入的研究。鉴于华人世界两大巨星终于碰撞，以及这部电影的充分诚意，它可以打到75分。
但《功夫之王》同样充满了缺点。相当凌乱的台词，缺少新意和想象力，让它在很痛快地杂糅了东方神话和香港功夫片样板之外，没有更多可以称道的东西。假如双J可以在15年前联手，假如徐克有心拍此片，是不是一切都会上一个层次呢？
对于我来说，是抱着一边期待和感动、一边又遗憾和惋惜的心情来看《功夫之王》的。他们的脸上都皱纹深深，身手也不再利落，甚至连袁八爷的设计也乏善可陈。说实话，当我看到即便是双J之间的对话都要借助钢丝，不免有些不满和抱怨。所有的功夫片、武侠片粉丝们，等这一场已经等了多少年。
《功夫之王》的故事构架本身是完全西方的，通过一次历险来完成一个男孩的成长。在这个过程中有怪人，有导师，有美女，还有脸谱化的大反派。可以说这是很平面的想象，是对照着电子游戏和儿童故事描绘出来的模板。众人寻宝的过程和五指山的存在，也很容易让人联想到指环王，魔幻色彩大于神话意识，时刻标榜着它的异族印记。
成龙和李连杰，在文戏中承担了不同的角色。成龙是外国小孩的身体导师，或者说更像是朋友，并肩作战，相互开玩笑，没有架子，也实际上成为本片的线索；李连杰这个默僧从头到尾基本都很严肃，胸怀宽大，出尘脱俗，在精神上是一个引领者。论戏份，成龙更多；论位置，李连杰更高。
有些核心的东西挽救了《功夫之王》。在整体架构的内部齿轮上，有趣的模仿和致敬随处可见，肆无忌惮的东拼西凑，虽然有些无序，但让功夫迷们处处找到往日印记。成龙一出场，就是一套醉拳，幽默和潇洒的派头都还在；李连杰在竹林中追逐外国小男孩，让人联想到酷爱竹林背景的胡金铨。最好玩的是少林寺十三棍僧，又上演了一番“救唐王”的故事，想当年李连杰以《少林寺》成名，故事便由此而起。
成龙与那个小孩第一次深入交流，就是在一个酒肆。不论布景还是服装，处处都体现出唐风。再联想到此片的重要角色李连杰、成龙、刘亦菲( 听歌 blog)的身份，分别是和尚、落魄秀才、歌女，恰恰是中国古代传奇中最常见、最有故事的人。很符号化，也很有蕴意，让人击节称赞。
实际上，这部电影很像香港八十年代大部分从流水线上走出来的半成品一样，有佳句无佳章。走出电影院还是有许多可以琢磨的闪光点，可惜不论从全篇节奏还是整体故事上看，都属于平庸的作品。洋鬼子没怎么看过功夫片，大惊小怪是肯定的，但华语圈观众这么挑剔，想必不会有太惊喜的地方。
功夫之死抑或功夫新生？ “功夫”是西方人的叫法，我们更喜欢讲“武侠”，但西方人不管这些。在他们眼中，如果中国还有电影的话，“功夫”是唯一主题。1994至2004的10年间，在美国取得票房前10名的亚洲电影中，排名第一的是2000年的《卧虎藏龙》，逼近1.2810亿美元；第二是2004年的《英雄》，票房为5000万美元；第三是1996年的《红番区》，3240万美元。3部都是功夫电影。2004年之前，中国电影在海外市场全部是买断发行，以片易片，几乎没有收入，《英雄》是首部进入美国主流电影院线放映的中国电影。
如果说这成绩单就让中国人满足了，会小看了在好莱坞奋战的中国团队。事实上，中国人无时无刻不在担忧西方人会像香港和内地观众一样，厌倦那些古装打片，竹林、九寨沟、用滥的桥段与动作。今年《江山美人》1800万元的内地票房，宣告它成为6年来最不卖座武侠片，而它的导演是三大武术指导之一的程小东。尽管美国大片一直重复着同样的套路——披上特异功能战袍的平凡人变英雄，地球末日总是轻易来临，救世主越来越低龄——缘于美国人对上天过于眷顾他们的不安全感和脆弱的承受力，但技术先进总让别国观众原谅故事的苍白愚蠢。
在《功夫之王》宣传期间，永远不忘拿着扇子的成龙，在北京四月杨花天里，常常大汗淋漓，需要用上这个道具。李连杰开玩笑说，他俩总是从电影开讲，以爱国主义和慈善结束。怎么都不肯承认中国功夫走到末路的成龙，早在2005年“中国功夫对世界的影响”论坛上，就发出过忧虑的声音：“美国的特技很厉害，他可以把我学了30年的功夫，只花3个小时用电脑特技做出来，人家拍《黑客帝国》、《蜘蛛侠》比我们省事，也聪明，人一飞就没有了。我们拍《卧虎藏龙》还是得把周润发弄到40英尺以上吊威亚，多危险。”
外电称赞他和李连杰比施瓦辛格、尚格云顿更热爱功夫，视其为荣誉之徽，艺术生命是美国打星的好几倍。可这种人为延长的最主要原因是没有人可以接替他们。最受外国人欢迎的武术指导袁和平说：“李连杰等之后已经有点断层了，需要有人接班。”“有点”是“袁八爷”含蓄的说法，功夫导演们早就发现了这个问题，徐克在1994年的片场发掘赵文卓，张鑫炎在1995年起用吴京，但他们并没有达到接棒要求。成龙也不是现在才开始寻找“龙的传人”，他在1998年就收了樊少皇为徒，但正如李连杰所说：“观众看不顺眼，世界冠军也没用。”和李连杰一起出道的那么多武术运动员，不是没有比他更经得起摔打的，但观众只认他。
李连杰在总结电影圈的鳄鱼生存法则时，讲到自己在香港和好莱坞的心得。他在香港地区基本不交际应酬，坚持不讲粤语，也不打算融入香港电影圈，可他的电影一开工就意味着已经回本赚钱。很多人还记得，蔡子明正是因为做了李连杰的经纪人，使这棵摇钱树不能谁都来摇，引来杀身之祸，也导致李连杰离开香港地区。到美国后，他更体验到“数据”的厉害。他接拍好莱坞的第一部电影《致命武器4》时，制片方出价100万美元，他犹豫了，后来答应，对方说：“75万美元。”他迟疑后又答应了，人家降到50万美元。这部戏当晚数据出来，影评人给主角梅尔·吉布森的打分是8.8，给他7.5，而他只有三场戏，第二天就有公司捧着钱来找他，最辉煌时有老板下跪求他。
如果数字一旦掉下来，无论成龙或李连杰积累下多少人脉，也不会再有人理会他们。而不可逆转的事实是，他们年龄大了，体力早就滑坡。成龙说：“现在再请我跳楼，我已经完成不了了。至于功夫片下一步怎么走我真的不知道，能拍的都拍过了，没有什么新的了。现在真有点拍不下去的感觉了。”
15年前，只是泛泛之交的成龙和李连杰就酝酿合作，也许最危险的时刻还未到来，也许本子太过亚洲化，本土影片支付不了两个大明星的片酬，于是推迟到此刻。美国片商对中国古装片已经很警惕，但成龙和李连杰还掌握着一定的话语权。这个权力当然要靠数字说话，李连杰的《霍元甲》是美国历年来9月份票房第二名，成龙的《尖锋时刻3》仍然卷了2亿多美元，成为最卖座的华人演员。但他还是很不快乐，这部影片根本没有在内地上映。成龙接受美国媒体的采访时表示他恨《尖锋时刻》系列，到现在也恨，“我不知道美国观众喜欢什么，所以对这部电影的美国票房没有信心”。
不过，成龙和李连杰对《功夫之王》的美国票房一点也不担心，他们15分钟的对打戏足以吸引观众进入影院，他俩祈祷的是华语地区票房可以占到该片的三成。因为《功夫之王》把孙悟空、白发魔女、金燕子、醉拳、太极混为一炉，中国观众可能会很瞧不上。它的英文片名叫做《The Forbidden Kingdom》，而不是摄影师鲍德熹建议的《Kings of Kungfu》，充满了西方式的主观臆想。他们希望能慢慢地搞“文化渗透”，让不愿意了解别人的美国人也知道孙悟空的由来、性格、兵器，让我们的题材被别人接受，而不只是几个演员、“武指”混得好。好莱坞根本不会为他们量身订制剧本，因为统共就这几个人，万一哪个演不成就黄了。成龙非常赤裸地表现出这种野心，李连杰就圆柔得多，总以阴阳、循环观点解释一切。如果用这个观点，功夫电影也不存在高潮低谷，更不会消亡。袁和平的经历可以证明：上世纪80年代初功夫片拍烦了，他改做幻术电影。之后他又转拍时装动作片。90年代初，清装功夫片成为主流。香港地区武打片退潮后，他还有美国的《黑客帝国》等着，总不会没事做。成龙自己都相信能演到80岁，就像当年的“黄飞鸿”代言人关德兴一样。
《功夫之王》正在全球热映，影片中成龙、李连杰两位华人功夫巨星华丽的武打让功夫迷们欲罢不能，电影票房在全球一路飘红，影片成为《卧虎藏龙》、《英雄》后在全球刮起“中国旋风”的又一华语力作。《功夫之王》编剧约翰•福斯科是一个地道的功夫迷，他在影片中向中国武侠电影致敬的同时也对中国古典文化进行了大力展示和融合。《功夫之王》中出现了很多中国的谚语和功夫迷们耳熟能详的功夫专有名词，比如螳螂拳，水上漂等。这些中国本土文化符号，经过老外们的西化，改造成了西方人能够理解的词句，读来别有一番独特的趣味。