Получить JSON ответ XMLHTTP альтернатива - PullRequest
0 голосов
/ 02 апреля 2020

У меня есть рабочий код, в котором я использовал запрос API XMLHTTP. Это код

Const sURL As String = "https://developers.zomato.com/api/v2.1/restaurant?res_id=258"
Dim http As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument, json As Object, r As Long


Set http = New MSXML2.XMLHTTP60
Set html = New MSHTML.HTMLDocument
r = 2

With http
    .Open "Get", sURL, False
    .setRequestHeader "User-Agent", "Mozilla/5.0"
    .setRequestHeader "user-key", "APIKEY"
    .send
    html.body.innerHTML = .responseText

    Set json = JSONConverter.ParseJson(.responseText)

Есть ли альтернатива для получения ответа JSON без использования библиотеки XMLHTTP (так как этого не происходит?) работа на МА C)? Большое спасибо за помощь.

1 Ответ

0 голосов
/ 03 апреля 2020

Я смог настроить и заставить его работать

Sub Test()
Const sUrl As String = "https://reqres.in/api/users/2"
Dim Response As New WebRequest, Client As New WebClient, rObj As Object, json As Object

Client.BaseUrl = sUrl

With Response
    .Method = WebMethod.HttpGet
    .RequestFormat = WebFormat.json

End With

Set rObj = Client.Execute(Response)
Set json = WebHelpers.ParseJson(rObj.Content)

Debug.Print rObj.Content
Debug.Print json("data")("email")
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...