Работаю с запросами через VBA для получения данных с контролера, на котором работает webserver
Есть вот такой код от производителя
А вот код запроса - тоже от производителя.
В конце запроса - API-key
Запускаю макрос Info и получаю после долгого времени
Ошибку &H80072F0D (-2147012851)
Причем если я запускаю в браузере "", даже без API-Key, то получаю нормальный ответ.
Вот и не пойму - где может быть проблема, поскажите плиз.
Есть вот такой код от производителя
| Код |
|---|
Function request(pAdress As String, pBasicAuth As String) As String
Dim objHTTP As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
.Open "GET", pAdress, False
.SetRequestHeader "Authorization", "Bearer" + pBasicAuth
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
.Send ("keyword=php")
End With
request = objHTTP.ResponseText
End Function
|
А вот код запроса - тоже от производителя.
| Код |
|---|
Sub Info()
Cells(1, 1).Value = request("https://192.168.245.11:90/api/get/data?elm=STATE", " edXXXXXXXXXXb4f24309a625618c85650a55b934fd2b7b4da710351")
End Sub
|
В конце запроса - API-key
Запускаю макрос Info и получаю после долгого времени
Ошибку &H80072F0D (-2147012851)
Причем если я запускаю в браузере "", даже без API-Key, то получаю нормальный ответ.
Вот и не пойму - где может быть проблема, поскажите плиз.
Goedenavond!
