再次挑战数码雨(已更新) - 中国DOS联盟论坛

学习了!!!!!!!!!!!!!!!!

netbenton_欢迎来到黑客帝国
好玩！
就是文件头不好加注？
:: http://www.cn-dos.net/forum/viewthread.php?tid=40698

太NB了。真是高手多的跟什么S的

@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
        for /l %%j in (1,1,8) do (
                set "m%%i=!m%%i!          "
                set "n%%i=!n%%i!          "
        )
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束


:::::::::::::::循环体:::::::::::::::
:loop

::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
	set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
	set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@       
::增加的标题效果

set var=  %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var!  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!

for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!

set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3!  "
set/a ll+=1)


::增加的中间效果
for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)
	set/a chn=^(chn+1^)%%4
	set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
        set im=!im0:~-%k%!!im0:~0,-%k%!
        set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
        set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果

set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,150) do cd..>nul
goto loop
::::::::::::::::::::::::::::::::::::

::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul

[ Last edited by netbenton on 2009-4-19 at 08:54 ]

再增加闪烁效果

@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
        for /l %%j in (1,1,8) do (
                set "m%%i=!m%%i!          "
                set "n%%i=!n%%i!          "
        )
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束


:::::::::::::::循环体:::::::::::::::
:loop

::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
	set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
	set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@       
::增加的标题效果

set var=  %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var!  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!


for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
cls&color 0f&echo !len:~0,1888!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3!  "
set/a ll+=1)

::增加的中间效果
	if "%chn%"=="3" set/a k=^(k+25^)%%26
	set/a chn=^(chn+1^)%%4
	set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
        set im=!im0:~-%k%!!im0:~0,-%k%!
        set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
        set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
cls&color 0a&echo !len:~0,1888!
::如果速度过快的话，在这里增加延时for /l %%i in (1,1,150) do cd..>nul

set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!

goto loop
::::::::::::::::::::::::::::::::::::

::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul

第31楼　water0	发表于 2009-04-18 05:02
初级用户　发帖 29　积分 33
学习了!!!!!!!!!!!!!!!!

第32楼　dosz	发表于 2009-04-18 10:43
中级用户　发帖 188　积分 396　来自上海
netbenton_欢迎来到黑客帝国好玩！就是文件头不好加注？ :: http://www.cn-dos.net/forum/viewthread.php?tid=40698

第33楼　tongtong2009	发表于 2009-04-18 11:17
初级用户　发帖 24　积分 45　来自中华人民共和国
我倒啊太NB了。真是高手多的跟什么S的

第34楼　netbenton	发表于 2009-04-19 03:08
银牌会员　发帖 752　积分 1,916　来自广西
再增加一些: 测帧，动态标题，滚动中加转动 @echo off&color 0a if defined lins goto :sub set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23" setlocal enabledelayedexpansion start /b %~n0.bat set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z for %%i in (%lins%) do ( for /l %%j in (1,1,8) do ( set "m%%i=!m%%i! " set "n%%i=!n%%i! " ) ) set n=1 set m=0 set k=0 set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。" set mmz=%time:~6,2% set "chan=/-\\|" ::预处理结束 :::::::::::::::循环体::::::::::::::: :loop ::增加的标题效果 set/a zza+=1 if not "%time:~6,2%"=="%mmz%" ( set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2% set "tit= Made by Benton !zz!帧/秒，按任意键退出 " ) title @_@ ::增加的标题效果 set var= %%str:~!random:~0,2!,1%% for /l %%i in (1,1,2) do ( call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%" ) set/a n=^(n+23^)%%24,m=^(m+23^)%%24 set m%m%=!var! set n%n%=!var! set lins=!lins:~-3!!lins:~0,-3! for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!) set n23=!n-1! set n22=!n-2! set ll=0 for %%i in (%lins%) do ( set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! " set/a ll+=1) ::增加的中间效果 for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26) set/a chn=^(chn+1^)%%4 set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—" set im=!im0:~-%k%!!im0:~0,-%k%! set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55! set l12=!l12:~0,25!!im:~0,15!!l12:~55! ::增加的中间效果 set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23! cls echo !len:~0,1888! for /l %%i in (1,1,150) do cd..>nul goto loop :::::::::::::::::::::::::::::::::::: ::外部控制子过程 :sub pause>nul TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ ">nul [ Last edited by netbenton on 2009-4-19 at 08:54* ]

第35楼　netbenton	发表于 2009-04-19 10:54
银牌会员　发帖 752　积分 1,916　来自广西
再增加闪烁效果 @echo off&color 0a if defined lins goto :sub set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23" setlocal enabledelayedexpansion start /b %~n0.bat set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z for %%i in (%lins%) do ( for /l %%j in (1,1,8) do ( set "m%%i=!m%%i! " set "n%%i=!n%%i! " ) ) set n=1 set m=0 set k=0 set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。" set mmz=%time:~6,2% set "chan=/-\\|" ::预处理结束 :::::::::::::::循环体::::::::::::::: :loop ::增加的标题效果 set/a zza+=1 if not "%time:~6,2%"=="%mmz%" ( set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2% set "tit= Made by Benton !zz!帧/秒，按任意键退出 " ) title @_@ ::增加的标题效果 set var= %%str:~!random:~0,2!,1%% for /l %%i in (1,1,2) do ( call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%" ) set/a n=^(n+23^)%%24,m=^(m+23^)%%24 set m%m%=!var! set n%n%=!var! set lins=!lins:~-3!!lins:~0,-3! for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!) set n23=!n-1! set n22=!n-2! cls&color 0f&echo !len:~0,1888! set ll=0 for %%i in (%lins%) do ( set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! " set/a ll+=1) ::增加的中间效果 if "%chn%"=="3" set/a k=^(k+25^)%%26 set/a chn=^(chn+1^)%%4 set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—" set im=!im0:~-%k%!!im0:~0,-%k%! set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55! set l12=!l12:~0,25!!im:~0,15!!l12:~55! ::增加的中间效果 cls&color 0a&echo !len:~0,1888! ::如果速度过快的话，在这里增加延时for /l %%i in (1,1,150) do cd..>nul set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23! goto loop :::::::::::::::::::::::::::::::::::: ::外部控制子过程 :sub pause>nul TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul