dellete

Global $oReq, $oError, $ResponseText
Opt("TrayAutoPause", 0)
TraySetToolTip("loading proxy list...")
Local $sUA = "Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0"
HttpSetUserAgent($sUA)
Local $sUrl = "http://ap.tomsk.ru/contest/226-14.html?showresults=1"
Local $sStr = "ajxrequest=1&pollid=26&idf=easypoll&poll_choice=469&submit=%D0%93%D0%BE%D0%BB%D0%BE%D1%81%D0%BE%D0%B2%D0%B0%D1%82%D1%8C"
Local $sLine
Local $hFile = FileOpen(@ScriptDir&"\proxy_list.txt")
While 1
$sLine = FileReadLine($hFile)
If @error Then ExitLoop
TraySetToolTip("Proxy: "&$sLine)
ConsoleWrite("Proxy: "&$sLine&@CRLF)
HttpSetProxy(2, $sLine)
_MakeRequest("POST", $sUrl, $sStr, $sUA, $sLine)
;//ConsoleWrite($ResponseText&@CRLF&"----------"&@CRLF)
Sleep(1000)
WEnd

Func _MakeRequest($_method = "GET", $_url = "", $_str = "", $_UA = "", $_proxy = "")
$oReq = ObjCreate('WinHttp.WinHttpRequest.5.1')
If Not IsObj($oReq) Then Return SetError(1, 0, 0)
$oError = ObjEvent('AutoIt.Error', 'ErrorFunc')
If $_proxy <> "" Then $oReq.SetProxy(2, $_proxy, "")
$oReq.Open($_method, $_url, False)
If $_method = "POST" Then $oReq.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded; charset=UTF-8')
$oReq.SetRequestHeader('User-Agent', $_UA)
$oReq.SetRequestHeader('Cache-Controle', 'no-cach')
$oReq.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8')
$oReq.SetRequestHeader('Accept-Language', 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3')
$oReq.SetRequestHeader('Accept-Encoding', 'deflate')
$oReq.SetRequestHeader('Connection', 'keep-alive')
$oReq.Send($_str)
$ResponseText = $oReq.ResponseText
$oError = 0
Return 1
EndFunc