NeverOK

你的帖子我审阅通过....................^_^

jackerloo2009

呵呵，高手pk真的能激发好好学下去的兴趣呢！支持了。。。。。。

yfenguu

我去试试不错啊！！！

Enter

很不错啊，要向楼主多学学啊，呵呵

tslnyys

你们怎么都这么厉害啊。

jinyaxin

我想问一下  这个能做出全屏的吗   哪像效果会更好

netbenton

你按Alt+Enter键，它就全屏了
要程序自动全屏也可以，不过，效果似乎并不是很好。

Taurus

原帖由 netbenton 于 2009-4-18 13:10 发表
数码雨双向移动+字符串滚动+字符转动+标题字符串滚动+动态测帧+闪烁

@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"
...

为何完成后var !zza!没返回0?
数字好像只向上爬升不会降下

不是该这样吗?

set sec=%time:~6,2%
::=============loop位置下==============
if not "%time:~6,2%"=="%sec%" (
set sec=%time:~6,2%&title  !looptime! loop/1sec"
set/a looptime=0
)

523066680

netbenton的效果更有特色  上下交互穿梭
中间还有字幕

(除非他改了原来的版本，当时我看的时候是这样的效果)

我认同这样的效果，他是在能模仿了以后再增加自己的创意的。

more

特效就不弄了,弄了个雨点左右摆动,雨点下落速度有快有慢的,加上一个男中音:

@echo off
if not "%1"=="" goto :%1
start /b %~fs0 sound
title 按任意键退出...
set "code=ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFHGIJKLMNOPQ"
set /a end=19,left=10,right=0,straight=0,delay=550,times=10
for /l %%a in (2 1 25) do (set line%%a=  )
setlocal enabledelayedexpansion
:bgn
for /l %%a in (1 1 !end!) do (
   set /a "pick=!random!%%!end!"
   call set "line1=!line1!%%code:~!pick!,1%%   "
)
rem 控制字符左右摆动
if !left! gtr 0 (
   set /a left-=1
   if not !right! gtr 0 (set /a right=!random!%%7+10)
   for /l %%a in (25 -1 2) do (
      set /a "tmp_=%%a-1"
      call set "line%%a=%%line!tmp_!:~1%%%%line!tmp_!:~,1%%"
   )
) else (
   if !right! gtr 0 (
      set /a right-=1
      if not !straight! gtr 0 (set /a straight=!random!%%7+7)
      for /l %%a in (25 -1 2) do (
         set /a "tmp_=%%a-1"
         call set "line%%a=%%line!tmp_!:~-1%%%%line!tmp_!:~,-1%%"
      )
   ) else (
      set /a straight-=1
      if !straight! lss 0 (set /a left=!random!%%7+10)
      for /l %%a in (25 -1 2) do (
         set /a "tmp_=%%a-1"
         call set "line%%a=%%line!tmp_!%%"
      )
   )
)
set "line1="
cls
for /l %%a in (1 1 25) do (set str=!str!!line%%a!)
echo.!str!
set "str="
rem 控制字符落下速度的快慢(也就是摆动的快慢)
if !times! gtr 1 (
   set /a times-=1
   for /l %%a in (1 1 !delay!) do (
      echo.>nul
   )
) else (
   set /a times=!random!%%10+10,delay=!random!%%400+200
)
goto :bgn
:out
pause>nul
taskkill /FI "windowtitle eq 按任意键退出... *" >nul
:sound
start /b %~fs0 out
Setlocal Enabledelayedexpansion
set "n=0"
for %%a in ("wow wow wow, it is raining" "god, it is raining again" "so bad, the weather" "I love all of you, baby" "we are all batch fan" "get busy living, or get busy dying") do (
   set /a n+=1
   set "voice!n!=%%a"
)
:agn
set /a t=!random!%%!n!+1
mshta vbscript:CreateObject("SAPI.SpVoice").Speak(!voice%t%!)(Window.close)
ping -n 6 127.1>nul
goto :agn
复制代码

[ 本帖最后由 more 于 2009-8-3 10:50 编辑 ]

xznwfgq

加上你那个就坏了原来的那种效果了

netbenton

增加一对括号，竟然可以从28帧/秒，增加到34帧/秒

 
@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 @_@       [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
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
复制代码

523066680

Re:  netbenton  


效果很好，可惜，我的帖子下似乎有“风水”问题，基本上在这里发表作品很快就沉下去了。


当然还有一个原因是，本来是高亮的 现在取消后反成灰色，颜色比普通帖子要低沉
所以看到都像是禁忌帖~



他们不顶  我顶  我还是if_exist！   以后别处见了。


---------------------------------------------------------------------

我在这里回复batcher哈 ，原来是这样，谢谢说明。

[ 本帖最后由 523066680 于 2009-8-19 22:35 编辑 ]

Batcher

这是论坛新增的插件，所有的帖子，在你点击过一次之后，颜色会改变，以便区分哪些帖子看过了，哪些没看过。等你下次再来论坛的时候，它又恢复正常了。

shenlong

支持，太牛了。。。。。。。。。。。。。。。。。。