@echo off

set file="list.txt"

title 检查中...
for /f %%n in ('find /v /c "" ^<%file%') do set total=%%n
set .b=
set /a current = 0, deleted = 0
for /f "usebackq" %%u in (%file%) do call :Check404 "%%u"

title 完成！%current%/%total% 已删除: %deleted%
echo,
echo 按任意键退出...
pause >nul
exit /b

:Check404
if not defined .b set .b=d >%file%
set /a current += 1
title 检查中... %current%/%total% 已删除: %deleted%
set /p =%1<nul
for /f "tokens=2" %%a in (' curl %1 -s -I -k') do (
    if "%%a" neq "404" (
        >>%file% echo %~1
        echo     √
    ) else (
        echo     ×
        set /a deleted += 1
    )
    goto :eof
)
复制代码