Требуется не много переписать скрипт

[Mikushe4ka]

Вообщем я из темы http://autoit-script.ru/index.php?topic=18210.0
Нужно переписать этот код на другое голосование, в целом они не много похожи, только есть несколько проблем.
Нужно переписать на это голосование http://www.kindersurprise.ru/gallery/?orderby=rating Там когда заходишь просит ввести дату рождения, необходимо, чтобы до 93-94 года было, но и чтобы выбрало участницу она внизу на 1-ой странице Антонина, 5 лет уже может на 2 ой странице, надо ей помочь выйграть) ЗА РАБОТУ Я ЗАПЛАЧУ, рублей 200-250 если устроит конечно)
Вот тот самый код.

Спойлер

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

P.S я понял что там нужен POST запрос, что-то мудил не получилось ничего (да ладно:D)

Спойлер

$Host = "www.kindersurprise.ru/92.63.108.40" #???
$File = "/gallery.json"
$URL = "http://" & $Host & $File
$PostData = "uid=1219&action=video_vote&token=888dadcafc9de517f49c5ce5fc996e91"
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.Send($PostData)
$oHTTP.WaitForResponse
$Response = $oHTTP.ResponseText

 

[winstan]

Вооот... но сайт работает с куками и не исключено что они будут проверяться

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://www.kindersurprise.ru/gallery.json"
Local $sStr = "uid=1219&action=video_vote&token=2a84c6751effc5c18d704f4852b47e33"
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', "Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0")
$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