Нет результатов при отправке HTTP-запроса POST - PullRequest
0 голосов
/ 07 октября 2019

Я пытаюсь отправить запрос POST на следующий веб-сайт: Токийский меморандум о взаимопонимании .
Я знаю, что у него есть капча, однако я не могу найти способ пройти через него. Цель состоит в том, чтобы отправить ID флага и 2 даты для получения количества проверок и соответствующих данных.

С помощью следующего кода у меня есть следующий ответ от сервера:
Код:

Sub TestAlpha()

Dim req As New MSXML2.XMLHTTP60
Dim URL As String

reqURL = "https://apcis.tmou.org/public/?action=getinspections"

req.Open "POST", reqURL, False
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.send "imo=&callsign=&name=&compimo=&compname=&From=07.09.2019&Till=07.10.2019&authority=0&flag=PT&class=0&ro=0&type=0&result=0&insptype=-1&sort1=0&sort2=DESC&sort3=0&sort4=DESC"


If req.Status <> 200 Then
    MsgBox reqstatus & "- " & req.statusText
    Exit Sub
End If

Debug.Print req.responseText

End Sub

Ответ от сервера:


window.location.reload ();

Спасибо за помощь.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...