Пишу код на получение ответа с сервера в виде json,
Dim strResult2 As String
Dim objHTTP2 As Object
Dim URL2 As String
Set objHTTP2 = CreateObject("WinHttp.WinHttpRequest.5.1")
URL2 = "site.com/get_info"
objHTTP2.Open "GET", URL2, False
objHTTP2.SetRequestHeader "Accept", "application/json; charset=utf-8"
objHTTP2.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/106.0.0.0 Safari/537.36 Edg/106.0.1370.37"
objHTTP2.send
Dim Json As Object
response = objHTTP2.responseText
Debug.Print response
В ответе получаю вот это
Если убераю фрагмент
objHTTP2.SetRequestHeader "Accept", "application/json; charset=utf-8"
То просто рандомные символы, кто может помочь в этом вопросе?
листаю интренет уже много так и не могу найти ответа.
Если меняю WinHttp.WinHttpRequest.5.1 на MSXML2.ServerXMLHTTP
То выдаёт 401 (Not Auth)