[ÌØЧ´úÂë] ÓÃbatдһ¸öÊýÂëÓê½Å±¾

Å£òµ

ÏàÐÅ´ó¼Ò¶¼¿´¹ýºÚ¿ÍµÛ¹ú£¬Ò²¶¼ÖªµÀÐû´«º£±¨ÖеÄÊýÂëÓê

Å£òµ

»Ø¸´ 1# Å£òµ

title ºÚ¿ÍµÛ¹úÊýÂëÓê
@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%<NUL&ECHO.

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
)
¸´ÖÆ´úÂë

ÔËÐÐÍê²»¶Ô

neorobin

@echo off & title The Matrix & setlocal enabledelayedexpansion
 
for /f "tokens=2 delims=[]" %%a in ('ver') do for /f "tokens=2 delims=. " %%a in ("%%a") do set /a "FullScreen=-((%%a-6)>>31)"
if "%1"=="" (
  for %%a in (  FontSize:00060004
                FontFamily:00000030
                WindowSize:00320050
                ScreenColors:0000000a
                CodePage:000001b5
                ScreenBufferSize:00320050
                FullScreen:!FullScreen!
  ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
    >nul reg add HKCU\Console\TheMatrix /v %%b /t reg_dword /d 0x%%c /f
  )
  start "TheMatrix" /max "%ComSpec%" /c "%~s0" 1 & exit
) else ( >nul reg delete HKCU\Console\TheMatrix /f )


REM "Main Title/Trinity Infinity" ¨C 3:54
if exist "%~dp0matrix4.mp3" (
    start /min wmplayer "%~dp0matrix4.mp3"
) else (
    start /min wmplayer http://pisa.ucsd.edu/cse125/2001/cse190g1/matrix4.mp3
)

set "Matrix="
set /a "wid=80,hei=50,iMax=wid*hei, sumOfStream=wid*1/2"
for /l %%i in (1 1 !iMax!) do set "Matrix= !Matrix!"
set "bss=!Matrix: =!"

set "dic=*_-+|<>'`:.ýô1ôð9ðï?¨­8­Ø3Øû?70?¯¸6??
set "dicLen=42"

for /l %%# in (1 1 !sumOfStream!) do set "s%%#=0"
for /l %%* in (0 0 0) do (
  for /l %%# in (1 1 !sumOfStream!) do (
    if !s%%#! leq 1 (
      set /a "h%%#=!random!%%(hei-1)+2,p0%%#=!random!%%(wid*(hei+1-h%%#))+1,l%%#=!random! %% h%%# + 1,s%%#=l%%#+h%%#,h%%#+=1,pg%%#=p0%%#,pc%%#=p0%%#"

    )
    set /a "s%%#-=1,l%%#-=1,h%%#-=1,old=(l%%#-1)>>31,grow=-h%%#>>31, old0=-^!l%%#,pc%%#=(old0&p0%%#)|(~old0&pc%%#)"

    if !old! neq 0 (set "chrc= ") else set "chrc="
    if !grow! neq 0 (
      set /a "r=!random! %% dicLen"
      for %%r in (!r!) do set "chrg=!dic:~%%r,1!"
    ) else set "chrg="

    for %%i in (g c) do (
      if defined chr%%i (
        set /a "lL=p%%i%%#-1, lR=iMax-p%%i%%#, r=!random! %% dicLen"
        for /f "tokens=1-3" %%a in ("!lL! !p%%i%%#! !lR!") do (set "Matrix=!Matrix:~0,%%a!!chr%%i!!Matrix:~%%b,%%c!")
        set /a "p%%i%%#+=wid"
      )
    )
  )
  cls & <nul set /p "=!Matrix:~0,-1!"
)
exit
¸´ÖÆ´úÂë

523066680

»Ø¸´ 2# Å£òµ

      ºÃÏñCN-DOSÒÔÇ°ÓиöÌû×ÓµÄÊýÂëÓêЧ¹ûºÍÕâ¸öÀàËÆ£¿
²»¶ÏÔÚβÐÐÔö¼ÓʹµÃÊý×Ö¡°Óꡱ²»¶ÏÍùÉÏÍÆ¡£ÕâÖÖ·½·¨µÄ»°£¬´úÂë¿ÉÒÔ¸ü¼ò¶ÌµÄ¶÷¡£
¸üºÃµÄЧ¹û²Î¿¼3Â¥

Å£òµ

Ôõô»¹Óõ½ÁË wmplayer ÁË  £º£ºstart /min wmplayer
´°¿Ú´óСÄܸıäÂð£¿