[原创]测试地址的可用性

::第二次更新版：判断方式完全改变，对网站是否能正常使用的判断大幅提高；稍微解决了一下频闪的问题；过滤了部分会导致出错的输入；对运行时间进行了判断。
::当你在一个月的最后一天开始运行，并在下一个月结束运行时，总运行时间会显示为负数
@echo off
title testip2
SET BINDIR=%~dp0
CD /D "%BINDIR%"
cls
: che
if not exist wget.exe (
echo 文件wget.exe不存在。
echo 请重新下载。
set /p=按任意键退出<nul
pause>nul
exit
)
: s
set filen=
echo=
echo 文件注意事项：
echo 1.文件中每行只能有一个地址；
echo 2.文件中#作为开头的行会被省略；
echo *3.文件中包含的地址不能出现特殊字符（%% ^^ ^| ^& ^=）；
echo 4.文件中#作为开头的行可以出现特殊字符。
echo ----------------------------------------------------
set /p filen=请输入文件地址：
echo ----------------------------------------------------
set "filen=%filen:"=%"
if not exist "%filen%" (
echo 文件不存在，请重新输入。
goto s:
)
::---------------------------------timeout
echo 参数说明:
echo 1.连接尝试次数：连接失败后重新连接的最大次数。
echo (1)次数越少，说明连接较稳定；
echo (2)次数越多，连接越不稳定，但可能可以获得更多有效地址。
echo 2.连接等待时间：等待服务器回应的时间。
echo (1)设置时间越短，说明该地址连接状况越良好；
echo (2)设置时间越长，说明该地址需要较长时间来访问，但可以
echo 使可用的地址更多。
echo 3.连接上的地址并不代表一直可用。
echo 4.缺省参数：连接尝试次数=2
echo 连接等待时间(s)=4
echo ----------------------------------------------------
echo 请输入参数。
set /p trnum=连接尝试次数：
set /p ounum=连接等待时间(s)：
if "%trnum%" equ "" (set trnum=2)
if "%ounum%" equ "" (set ounum=4)
set "trnum=%trnum: =%"
set "ounum=%ounum: =%"
if %trnum% gtr 100000000 (set trnum=100000000)
if %ounum% gtr 1200000 (set ounum=1200000)
if %trnum% leq 0 (set trnum=2)
if %ounum% leq 0 (set ounum=4)
::---------------------------------
set linenum=0
echo 正在计算工程量...
for /f "usebackq eol=#" %%a in ("%filen%") do (
set /a linenum+=1
)
if %linenum% equ 0 (
cls
echo 在%filen%中没有未被注释的地址，请重新输入文件地址和参数。
goto s:
)
echo 正在处理数据...
set succenum=0
set failnum=0
set safnum=0
::-----------处理八进制问题-----------
set adated=%date:~8,2%
if "%adated%" equ "08" (set adated=8)
if "%adated%" equ "09" (set adated=9)
set atimeh=%time:~0,2%
if "%atimeh%" equ "08" (set atimeh=8)
if "%atimeh%" equ "09" (set atimeh=9)
set atimem=%time:~3,2%
if "%atimem%" equ "08" (set atimem=8)
if "%atimem%" equ "09" (set atimem=9)
set atimes=%time:~6,2%
if "%atimes%" equ "08" (set atimes=8)
if "%atimes%" equ "09" (set atimes=9)
::--------------------------------------
set /a statime=%adated%*24*3600+%atimeh%*3600+%atimem%*60+%atimes%
set /a nowtime=%statime%
set lastime=0
set deltime=0
set /a runtime=%nowtime%-%statime%
cls
set /a remanum=%linenum%-%safnum%
set /a rematim=%remanum%*%trnum%*%ounum%
::--------------------------小更新中加入的提醒--------------------------
set alltime=%rematim%
set timnum=0
if %alltime% gtr 3600 (
set /a timnum=%alltime%/3600
)
if %timnum% neq 0 (
msg * "测试完所有地址可能超过%timnum%小时，建议将文件分成多份，同时探测多个地址（来自%filen%文件）"
)
::----------------------------------------------------
::后半部分见楼下

::接上半部分
::--------------------------创建缓存--------------------------
set "resid=%date:~0,10%-%time%"
set "resid=%resid::=%"
set "resid=%resid:-=%"
set "resid=%resid: =0%"
set "resid=%resid:.=0%"
set "tempath=%temp%\batch_%resid%"
echo #-----------------%resid%----------------->resip_%resid%.txt
echo #说明：连接上的地址并不代表一直可用。>>resip_%resid%.txt
::----------------------------------------------------
::这是核心
set "enginecom=wget -q -e robots=off --tries=%trnum% --timeout=%ounum% --waitretry=2 --directory-prefix=%tempath%"
::因为是核心所以才只有这么一点
title %succenum%,%remanum%
cls
echo --------------------------任务开始--------------------------
echo 参数：
echo 连接尝试次数=%trnum%
echo 连接等待时间(s)=%ounum%
echo=
echo 测试结果：
echo 成功次数=%succenum%
echo 失败次数=%failnum%
echo 已测试次数=%safnum%
echo 剩余次数=%remanum%
echo 上一地址测试时间(s)=%deltime%
echo 任务运行时间(s)=%runtime%
echo 剩余时间(s)=%rematim%
::---------------------------------------------------------------
for /f "usebackq eol=#" %%h in ("%filen%") do (
md %tempath%
set "a=%%h"
call :outdo
)
set /a succepb=(%succenum%*100)/(%safnum%)
if %succenum% equ 0 (
echo #糟糕的是，您的地址全部无法连接，建议您检查网络是否能正常连接后，将连接尝试次数、连接等待时间增加，再重新测试>>resip_%resid%.txt
) else (
if %succenum% geq %safnum% (
echo #简直不可思议！您的地址都与您保持密切连接。>>resip_%resid%.txt
) else (
if %succenum% geq %failnum% (
echo #Congratulation!你的地址中一半以上都可以连接。>>resip_%resid%.txt
)
)
)
set /a rigtim=%failnum%*%trnum%*%ounum%
if %runtime% leq %rigtim% (
echo #Opps!错误代码:lessruntim.任务运行速度异常，引起原因：在任务过程中调系统时间；运行时文件损坏等。此错误可能会导致记录的可连接地址偏少，建议重新再进行一次任务。>>resip_%resid%.txt
msg * "Opps!错误代码:lessruntim.任务运行速度异常，引起原因：在任务过程中调系统时间；运行时文件损坏等。此错误可能会导致记录的可连接地址偏少，建议重新再进行一次任务。"
)
echo #----------------------信息反馈---------------------->>resip_%resid%.txt
echo #参数：>>resip_%resid%.txt
echo #连接尝试次数=%trnum%.>>resip_%resid%.txt
echo #连接等待时间(s)=%ounum%.>>resip_%resid%.txt
echo #>>resip_%resid%.txt
echo #测试结果：>>resip_%resid%.txt
echo #成功次数=%succenum%.>>resip_%resid%.txt
echo #失败次数=%failnum%.>>resip_%resid%.txt
echo #总次数=%safnum%.>>resip_%resid%.txt
echo #成功率=%succepb%%%.>>resip_%resid%.txt
echo #预估时间(s)=%alltime%.>>resip_%resid%.txt
echo #实际运行时间(s)=%runtime%.>>resip_%resid%.txt
echo #---------------------------------------------------->>resip_%resid%.txt
title %succenum%,suc%%=%succepb%%%
cls
echo 任务结束！
if %succenum% equ 0 (
msg * "糟糕的是，您的地址全部无法连接，建议您检查网络是否能正常连接后，将连接尝试次数、连接等待时间增加，再重新测试。"
) else (
echo 可用的地址保存在%BINDIR%resip_%resid%.txt中
)
echo 你可以将测试后的结果 直接 进行多次测试，以提高精确度。
echo ----------------------信息反馈----------------------
echo 参数：
echo 连接尝试次数=%trnum%
echo 连接等待时间(s)=%ounum%
echo=
echo 测试结果：
echo 成功次数=%succenum%
echo 失败次数=%failnum%
echo 总次数=%safnum%
echo 成功率=%succepb%%%
echo 预估时间(s)=%alltime%
echo 实际运行时间(s)=%runtime%
echo ----------------------------------------------------
echo 注意：长时间的等待可能会导致批处理无响应。
if %succenum% neq 0 (echo 连接上的地址并不代表一直可用。)
echo 按任意键退出
pause>nul
exit


: outdo
::if a is an address
%enginecom% %a%
set flienum=0
set fsize=0
for /f "tokens=* delims=" %%a in (*dir /s /b /a-d %tempath%*) do (
set /a fsize+=%%~za
set /a filenum+=1
)
if %filenum% equ 0 (set fsize=0)
if %fsize% gtr 1024 (
echo %a%>>resip_%resid%.txt
set /a succenum+=1
) else (
set /a failnum+=1
)
::-----------处理八进制问题-----------
set adated=%date:~8,2%
if "%adated%" equ "08" (set adated=8)
if "%adated%" equ "09" (set adated=9)
set atimeh=%time:~0,2%
if "%atimeh%" equ "08" (set atimeh=8)
if "%atimeh%" equ "09" (set atimeh=9)
set atimem=%time:~3,2%
if "%atimem%" equ "08" (set atimem=8)
if "%atimem%" equ "09" (set atimem=9)
set atimes=%time:~6,2%
if "%atimes%" equ "08" (set atimes=8)
if "%atimes%" equ "09" (set atimes=9)
::--------------------------------------
set /a safnum=%succenum%+%failnum%
set /a nowtime=%adated%*24*3600+%atimeh%*3600+%atimem%*60+%atimes%
set /a deltime=%runtime%-%lastime%
set lastime=%runtime%
set /a runtime=%nowtime%-%statime%
title %succenum%,%remanum%
set /a remanum=%linenum%-%safnum%
set /a rematim=%remanum%*%trnum%*%ounum%
rd /s /q %tempath%>nul
cls
echo -----------------连接上的地址并不代表一直可用-----------------
echo 参数：
echo 连接尝试次数=%trnum%
echo 连接等待时间(s)=%ounum%
echo=
echo 测试结果：
echo 成功次数=%succenum%
echo 失败次数=%failnum%
echo 已测试次数=%safnum%
echo 剩余次数=%remanum%
echo 上一地址测试时间(s)=%deltime%
echo 任务运行时间(s)=%runtime%
echo 剩余时间(s)=%rematim%
echo -----------------%succenum%,%remanum%（成功次数，剩余次数）-----------------
if %remanum% lss 0 (
msg /w * "Opps!错误代码:remannum.似乎出了一点小问题，如果要结束任务，请点击批处理窗口左上角的×，每次有异常情况时都会有错误提示。"
)

说实话，核心也只有这一条命令
set "enginecom=wget -q -e robots=off --tries=%trnum% --timeout=%ounum% --waitretry=2 --directory-prefix=%tempath%"
其他都是包装