Итак, я пытаюсь отправить запрос на http-сервер из VBA с помощью класса WinHttpRequest.
Я уже создал аналогичный код, который отправляет запросы на другой сервер, и это сработало.Этот даже не пройдет через «.Send».Сбой (время ожидания).
Я проверил каждый RequestHeader в Google Chrome devtools и попытался повторить веб-запрос, но не смог (с файлами cookie и без них).
Есть идеи?
Код:
Dim WHTTP As New WinHttp.WinHttpRequest
With WHTTP
.Open "GET", "https://contactcenter-prd.prosodie.com/prweb/sso", False
.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"
.SetRequestHeader "Accept-Encoding", "gzip, deflate, br"
.SetRequestHeader "Accept-Language", "pt-BR,pt;q=0.9,en-US;q=0.8,en;q=0.7"
.SetRequestHeader "Connection", "keep-alive"
'.SetRequestHeader "Cookie", "JSESSIONID=337C72E2DBCC1080C674033FFC51EBFA.contactcenter; Pega-RULES=" & Chr(34) & "{atn}e3ByfVkzNDBlc3NYRlBYdWFRT2dkRFRjekU5LytjNm51MEMwazI4YmJqVDNvaFlUTE1LQUN3T1p6SUVYMEd5dlUxaHRSWEVINFpJTWVhY1YKdCtpRkQwZjJLdz09" & Chr(34) & "; BWROUTEID=s2ac70d938fbd5ee39c5b1b93ac33d7b.1"
.SetRequestHeader "Host", "contactcenter-prd.prosodie.com"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
'.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/66.0.3359.117 Safari/537.36" ' From Chrome
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" ' Some guy said it would work (it didn't)
'.SetTimeouts 1200000, 1200000, 1200000, 1200000
.Send
End With
РЕДАКТИРОВАТЬ:
Цель макроса состоит в том, чтобы войти на сайт, получить некоторую информацию, поместить информацию ви выходите с веб-сайта.
Мне известно, что URL-адрес перенаправляется на другой, но (я думаю) мне необходимо перейти на первый веб-сайт, чтобы получить файлы cookie.
РЕДАКТИРОВАТЬ 2:
Проблема решена.
Мне пришлось настроить прокси для использования веб-сайта..SetProxy 2, myProxy сделал свое дело!