@echo off
setlocal enabledelayedexpansion
set infile=free.txt
set url=https://www.google.com/?gws_rd=ssl
set pl="http://www.66ip.cn/mo.php?sxb=&tqsl=100&port=&export=&ktip=219&sxa=&submit=%%CC%%E1++%%C8%%A1&textarea="
echo --- %date% %time% available proxy lists --->>available.txt
wget %pl% -O down.txt
type down.txt|grep -Eio "[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,5}">%infile%
:: del down.txt 1>nul 2>nul
call :G_getrows %infile%
set /a checkline=1
for /f "delims=" %%i in (%infile%) do (
call :checkProxy %%i !checkline!
del temp.txt 1>nul 2>nul
set /a checkline=!checkline!+1
)
echo --------------done----------------
pause >nul
exit /b
:checkProxy
set proxy=%1
wget -e https_proxy="%proxy%" -t 1 -T 1 %url% -O temp.txt 1>nul 2>nul
if %errorlevel% NEQ 0 echo %2/%lines%. %proxy% unavailable
if %errorlevel% EQU 0 (
echo %2/%lines%. %proxy% available
echo %proxy%>>available.txt
)
exit/b
:G_getrows
set /a lines=0
for /f %%i in ('findstr /n .* %1') do (
set /a lines=lines+1
)
exit/b
GetCheckProxy.7z
