• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    bat实现的模仿黑客帝国里面的数码雨
    ::黑客帝国里数码雨
    @echo %dbg% off
    :: Code by redtek 2006-11-2 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    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=%退格%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
    :: Code by JM 2006-11-3 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    :: test.txt内容为:1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%*(){}[]_+-=\"'?.,/
    :: 暂时不能处理 |>^
    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
    :: Code by 不得不爱 2006-11-3 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    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
    :: Code by yfd11 2006-11-3 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    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.1>nul
    goto a

    @echo off
    :: Code by hxuan999 2006-11-12 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    ::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
    :: Code by hxuan999 2006-11-12 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    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
    :: Code by newaifi 2006-11-16 CMD@XP
    :: 出处:http://www.cn-dos.net/forum/viewthread.php?tid=24418
    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
    )
    您可能感兴趣的文章:
    • 批处理 数码雨代码解释
    • 黑客帝国数字雨效果VC6源代码分享
    • jQuery模拟黑客帝国矩阵效果实例
    • js仿黑客帝国字母掉落效果代码分享
    • JS实现黑客帝国文字下落效果
    • 批处理实现乱雨纷飞(黑客帝国特效)
    上一篇:批处理之家发现的用批处理实现的系统类应用代码
    下一篇:5个计算天数的批处理代码第1/3页
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    bat实现的模仿黑客帝国里面的数码雨 bat,实现,的,模仿,黑客帝国,