批处理之家 - Powered by Discuz! Board

@echo off
:: Made By Defanive
setlocal enabledelayedexpansion
mode con: cols=26 lines=3
title 复制中，请稍候
color 71
del /f /q Copy._tmp 2>nul
cls
mshta vbscript:createobject("wscript.shell").run("Cmd /c Copy /z "+""""+"%~1"+""""+" "+""""+"%~2"+""""+" >"+""""+"%~dp0\Copy._tmp"+"""",0)(window.close)
set "bar=>>>>>>>>>>>>>>>>>>>>--------------------"
echo 复制中，请稍候
:ready
if not exist Copy._tmp goto ready
:copying
for /f "tokens=*" %%a in ('type Copy._tmp') do (
set "str=%%a"
if "!str:~-4!"=="已复制 " (
set /a "per=!str:~-9,3!"
set /a "pt=20-per/5"
call set "barn=%%bar:~!pt!,20%%"
set /p=!barn! !per!%%<nul
goto copying
)
)
cls
del /f /q Copy._tmp 2>nul
title 复制完成！
cls
echo.
echo 复制完成！
ping -n 2 127.0.0.1>nul
exit

复制代码

@echo off&setlocal enabledelayedexpansion
cd.>num.txt&echo.
for /l %%a in (1,1,10000) do (
echo %%a >>num.txt
set /a a=%%a%%500
if !a! equ 0 set /p=★<nul
)
start num.txt

复制代码

@echo off
if "%date:~-3,2%" equ "星期" (set 中=y)
if defined 中 (
set ec1=正在准备，请稍候。。。&set ec2=当前目录
set ec3=当前进度&set ec4=总进度&set ec5=正在考拷贝&set ec6=完成
) else (
set ec1=Please wait...&set ec2=Directory&set ec3=copying
set ec4=Total&set ec5=File&set "ec6=OK!!"
)
echo %ec1%
setlocal enabledelayedexpansion
set n=1
for /f "skip=2 delims=" %%a in ('dir /s /-c /a-d %1') do (
set "str=%%a"
if defined 中 (
if "!str:~-3!" equ "的目录" (set/a d+=1&set #!d!n=!str:~1,-4!) else (
for /f "tokens=1,2,3*" %%b in ("%%a") do (
if "%%d" neq "" (
set var=%%d
if defined end (set/a total=!var:~,-3!+0&goto :next) else (
if "%%c" equ "个文件" (set #!d!s=%%b&set/a n=1,#!d!z=!var:~,-3!+1) else (set #!d!.!n!=%%e&set/a #!d!.!n!.=!var:~,-1!+0,n+=1)
)) else (set end=y)
))
) else (
if "!str:~1,9!" equ "Directory" (set/a d+=1&set #!d!n=!str:~14!) else (
for /f "tokens=1,2,3*" %%b in ("%%a") do (
if "%%b" neq "Total" (
set var=%%d
if defined end (set/a total=!var:~,-3!+0&goto :next) else (
if "%%c" equ "File(s)" (set #!d!s=%%b&set/a n=1,#!d!z=!var:~,-3!+1) else (set #!d!.!n!=%%e&set/a #!d!.!n!.=!var:~,-1!+0,n+=1)
)) else (set end=y)
))
)
)
:next
set "bbb=>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
set "eee= =============================="
for /l %%a in (1,1,%d%) do (
set dir=
set num=
for /l %%b in (1,1,!#%%as!) do (set/a num+=#%%a.%%b.
set/a ec=!num! / !#%%az!
set/a tot+=#%%a.%%b.
set/a et=!tot! / !total!
set/a b1=ec/3+1,b2=et/3+1
rem copy /z !#%%an!\!#%%a.%%b! %2 >nul
cls
echo.&echo.&echo.&echo.
echo %ec5%: !#%%a.%%b!
for /f "tokens=1,2" %%c in ("!b1! !b2!") do (
echo %ec2%: !#%%an!
echo %ec3%: !bbb:~-%%c!!ec!%%!eee:~%%c!
echo.
echo %ec4%: !bbb:~-%%d!!et!%%!eee:~%%d!
)
ping -n 1 127.1 >nul
ping -n 1 127.1 >nul
)
)
echo !ec6!
pause

复制代码

@echo off&setlocal enabledelayedexpansion&mode con cols=25 lines=1
title 进度条
set /a a=0
:a
set /a a+=1
for %%a in (▏ ▎ ▍ ▌ ▋ ▊ ▉) do (set /p=%%a<nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &set /p= <nul)
set /p=█<nul
if %a% lss 10 (goto :a)
set /p= End<nul&pause>nul

复制代码