netbenton

::黑客数码雨双向移动+左右文字滚动，逼真效果

@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
title 数码雨  By Benton 按任意键退出
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=2
set m=0
set k=0
set "in0=。。。。——《《欢迎来到黑客帝国》》——。。。。。"
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
::预处理结束

:::::::::::::::循环体:::::::::::::::
:loop
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!
set tem=!n0!
for %%a in (a b) do (
for /l %%i in (23,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))
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 in=!in0:~%k%!!in0:~0,%k%!
 set im=!im0:~-%k%!!im0:~0,-%k%!
 set l10=!l10:~0,25!!in:~0,15!!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,300) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨">nul
复制代码

[ 本帖最后由 netbenton 于 2009-4-18 01:23 编辑 ]

sexfio

@echo off
color 0a
echo 打雷啦，下雨啦，回家收衣服啦！！！
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)
复制代码

liugang123200

学习  不错啊

Allmen

很好，以前只写过一些非常简单的bat，今天来看，原来是这么的强大~

Batcher

建议学习一些批处理实用功能，不要在这些华而不实的东西上面花费太多精力。

kasalor

强啊，羡慕中，我啥时候才做的到

xavierjian

请问下楼主，怎样修改才能让这比处理运行一段时间后，进入一个批处理的菜单？
我是想让你的这个雨做个开始动画，炫耀下

Peking007

想起了黑客帝国的动画～～～

Dosny

有意思..学习昂.....只是4楼的为什么关闭的时候会有个XXX文件....

tylerxi

太强了....果然猛 刚刚要学习BAT

noevil

echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul

放在@echo off 下面

zss427607

确实牛呀 ,学习!!!!!!

leaparde

bat可以运用到这个程度，简直太牛了，一定要好好学习。

3399kl

高手。。。要向高手努力学习

huangzongwu

相当不错的说,
很漂亮啊!