我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 编辑 ] |
发表于 2008-11-11 00:31
| 
