GetCheckProxy

@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

原文：http://www.cnblogs.com/nlsoft/p/7604697.html