批处理之家 - Powered by Discuz! Board

@echo off
setlocal enabledelayedexpansion
set fu= ^/ ^\
set "kong= "
set "kong2=____________________________________________________________________________"
set /a a=0,b=0,e=2,tiao=0
:a
set /a b+=1,c=30-%b%+%e%
cls
echo, 猪猪下班回Home的路上……
for /l %%a in (1,1,6) do echo,
echo,!kong:~0,%b%!_ @
echo,!kong:~0,%b%! ^/
echo,!kong2:~0,%b%!!fu:~%a%,2!!kong2:~0,%c%!
ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %a% leq 2 (set e=2)
if %a% equ 3 (set e=3)
if %a% equ 4 (set e=4)
if not %b% equ 30 goto :a else goto :b
set /a b=30,j=0,k=6
:b
if not %j% equ 6 (set /a j+=1,tiao=%j%) else (set /a k-=1,tiao=%k%)
set /a b+=1,up=6-%tiao%
cls
for /l %%a in (1,1,%up%) do echo,
echo,!kong:~0,%b%! @/
echo,!kong:~0,%b%!^<^/
echo,!kong:~0,%b%!!/^>
for /l %%a in (1,1,%tiao%) do echo,
echo,!kong2:~0,30!
ping -n>nul&ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %k%==0 (goto :c1) else (goto :b)
:c1
set /a cc=0,dd=0
set call1=嘿嘿,兰兰我到家啦！
:c
if not %tiao% equ 10 set /a tiao+=1
if not %b% equ 60 set /a b+=1
if not "%cc%" == "30" (set /a cc+=1,num=30-%cc%)
if "%cc%"=="30" if not "%dd%"=="30" set /a dd+=1
cls
for /l %%a in (1,1,9) do echo,
echo,!kong2:~0,%num%!
for /l %%a in (1,1,%tiao%) do echo,
if %tiao% equ 10 echo,!kong:~0,%b%!!call1:~0,%dd%!
echo,!kong:~0,%b%!_ @
echo,!kong:~0,%b%! ^/\
echo,!kong:~0,%b%!!fu:~%a%,2!
if %tiao% lss 10 (ping -n>nul&ping -n>nul&ping -n>nul) else (ping -n>nul)
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if "%dd%"=="30" (ping -n 2 127.1>nul &goto :d1) else (goto :c)
:d1
set name= 祝兰兰情人节快乐
set /a a=0
cls
color 0B
:dd
if %time:~2,1% lss 3 set /a a+=1
set an=%random%%random%%random%%random%%random%%random%%random%%random%%random%
set an=%an:~0,20%!name:~0,%a%!%an:~20%
if %a% equ 32 set an= 祝兰兰情人节快乐 &color 0E
cls
echo.&echo.&echo.
echo. ╭─┼─│　╭┐┌─┼┐
echo. 　　│　│　╭┐│┌┴┐　
echo. ┌─┴─│╮　　│╰┌╯
echo. ╭───╯　└╯╯─╯┘
echo. │　├──╯└┼──┼╯
echo. └　╰──┘└╰──┴╯
echo.
echo.
echo. ╭┬─　┐╮└┬┬┬─╯　┐├─┬┐
echo. 　│　　│┘╭┴┴┴─┐┌╯│　││
echo. └┼──┼┘├┼───┤││╯　│┘
echo. 　│　　││└├──┐┘││┌　│┐
echo. ╰┼┘┌┼╯┌│──┼┐│││　││
echo. └╯　╯╰┘└╯──╯╯　┘╰　┘╯
echo.
echo. %an%
echo.&echo.&echo.
echo. @ 话里心的我到看以可车回敲
echo.^<^|\
echo./ \
ping -n>nul
if %a% lss 32 (goto :dd) else (goto :end)
:end
pause>nul
@echo off
for /f "usebackq skip=99 delims=" %%a in ("%~dpnx0") do set "var=%%a"&call :as
pause>nul&goto :eof
:as
for /l %%i in (1 1 1000) do echo.>nul
set/p=%var:~0,1%<nul
set "var=%var:~1%
if "%var%"=="" echo.&goto :eof
goto as
老婆
我爱你
下辈子
还取你
取你卡里的钱

复制代码

@echo off
for /f "usebackq skip=6 delims=" %%a in ("%~dpnx0") do (
echo.%%a
for /l %%i in (1 1 2000) do echo.>nul
)
pause>nul&exit
老婆
我爱你
下辈子
还取你
取你卡里的钱

复制代码

@echo off
for /f "usebackq skip=2 delims=" %%i in ("%~dpnx0") do set/p a=%%i<nul&echo.&ping -n 2 localhost >nul
老婆
我爱你
下辈子
还取你
取你卡里的钱

复制代码

@echo off
setlocal EnableDelayedExpansion
set s=这里是要说的话
for /L %%i in (0,1,10000) do @(if !s:~%%i!.==. set /A length=%%i-1 && goto out)
:out
for /l %%i in (0,1,%length%) do @(set/p=!s:~%%i,1!<nul & ping /n 1 baidu.com>nul)
pause

复制代码

@echo off
for /f "usebackq skip=9 delims=" %%a in ("%~dpnx0") do set "var=%%a"&call :as
pause&goto :eof
:as
for /l %%i in (1 1 4000) do echo.>nul
set/p=%var:~0,1%<nul
set "var=%var:~1%
if "%var%"=="" echo.&goto :eof
goto as
老婆
我爱你
下辈子
还取你
取你卡里的钱

复制代码