cmaedu.com

求黑客帝国数字雨的制作方法

复制以下内容到记事本，另存为“黑客帝国数字雨.bat ”运行即可或再按Alt+Enter全屏！@echo %dbg% off

setlocal ENABLEDELAYEDEXPANSION

mode con cols=80 lines=30

cmaedu.comclsset 退格=

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=

cmaedu.comsetlocal enabledelayedexpansion:loop

cmaedu.com:: 取随机位置上的字符

cmaedu.comset /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

cmaedu.comset blank=!str_blank:~0,%num_blank%!

echo.%blank%%char%

cmaedu.comgoto loop@echo off

cmaedu.commode con cols=80

cmaedu.comset a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

set b=

setlocal enabledelayedexpansion

:a

set /a num=%random%%%92

cmaedu.comset 字符=!a:~-%num%,1!

cmaedu.comset/a c=%random%%%80

cmaedu.comset 空格=!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

cmaedu.comset 字符=!a:~-%num%,1!

cmaedu.comset/a c=%random%%%80

cmaedu.comset 空格=!b:~-%c%!

::echo. %空格%^%字符%set/a i+=1

cmaedu.comrem 指针=i 尾指针=j

set/a j=i-30

set line%i%=%空格%^%字符%

cmaedu.comFOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!

cmaedu.com::ping /n 127.1nul

cmaedu.comgoto a@echo off

::mode con cols=80

setlocal ENABLEDELAYEDEXPANSION

cmaedu.comcolor 02goto BEGIN

cmaedu.comgoto :eof::function mt_rand "a" "b"

:mt_rand

cmaedu.comset a=%~1

cmaedu.comset b=%~2

cmaedu.comset /a _mt_rand=(!random!%%(%b%-%a%))+%a%

cmaedu.comexit /b 0

::):BEGIN

cmaedu.comSET iWidth=80

cmaedu.comSET iDensity=6

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

cmaedu.com SET sText=!sText:"=!

set /A iText=90-1for /l %%i in (1,1,%iWidth%) do (

set aDown%%i=0

cmaedu.com):loop

for /l %%I in (1,1,%iWidth%) do (

cmaedu.com set /a aDown%%I-=1

cmaedu.com if !aDown%%I! LSS 0 (

cmaedu.com 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 (

cmaedu.com 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

cmaedu.comexit /b 0@echo off

setlocal ENABLEDELAYEDEXPANSION

color 02for /l %%i in (1,1,80) do (

cmaedu.com set Down%%i=0

):loop

for /l %%j in (1,1,80) do (

set /a Down%%j-=1

if !down%%j! LSS 0 (

cmaedu.com set /a Arrow%%j=!random!%%4

set /a Down%%j=!random!%%15+10

cmaedu.com if "!Arrow%%j!" == "1" (

cmaedu.com set /a chr=!random!%%2

cmaedu.com set /p=!chr!nul

cmaedu.com ) else (

set /p= nul

goto loop

goto :eof@echo off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

for /l %%i in (1,1,80) do (

cmaedu.com 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

cmaedu.com call set x=!down%%j!

if !x! LSS 0 (

set /a Arrow%%j=!random!%%6

cmaedu.com set /a Down%%j=!random!%%15+10

call set x=!Arrow%%j!

cmaedu.com if "!x!" == "1" (

cmaedu.com set line=!line!1

) else (set "line=!line! ")

cmaedu.com call set /p=!line!nul

)[/code]

ps做黑客帝国数字雨，要静态图片

1.首先把数字布满整个版面

cmaedu.com2.然后把你需要的人像放到数字层之上，把本图层的混合选项设置为叠加．

效果就出来了，希望能帮到你．

谁有黑客帝国里面的数字雨的动态图片

孩子~自己做吧！首先点击开始→所有程序→附件→记事本 然后就把下面的代码复制到记事本里，另存为“黑客帝国数字雨.bat” 然后另存为成功后运行文件即可实现桌面数字雨或按Alt+Enter实现全屏数字雨

注：请忽修改下面数字雨代码的任何一个字母，否则将无法成功允许(包括空格在内)

数字雨代码如下： @echo %dbg% off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

mode con cols=80 lines=30

cls

cmaedu.comset 退格=

cmaedu.comset redtek=" "

cmaedu.comset end=0

:start

set /a end+=1

call :calc

cmaedu.comset /p=!setspaces! nulping /n 1 127.1nul

cmaedu.comset /p=%退格%nul

cmaedu.comset /p=%redtek:~1,79%nulecho.

goto :start

cmaedu.com:calc

cmaedu.comif %end%==28 (

cmaedu.comset /a end=0 cls set /a cols=!random:~0,2!

echo ... 风力：!cols! ...

cmaedu.comif !cols! GTR 76 set cols=76

cmaedu.comif !cols! LSS 2 set cols=2

set setspaces=!redtek:~1,%cols%!!random:~0,1!

cmaedu.comgoto :eof

@echo off

cmaedu.commode con cols=80

cmaedu.comcolor 02

cmaedu.comfor /f %%i in (test.txt) do set str_char=%%i

set str_blank=

cmaedu.comsetlocal enabledelayedexpansion

cmaedu.com:loop

:: 取随机位置上的字符

set /a num_char=1%random:~-1%%random:~0,1%-100

set char=!str_char:~-%num_char%,1!

:: 设置随机长度的空格

cmaedu.comset /a num_blank=1%random:~-1%%random:~0,1%-100

cmaedu.comset blank=!str_blank:~0,%num_blank%!

echo.%blank%%char%

cmaedu.comgoto loop

cmaedu.com@echo off

mode con cols=80

set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

cmaedu.comset b=

cmaedu.comsetlocal enabledelayedexpansion

cmaedu.com:a

cmaedu.comset /a num=%random%%%92

set 字符=!a:~-%num%,1!

set/a c=%random%%%80

set 空格=!b:~-%c%!

cmaedu.comecho %空格%^%字符%

goto a

cmaedu.com@echo off

mode con cols=80 LINES=30

set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^^

set b=

cmaedu.comsetlocal enabledelayedexpansion

:a

set /a num=%random%%%92

set 字符=!a:~-%num%,1!

set/a c=%random%%%80

cmaedu.comset 空格=!b:~-%c%!

::echo. %空格%^%字符%

set/a i+=1

rem 指针=i 尾指针=j

cmaedu.comset/a j=i-30

cmaedu.comset line%i%=%空格%^%字符%

cmaedu.comFOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!

cmaedu.com::ping /n 127.1nul

cmaedu.comgoto a

cmaedu.com@echo off

cmaedu.com::mode con cols=80

setlocal ENABLEDELAYEDEXPANSION

cmaedu.comcolor 02

goto BEGIN

cmaedu.comgoto :eof

cmaedu.com::function mt_rand "a" "b"

cmaedu.com:mt_rand

set a=%~1

set b=%~2

cmaedu.comset /a _mt_rand=(!random!%%(%b%-%a%))+%a%

cmaedu.comexit /b 0

:BEGIN

SET iWidth=80

cmaedu.comSET iDensity=6

cmaedu.comSET sText="#$'()*+,-./0123456789:;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

cmaedu.comSET sText=!sText:"=!

set /A iText=90-1

for /l %%i in (1,1,%iWidth%) do (

cmaedu.comset aDown%%i=0

:loop

for /l %%I in (1,1,%iWidth%) do (

set /a aDown%%I-=1

if !aDown%%I! LSS 0 (

cmaedu.comcall :mt_rand "0" "%iDensity%"set aArrow%%I=!_mt_rand!

cmaedu.comcall :mt_rand "10" "25"set aDown%%I=!_mt_rand!

cmaedu.comif !aArrow%%I! EQU 1 (

call :mt_rand "0" "%iText%"(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!)

cmaedu.comset /p=!aa!nul

cmaedu.com) else (

set /p= nul

cmaedu.comgoto loop

cmaedu.com:exit

exit /b 0

@echo off

setlocal ENABLEDELAYEDEXPANSION

cmaedu.comcolor 02

cmaedu.comfor /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

cmaedu.comif !down%%j! LSS 0 (

cmaedu.comset /a Arrow%%j=!random!%%4

cmaedu.comset /a Down%%j=!random!%%15+10

cmaedu.comif "!Arrow%%j!" == "1" (

cmaedu.comset /a chr=!random!%%2

cmaedu.comset /p=!chr!nul

cmaedu.com) else (

set /p= nul

cmaedu.comgoto loop

cmaedu.comgoto :eof

cmaedu.com@echo off

cmaedu.comsetlocal ENABLEDELAYEDEXPANSION

cmaedu.comfor /l %%i in (1,1,80) do (

cmaedu.comset Down%%i=0

cmaedu.comfor /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!

cmaedu.comif !x! LSS 0 (

cmaedu.comset /a Arrow%%j=!random!%%6

cmaedu.comset /a Down%%j=!random!%%15+10

call set x=!Arrow%%j!

cmaedu.comif "!x!" == "1" (

set line=!line!1

cmaedu.com) else (set "line=!line! ")

call set /p=!line!nul

cmaedu.com)[/code]

怎么用FLASH做出黑客帝国数字雨的特效

建议你用affter effect做，

优酷搜索“ 罡渡晨星 黑客帝国数字雨 “ 刚刚好就是你要的教程，这个也是最像的了，罡渡晨星还有很多别的教程，非常优秀的。

参考【 频你本视 】视频制作初学网。

黑客帝国文字雨 flash 怎么制作

可用C语言编程来达到黑客文字雨的效果  。。。

效果如下：

代码如下，vc++编译通过 。。

cmaedu.com#include windows.h

cmaedu.com#define ID_TIMER    1

cmaedu.com#define STRMAXLEN  25 //一个显示列的最大长度

#define STRMINLEN  8  //一个显示列的最小长度

cmaedu.comLRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ;

typedef struct tagCharChain //整个当作屏幕的一个显示列,这是个双向列表

cmaedu.comstruct tagCharChain *prev; //链表的前个元素

TCHAR  ch;                  //一个显示列中的一个字符

cmaedu.comstruct tagCharChain *next; //链表的后个元素

}CharChain, *pCharChain;

cmaedu.comtypedef struct tagCharColumn

cmaedu.comCharChain *head, *current, *point;

int x, y, iStrLen; //显示列的开始显示的x,y坐标,iStrLen是这个列的长度

cmaedu.comint iStopTimes, iMustStopTimes; //已经停滞的次数和必须停滞的次数,必须停滞的次数是随机的

}CharColumn, *pCharColumn;

int main(HINSTANCE hInstance, HINSTANCE hPrevInstance,PSTR szCmdLine, int iCmdShow)

cmaedu.comstatic TCHAR szAppName[] = TEXT ("matrix") ;

cmaedu.comHWND            hwnd ;

MSG            msg ;

WNDCLASS    wndclass ;

cmaedu.comwndclass.style            = CS_HREDRAW | CS_VREDRAW ;

cmaedu.comwndclass.lpfnWndProc      = WndProc ;

wndclass.cbClsExtra       = 0 ;

cmaedu.comwndclass.cbWndExtra       = 0 ;

wndclass.hInstance        = hInstance ;

cmaedu.comwndclass.hIcon            = LoadIcon (NULL, IDI_APPLICATION) ;

cmaedu.comwndclass.hCursor          = LoadCursor (NULL, IDC_ARROW) ;

wndclass.hbrBackground    = (HBRUSH) GetStockObject (BLACK_BRUSH) ;

cmaedu.comwndclass.lpszMenuName     = NULL ;

cmaedu.comwndclass.lpszClassName    = szAppName ;

cmaedu.comif(!RegisterClass (wndclass))

MessageBox (NULL, TEXT ("此程序必须运行在NT下!"), szAppName, MB_ICONERROR) ;

cmaedu.comreturn 0;

cmaedu.comhwnd = CreateWindow (szAppName, NULL,

WS_DLGFRAME | WS_THICKFRAME | WS_POPUP,

cmaedu.com0, 0,

GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN),

cmaedu.comNULL, NULL, hInstance,

cmaedu.comNULL) ;

ShowWindow (hwnd, SW_SHOWMAXIMIZED) ; //最大化显示

UpdateWindow (hwnd) ;

ShowCursor(FALSE); //隐藏鼠标光标

srand ((int) GetCurrentTime ()) ; //初始化随机数发生器

cmaedu.comwhile (GetMessage (msg, NULL, 0, 0))

cmaedu.comTranslateMessage (msg) ;

DispatchMessage (msg) ;

ShowCursor(TRUE); //显示鼠标光标

cmaedu.comreturn msg.wParam ;

TCHAR randomChar() //随机字符产生函数

cmaedu.comreturn (TCHAR)(rand()%(126-33)+33); //33到126之间

int init(CharColumn *cc, int cyScreen, int x) //初始化

int j;

cc-iStrLen = rand()%(STRMAXLEN-STRMINLEN) + STRMINLEN; //显示列的长度

cc-x = x+3 ;        //显示列的开始显示的x坐标

cmaedu.comcc-y =rand()%3?rand()%cyScreen:0; //显示列的开始显示的y坐标

cc-iMustStopTimes = rand()%6 ;

cc-iStopTimes    = 0 ;

cmaedu.comcc-head = cc-current =

cmaedu.com(pCharChain)calloc(cc-iStrLen, sizeof(CharChain)); //生成显示列

for(j=0; jcc-iStrLen-1; j++)

cc-current-prev = cc-point; //cc-point一个显示列的前个元素

cc-current-ch  = '\0';

cmaedu.comcc-current-next = cc-current+1; //cc-current+1一个显示列的后个元素

cmaedu.comcc-point          = cc-current++; //cc-point = cc-current; cc-current++;

cmaedu.comcc-current-prev = cc-point; //最后一个节点

cc-current-ch  = '\0';

cc-current-next = cc-head;

cc-head-prev    = cc-current; //头节点的前一个为此链的最后一个元素

cmaedu.comcc-current = cc-point = cc-head; //free掉申请的内存要用current当参数

cc-head-ch = randomChar(); // 对链表头的 元素填充

cmaedu.comreturn 0;

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)

HDC          hdc ;

//ctn 用来确定一个显示链是否 向下前进,如果等待次数超过必须等待的次数,ctn就代表要向下前进

cmaedu.comint i, j, temp, ctn; //j为一个显示链中除链表头外的在屏幕上显示的y坐标,temp绿色过度到黑色之用

static  HDC hdcMem;

HFONT    hFont;

static  HBITMAP hBitmap;

static  int cxScreen, cyScreen; //屏幕的宽度 高度.

static  int iFontWidth=10, iFontHeight=15, iColumnCount; //字体的宽度 高度, 列数

cmaedu.comstatic  CharColumn *ccChain;

switch (message)

cmaedu.comcase WM_CREATE:

cmaedu.comcxScreen = GetSystemMetrics(SM_CXSCREEN) ; //屏幕宽度

cmaedu.comcyScreen = GetSystemMetrics(SM_CYSCREEN) ;

cmaedu.comSetTimer (hwnd, ID_TIMER, 10, NULL) ;

hdc = GetDC(hwnd);

cmaedu.comhdcMem = CreateCompatibleDC(hdc);

cmaedu.comhBitmap = CreateCompatibleBitmap(hdc, cxScreen, cyScreen);

SelectObject(hdcMem, hBitmap);

cmaedu.comReleaseDC(hwnd, hdc);

cmaedu.com//创建字体

cmaedu.comhFont = CreateFont(iFontHeight, iFontWidth-5, 0, 0, FW_BOLD, 0, 0, 0,

cmaedu.comDEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,

DRAFT_QUALITY, FIXED_PITCH | FF_SWISS, TEXT("Fixedsys"));

SelectObject(hdcMem, hFont);

DeleteObject (hFont) ;

cmaedu.comSetBkMode(hdcMem, TRANSPARENT); //设置背景模式为 透明

iColumnCount = cxScreen/(iFontWidth*3/2); //屏幕所显示字母雨的列数

cmaedu.comccChain = (pCharColumn)calloc(iColumnCount, sizeof(CharColumn));

for(i=0; iiColumnCount; i++)

cmaedu.cominit(ccChain+i, cyScreen, (iFontWidth*3/2)*i);

return 0 ;

case WM_TIMER:

cmaedu.comhdc = GetDC(hwnd);

PatBlt (hdcMem, 0, 0, cxScreen, cyScreen, BLACKNESS) ; //将内存设备映像刷成黑色

cmaedu.comfor(i=0; iiColumnCount; i++)

cmaedu.comctn = (ccChain+i)-iStopTimes++  (ccChain+i)-iMustStopTimes;

cmaedu.com(ccChain+i)-point = (ccChain+i)-head; //point用于遍历整个显示列

cmaedu.com//第一个字符显示为 白色

SetTextColor(hdcMem, RGB(255, 255, 255));

TextOut(hdcMem, (ccChain+i)-x, (ccChain+i)-y, ((ccChain+i)-point-ch), 1);

cmaedu.comj = (ccChain+i)-y;

(ccChain+i)-point = (ccChain+i)-point-next;

cmaedu.com//遍历整个显示列,将这个显示列里的字符从下往上显示

cmaedu.comtemp = 0 ; //temp绿色过度到黑色之用

while((ccChain+i)-point != (ccChain+i)-head  (ccChain+i)-point-ch)

SetTextColor(hdcMem, RGB(0, 255-(255*(temp++)/(ccChain+i)-iStrLen), 0));

cmaedu.comTextOut(hdcMem, (ccChain+i)-x, j-=iFontHeight, ((ccChain+i)-point-ch), 1);

(ccChain+i)-point = (ccChain+i)-point-next;

cmaedu.comif(ctn)

cmaedu.com(ccChain+i)-iStopTimes = 0 ;

cmaedu.comelse continue;

cmaedu.com(ccChain+i)-y += iFontHeight; //下次开始显示的y坐标 为当前的y坐标加上 一个字符的高度

//如果开始显示的y坐标减去 整个显示列的长度超过了屏幕的高度

cmaedu.comif( (ccChain+i)-y-(ccChain+i)-iStrLen*iFontHeight  cyScreen)

cmaedu.comfree( (ccChain+i)-current );

init(ccChain+i, cyScreen, (iFontWidth*3/2)*i);

//链表的头 为此链表的前个元素,因为下次开始显示的时候 就相当与在整个显示列的开头添加个元素,然后在开始往上显示

(ccChain+i)-head = (ccChain+i)-head-prev;

(ccChain+i)-head-ch = randomChar();

BitBlt(hdc, 0, 0, cxScreen, cyScreen, hdcMem, 0, 0, SRCCOPY);

ReleaseDC(hwnd, hdc);

cmaedu.comreturn 0;

case WM_RBUTTONDOWN:

cmaedu.comKillTimer (hwnd, ID_TIMER) ;

return 0;

case WM_RBUTTONUP:

cmaedu.comSetTimer (hwnd, ID_TIMER, 10, NULL) ;

cmaedu.comreturn 0;

//处理善后工作

case WM_KEYDOWN:

case WM_LBUTTONDOWN:

cmaedu.comcase WM_DESTROY:

cmaedu.comKillTimer (hwnd, ID_TIMER) ;

cmaedu.comDeleteObject(hBitmap);

DeleteDC(hdcMem);

cmaedu.comfor(i=0; iiColumnCount; i++)

cmaedu.comfree( (ccChain+i)-current );

free(ccChain);

PostQuitMessage (0) ;

return 0 ;

cmaedu.comreturn DefWindowProc (hwnd, message, wParam, lParam) ;

屏幕保护设置黑客帝国数字雨，怎么做

cmaedu.com在C:\WINDOWS\system32文件夹里，后缀名为scr的文件就是屏幕保护程序，选择你需要拷贝的屏幕保护程序，然后复制到你电脑的C:\WINDOWS\system32下即可。

cmaedu.com或者在各大黑客论坛下载 以前我下载过 还用过 还是不错的 现在换WIN7系统了 没怎么搞