Моя цель: я хочу отправить 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
Кто-нибудь знает, как решить эту проблему?