Question

批处理小程序

嗯.....求一些好玩的批处理程序 自己研究下 如果能翻译一下 加分~~ 越多越好

Answer 1

下面是以前收录的几个，更多可以到
http://www.bathome.net/forumdisplay.php?fid=6&filter=type&typeid=50

：：进度条
@echo off
mode con cols=113 lines=15 &color 9f
cls
echo.
echo 程序正在初始化. . .
echo.
echo ┌──────────────────────────────────────┐
set/p= ■<nul
for /L %%i in (1 1 38) do set /p a=■<nul&ping /n 1 127.0.0.1>nul
echo 100%%
echo └──────────────────────────────────────┘
pause

：：title 神奇的回退
set "t="
for /l %%a in (1,1,1000) do set "k=!k!"
for /l %%a in (1,1,10) do echo ○○○○○○○○○○
ping /n 2 127.1>nul
:: 这里将光标退回原点处，请仔细注意光标的位置
echo %t%%k% 2>nul&set /p=<nul
pause>nul
:: 请注意6-10行第6-10个字符的输出是没有改变的
for /l %%a in (1,1,5) do echo ●●●●●¤¤¤¤¤
for /l %%a in (1,1,5) do echo ⊙⊙⊙⊙⊙
pause>nul

-------------数字雨---------------------
----------------------------------------
@echo off
color 0a
:start
set num=0
set "echos= "
:num
set /a a1=%random%%%3
if "%a1%" == "1" set "a1= "
if "%a1%" == "2" set "a1= "
if "%a1%" == "0" set /a a1=%random%%%2
set echos=%echos%%a1%
set /a num=%num%+1
if "%num%" == "75" echo %echos%&&goto :start
goto :num

：：批处理算24点
@echo off&color 1f&mode con cols=50 lines=5
setlocal enabledelayedexpansion
title 批处理算24 by zw19750516
set "code=+ - * /"&set n=1
:begin
cls&echo.&echo 请输入第%n%个(0-9内的)整数,请不要在数字前加0。
echo.&set /p num%n%= 请在这里输入：
echo !num%n%!|findstr "[^0-9]">nul&&goto wrong
set str=!num%n%!
if "!str:~,1!" equ "0" if "!str:~1!" neq "" goto wrong
if !str! gtr 9 goto wrong
set num=%num% !num%n%!&set /a n+=1
if %n% neq 5 goto begin
set num=%num:~1%
cls&echo.&echo 你输入的四个数是:%num%
echo.&echo 请稍候，正在运算中...&ping /n 2 127.1>nul
:again
set str=&set var=1234&set /a x+=1,n=4
if %x% equ 2000 cls&echo.&echo 对不起，没有算出来，或者这四个数算不出24。&pause>nul&goto :eof
:lp
set /a a=%random%%%%n%,m=%random%%%4+1
set a=!var:~%a%,1!
set var=!var:%a%=!
for /f "tokens=%m% delims= " %%i in ("%code%") do set b=%%i
:add
if %n% equ 1 set "b="
set str=%str%!num%a%!%b%&set /a n-=1
if %n% neq 0 goto lp
set /a a=%str%
if %a% neq 24 goto again
cls&echo.&echo 计算结果为：%str%=24
pause>nul&goto :eof
:wrong
cls&echo.&echo 输入的数不合要求，请正确输入。&ping /n 2 127.1>nul&goto begin