Коллеги, прошу направить, библиотека MSXML2.XMLHTTP
пример сайта
https://vin01.ru/ Данные в запросах, с этим проблем нет
Впрос по капче на этом сайте она гугловская recapcha
передается в виде токена пример
HTTP.SetRequestHeader "token", "03AOLTBLT871peb03_BlUtDkGKImBWu5BlxMHEeVOwPjGr7A44MPiEF2gwT
5I9ESmZ1BIn5cChT6aaliQpEX1Fbdy1_TR84F5xx8BwlzGM7Pwgs8U2kFVex
LidvcQRw-4lRCwdNQlsE6mb4u0vsDk3LV-H35bR3nzbKVvn1v0HSYVOArRhHFQ4FFO2oU1rivXV_1iDguip_p776w3Jg70
EXSdnLCi0Pb3BMALlmucX3eie4r9_DFhSFTFp-KGaIun6u9QM8IXz2ohCpUyl2hNJv--CEL4ZrlqvFWrxcrUPldhGQWO3CHocp9g7JVrGBLQepIm1ub3sWe5RcFY8F9F
6yClQ5Nm1BReHlwGSUR11ViyFtHiRY7mmVwYMC7CBaXu8RZKQi4pf8vva6R1
9H6MwxG895tqzXwnfNBa-3UkOkwxmzOiCBXOJ6DU0wXHJKKvReYl1WIgJNCr-veewk9ja-pJEaF7DT1-sPZ5ptlnj0Ik9nS1XPljPhRY"
Есть идеи обхода?
Буду признателен за любые подсказки
пызы\\ код:
Код Sub testHis() '
Dim mm
Set HTTP = CreateObject("MSXML2.XMLHTTP")
sURL1 = "https://vin01.ru/api/gibdd.php"
HTTP.Open "POST", sURL1, False
HTTP.SetRequestHeader "Host", "vin01.ru"
HTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36"
HTTP.SetRequestHeader "Accept", "*/*"
HTTP.SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7"
HTTP.SetRequestHeader "Accept-Encoding", "gzip, deflate, br"
HTTP.SetRequestHeader "token", "03AOLTBLT871peb03_BlUtDkGKImBWu5BlxMHEeVOwPjGr7A44MPiEF2gwT5I9ESmZ1BIn5cChT6aaliQpEX1Fbdy1_TR84F5xx8BwlzGM7Pwgs8U2kFVexLidvcQRw-4lRCwdNQlsE6mb4u0vsDk3LV-H35bR3nzbKVvn1v0HSYVOArRhHFQ4FFO2oU1rivXV_1iDguip_p776w3Jg70EXSdnLCi0Pb3BMALlmucX3eie4r9_DFhSFTFp-KGaIun6u9QM8IXz2ohCpUyl2hNJv--CEL4ZrlqvFWrxcrUPldhGQWO3CHocp9g7JVrGBLQepIm1ub3sWe5RcFY8F9F6yClQ5Nm1BReHlwGSUR11ViyFtHiRY7mmVwYMC7CBaXu8RZKQi4pf8vva6R19H6MwxG895tqzXwnfNBa-3UkOkwxmzOiCBXOJ6DU0wXHJKKvReYl1WIgJNCr-veewk9ja-pJEaF7DT1-sPZ5ptlnj0Ik9nS1XPljPhRY"
HTTP.SetRequestHeader "Content-Type", "text/html; charset=UTF-8"
HTTP.SetRequestHeader "Referer", "https://vin01.ru/"
HTTP.SetRequestHeader "Content-Length", "462"
HTTP.SetRequestHeader "Cookie", "_ga=GA1.2.876201460.1571036281; _ym_uid=1571036282207774564; _ym_d=1571036282; TNoty=true; PHPSESSID=kfi4uq2ru54q7cmrtuka8ct317; _gid=GA1.2.711825302.1571212832; _ym_isad=2; _ym_visorc_442466"
HTTP.SetRequestHeader "Connection", "keep-alive"
HTTP.SetRequestHeader "typeCheckValue", "history"
'msg = "{" & Chr(34) & "live" & Chr(34) & ":" & Chr(34) & "1" & Chr(34) & "," & Chr(34) & "time_shift" & Chr(34) & ":0," & Chr(34) & "lang_id" & Chr(34) & ":" & Chr(34) & "0" & Chr(34) & "," & Chr(34) & "platforma" & Chr(34) & ":" & Chr(34) & "SITE_RU" & Chr(34) & "}"
mm = "{" & Chr(34) & "status" & Chr(34) & ":200" & "," & Chr(34) & "data" & Chr(34) & ":{" & Chr(34) & "requestTime" & Chr(34) & ":" & chr34 & Chr(34) & "16.10.2019 13:02" & Chr(34) & "," & Chr(34) & "RequestResult" & Chr(34) & ":{" & Chr(34) & "errorDescription" & Chr(34) & ":" & Chr(34) & Chr(34) & "," _
& Chr(34) & "statusCode" & Chr(34) & ":1," & Chr(34) & "Accidents" & Chr(34) & ":[]}," & Chr(34) & "hostname" & Chr(34) & ":" & Chr(34) & "check.gibdd.ru" & Chr(34) & "," & Chr(34) & "vin" & Chr(34) & ":" & Chr(34) & "WDC2923241A116614" & Chr(34) & "," & Chr(34) & "status" & Chr(34) & ":200}}"
Debug.Print mm
HTTP.Send mm
otvet = HTTP.ResponseText
Debug.Print 1
Debug.Print otvet
End Sub
