foxJL

我YY了一小段,请 普通人 别见怪~!

@echo off&setlocal enabledelayedexpansion
goto start_1
我们，是一群执著的批处理爱好者
在色彩斑斓的Windows下，开启CMD这扇深邃的窗口
曾经挑灯夜战，曾经彻夜不眠
我们之所以如此似痴若狂，是因为我们深知：
尺有所短、寸有所长，CMD不同凡响
我们精益求精，力求完美
所有的努力，只为了用最简洁的语言，编写最具实用性的代码
批处理之家  bbs.bathome.net
高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园
不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在 ～～ 批处理之家 ～～
:start_1
title code by 小楼一夜听春雨  2007-12-1  bbs.bathome.net
mode con cols=112 lines=10 &color 9f
set fang=■&echo.&echo.
for /l %%a in (1 1 35) do set kkk= !kkk!
echo %kkk%批处理之家  bbs.bathome.net  欢迎您
echo.&echo.&set/p=    <nul
for /l %%a in (1 1 50) do (
set /a jind=%%a*2
set jind=   !jind!
set jind=!jind:~-3!
set /p=%fang%!jind!%%<nul
set /p=<nul
for /l %%i in (1 1 1000) do ver>nul
)
mode con: cols=90 lines=40
ECHO CMD-BAT
::下面一小段code by 泛滥棏慌°
for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 ， 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 ， 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 ， 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 ， 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 ， 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 ， 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 ， 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 ， 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 ， 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 ， 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do ((if "%%i"=="，" (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!)
if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul)))
set ",=0123456789"&set "hanghao=12"
for /l,%%a,in,(1,1,20),do,set "k= !k!"
for /f,"tokens=1* delims=:" %%a,in,('findstr /n .* "%~0"'),do,(
  if,%%a,leq,%hanghao%,(set _%%a=%%b)
)
set "_1=%k%批处理之家  bbs.bathome.net  欢迎您"
set "_2=          网址：bbs.bathome.net"
set "_2=!_2!    群号：43011867    站长：youxi01"
for /l,%%a,in,(1,1,%hanghao%),do,(
  set "]=0"
  for /l,%%i,in,(0,1,100),do,(
    (set /=!_%%a!)
    if,not,"!_%%a:~%%i,1!"=="",(set /a]+=1)
  )
  call :lis
  if %%a equ 2 echo.
)
echo\&echo\&echo\
set/p=         ────    批处理之家  bbs.bathome.net     <nul
endlocal&color 1a
set _=0&set ")=                "&set "(=欢迎您的加入 !!!"
set "T="
:loop
set/p=%(%<nul
if,%_%,geq,500,echo.&echo.&echo.&pause&exit
set/p=%T%<nul
for /l,%%i,in,(1,1,1500),do,ver>nul
set (=%)%&set ")=%(%"&set/a "_+=1"
goto loop
:lis
echo\&echo\
set/p=     <nul
set /a "\=!]:~0,1!"
set/a?=1/(1/!]:~-1!)2>nul||(set "/=!/! ")
set/a?=1/(10/])2>nul&&(set \=1&set:=1)||(set:=0)
for /l,%%a,in,(!:! 1 !\!),do,(
set "{="
if,%%a,equ,!\!,(set }=!]:~-1!),else,(set }=9)
for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)
call :xs
)
goto :eof
:xs
for /l,%%k,in,(0 1 !}!),do,(
call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul
for /l,%%i,in,(1,1,200),do,ver>nul
)
set /a "sq=}+1"
call,set "/=%%/:~!sq!%%"
goto :eof
复制代码

[ 本帖最后由 泛滥棏慌° 于 2007-12-3 00:02 编辑 ]