手机黑客代码雨制作（手机黑客代码雨教程）

黑客帝国数字雨使用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//...）的数字雨代码，请不要使用，实现该功能不需要进入其他网址，带有网址的代码疑似为病毒，例如某经验上提供的数字雨代码。

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

复制以下内容到记事本，另存为“黑客帝国数字雨.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]

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

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

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

手机代码雨的代码是什么

fghy。

雨字使用手机五笔与一般五笔输入法一样，代码是fghy。代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。

VB制作一个数字雨屏保

'101个标签，一个按钮，一个图片框，一个时钟，背景图片自己找

V_car(100) as long

Private Sub Command3_Click()

For i = 0 To 100

Label1(i).Top = Picture_BeiJing.Height + 500

Label1(i).AutoSize = True

Label1(i).BackStyle = 0

Next

Timer_Con.Interval =40'每秒25次移动

Timer_Con.Enabled = True

End Sub

Private Sub Timer_Con_Timer()

For i = 0 To 100

If Label1(i).Top Picture_BeiJing.Height Then

Label1(i).Top = Label1(i).Top + V_car(i)

Else

Label1(i).Top = -200'移到顶部

Randomize

Label1(i).Left = Int((Picture_BeiJing.Width - Label1(i).Width) * Rnd)'水平定位

Randomize

Label1(i).Caption = i 'Int(10 * Rnd)'改变字符,注意这里去除1和引号后才行,这样是测试用的

Randomize

Label1(i).FontSize = 8 + Int(30 * Rnd)'改变字体大小

Randomize

Label1(i).ForeColor = RGB(Int(250 * Rnd), Int(250 * Rnd), Int(250 * Rnd))'改变字体颜色

Randomize

V_car(i) = 10 + Int(100 * Rnd)'重新设置下降速度

End If

Next