Http опубликовать запрос после входа в систему - PullRequest
0 голосов
/ 30 сентября 2019

Моя цель: я хочу отправить httprequest для получения сообщения Json после того, как пользователь вошел в систему (пользователь будет использовать Internet Explorer).

Итак, в моем коде VBA я хочу разрешить пользователю делатьвойдите в браузер, а затем он может нажать кнопку, которая будет извлекать JSON (в табличной форме).

Моя проблема: Как я могу прикрепить файлы cookie InternetExplorer (которые уже имеют учетные данные) в моем запросе http,Я пытаюсь отправить httprequest, однако получил «success»: false ».

Если я вручную ввожу URL-адрес в Internet Explorer, я могу успешно загрузить файл de json - но я хочу получить его с responseText

Мой код:

Sub GetJson(url as String)

    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument

    Dim aaa As String

    Set objShell = CreateObject("Shell.Application")

   'Get already open Internet Explorer     
For x = 0 To (objShell.Windows.Count - 1)
        On Error Resume Next
        my_url = objShell.Windows(x).document.Location
        my_title = objShell.Windows(x).document.Title
        If my_title = "MY-PAGE" Then

            Set IE = objShell.Windows(x)
            Exit For
        End If
    Next

With IE
        Set HTMLdoc = .document
End With

'Try to Get Json

Dim XMLHTTP As New MSXML2.ServerXMLHTTP60
XMLHTTP.Open "POST", url, False
XMLHTTP.send
xxx = XMLHTTP.responseText
MsgBox xxx

Set objShell = Nothing
Set IE = Nothing
Set HTMLdoc = Nothing

End Sub

Кто-нибудь знает, как решить эту проблему?

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