На автохотки можно так:
url := "http://polpol.gem-go.biz/en"
ajax := "http://polpol.gem-go.biz/ajax/reg_phone"
code := 371 ; код страны
FileRead, phone, phone.txt
ComObjError(false)
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Option(6) := False
Pos := 1, match := ""
While Pos := RegexMatch(phone, "[^\r\n]+", match, Pos+StrLen(match))
{
HTTP.Open("GET", url, true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.SetRequestHeader("Cookie", cookie)
HTTP.Send()
HTTP.WaitForResponse()
If (HTTP.GetResponseHeader("Set-Cookie") != "")
cookie := RegexReplace(HTTP.GetResponseHeader("Set-Cookie"), ";.*")
RegexMatch(HTTP.ResponseText, "id=""CSRF"" name=""(.+?)"" value=""(.+?)""", var)
filter := var1 "=" var2 "&sponsor=polpol&code=`%2B" code "&phone=" match
HTTP.Open("POST", ajax, true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
HTTP.SetRequestHeader("Pragma", "no-cache")
HTTP.SetRequestHeader("Cache-Control", "no-cache")
HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
HTTP.SetRequestHeader("Cookie", cookie)
HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
HTTP.SetRequestHeader("Referer", url)
HTTP.Send(filter)
HTTP.WaitForResponse()
If !InStr(HTTP.ResponseText, """status"":""OK""")
msgbox % "Error with number " match "`n" HTTP.ResponseText
}
msgbox Done
Доход не интересует. 
