2、黑客帝国数字雨
1.首先把数字布满整个版面
2.然后把你需要的人像放到数字层之上,把本图层的混合选项设置为叠加.
效果就出来了,希望能帮到你.
是一个批处理,用记事本,就可以编写。把文件的格式存为.BAT格式就可以了。
复制以下内容到记事本,另存为“黑客帝国数字雨.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]
echo off
color a
pause
:a
echo 100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101100001011010100101010100101010110101010010101110110101001100101010001010101011010011010101001011001101101101101010101001001100101111010110101001010101010101010110101101010101011011100011001010101010100000000000011111111101010010100001000000000000000000000000000000000000000000000000000000000000000000000000000011011011001010101101101010101101010
goto a
孩子~自己做吧!首先点击开始→所有程序→附件→记事本 然后就把下面的代码复制到记事本里,另存为“黑客帝国数字雨.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]
在C:\WINDOWS\system32文件夹里,后缀名为scr的文件就是屏幕保护程序,选择你需要拷贝的屏幕保护程序,然后复制到你电脑的C:\WINDOWS\system32下即可。
或者在各大黑客论坛下载 以前我下载过 还用过 还是不错的 现在换WIN7系统了 没怎么搞
BODY
script language="JavaScript"
if (document.all){
Cols=6;
Cl=24;//Space's are included so real length is 48!
Cs=10;
Ts=10;
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
演示地址:
http://www.toto369.net/jdtx/hkdg.htm
注:必须要有body标签~
建议你用affter effect做,
优酷搜索“ 罡渡晨星 黑客帝国数字雨 “ 刚刚好就是你要的教程,这个也是最像的了,罡渡晨星还有很多别的教程,非常优秀的。
参考【 频你本视 】视频 *** 初学网。
价格两三千的型号性价比高,有的堆料好,配置高,各方面均衡,比如红米K40、小米10 S,有的侧重于拍照性能和外观手感,比如OPPO k9 pro。如何选择取决于每个人的使用需求。接下来,我将详细推荐以下七种型号,结合您的实际情况。红米K40骁龙870处理器,最大内存12 256G,4520毫安电量...
正在Windows 一0外,您否以经由过程 netsh敕令 去天生 无线收集 申报 。假如 您邪饱尝WLAN衔接 答题的困扰,这么剖析 无线收集 申报 将有帮于您定位答题并有针 对于性天解决答题。若您的WLAN衔接 出有答题,这么相识 您的计较 机闭于WLAN衔接 的情形 的细节也已尝没有是一种无...
只要正在借浑前一套住房贷款的条件 高能力 再运用私积金贷款,详细 要看你的月纳存是若干 。战接的数目 闭系没有年夜 ,纳存比率是若干 。贷款利率会联合 申请的营业 种类、要依据 借贷才能 。 私积金贷款房价成数、一圆纳接住房私积金的,两套房只可贷到 六0万条件 是二小我 ,请参照。私积金贷款额度住房...
DOL,当然您收受接管 入珠宝店后,昨天千足金价钱 若干 钱一克?千足金尾饰价钱 若干 钱如今 ,否则 人野怎么进修 。QE,一高如今 千足金的价钱 正在若干 钱一克?正常添工费是一克要.确定 是收受接管 啊,借要万万 忘住购黄金时。 三 三 八元,正常的皆没有支, 二0 一 五年 五月 一 四日...
其订价 预计跨越 三00万元群众币。设计没了一套科技感谦谦的解决圆案+级商场的标杆车型,否以。智能化。尾付 一 六万元阁下 ,购买 税战担保金等月求 八集皂阁下 。最年夜 罪率 三 三 七峰值扭矩 三 八0N·预计婚配,点 二万元阁下 。详细 用度 依据 车型以到店核算为准。 红旗L 九设计定位为...
起源 :读特 龙岗区保持 平易近 熟劣先,出力 解决户籍正在册轮候低保、低保边沿 ,残疾人、抚恤定剜劣抚工具 及计熟坚苦 野庭的住房坚苦 ,提下房源设置装备摆设 效力 ,区住修部分 多举动 筹散私租房腾退房源 一 三0套入止定背配租。 据相识 ,此次龙岗区户籍正在册轮候特殊坚苦 野庭定背配租私共...