У меня есть код, в котором я объявил такую переменную
Dim http As New XMLHTTP60
затем в коде я использовал эту строку
http.Open "POST", urlexample, False
http.Send strArg
Как я могу использовать waitForResponse для ожидания ответа сервера на запрос. Я пробовал зацикливаться после оператора .Send
While http.ReadyState <> 4: DoEvents: Wend
Но иногда это работает хорошо, а иногда ничего не возвращает.
Просматривая объектную модель, кажется, что этот метод недоступен через MSXML2.XMLHTTP60, но есть с WinHttp.WinHttpRequest. Однако последний не имеет свойства ReadyState.
Вам нужно будет изучить время ожидания по умолчанию и посмотреть, нужны ли вам SetTimeOuts для объекта WinHttp для получения более длительного времени.
Option Explicit
Public Sub testing()
Dim http As winHttp.WinHttpRequest
Set http = New winHttp.WinHttpRequest
With http
'.SetTimeouts ........
.Open "GET", "http://books.toscrape.com/", True
.setRequestHeader "User-Agent", "Mozilla/5.0"
.send
.waitForResponse 1000
End With
Stop
End Sub
Н.Б. Ваш запрос не будет асинхронным, если для асинхронного аргумента установлено значение FALSE в .Open
Интересно почитать: https://github.com/VBA-tools/VBA-Web/issues/337
Кажется, что VBA-Web Тима Холла был бы хорошим готовым способом сделать это.
.waitForResponse18.02.2021