netbenton

在10日没修改前我开过了，界面并没有很特别，就是增加了下载mp3文件，作为背景播放

523066680

虽然很可能很漂亮，不过不敢开……

Taurus

[attach]1996[/attach]

[ 本帖最后由 Taurus 于 2009-11-11 04:15 编辑 ]

naiveboy520

好厉害   思维敏捷

523066680

经过后来netbenton升级，这个帖子有访量上万的可能……

bxbian951122

不错不错，，学习一下

joker

支持原创
作者加油

yuayua23

学习了，支持原创

tuoout

顶....！漂亮哦。

523066680

1楼是历史事件。还是后来者居上，各位继续。

shenlong

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

Batcher

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

523066680

Re:  netbenton  


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


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



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


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

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

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

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
复制代码

xznwfgq

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