Я пытаюсь отправить запрос 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 ();
Спасибо за помощь.