1Тема от monkalanin

Запросы через VBA к API ???

  • Зарегистрирован: 14/07/2020
  • Сообщений: 15
  • Карма: 0

Тема: Запросы через VBA к API ???

Здравствуйте,
хочу реализовать подключение к Гуртам Хостингу через API используя язык VBA
Не совсем понимаю как получить токен. Помогите

Вот попробовал ГЕТ запросом:

Dim XMLHTTP, stext
Set XMLHTTP = CreateObject ("MSXML2.XMLHTTP.6.0")
    XMLHTTP.Open "GET", "http://hosting.wialon.com/login.html?access_type=768", False
    XMLHTTP.send 
    stext = XMLHTTP.responseText
    MsgBox stext

А вот попробовал POST запросом:

Dim HTMLSource ,XMLHTTP,url,param
Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
param = "?user=*****&access_type=768"
url = "Https://hosting.wialon.com/login.html"
XMLHTTP.Open "POST", url, True
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.setRequestHeader "Content-Length", Len(pstData)
XMLHTTP.setRequestHeader "Cache-Control", "no-store, no-cache"
XMLHTTP.setRequestHeader "Pragma", "no-cache"
XMLHTTP.send param
XMLHTTP.waitForResponse = True
HTMLSource = XMLHTTP.responseText
MsgBox HTMLSource

Пробовал самые разные варианты передать в параметры но всё не то (((
Всё равно мне возвращается просто тело страницы. (рисунок прилагаю)

  • Запросы через VBA к API ???

0
2Ответ от monkalanin

Запросы через VBA к API ???

  • Зарегистрирован: 14/07/2020
  • Сообщений: 15
  • Карма: 0

Re: Запросы через VBA к API ???

Вот ещё попробовал создать токен как у вас сказано:

Dim HTMLSource ,XMLHTTP,url,param
Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
param = "?svc=token/update&params={callMode:create,app:vba,fl:0x100}"
url = "https://hst-api.wialon.com/wialon/ajax.html"
XMLHTTP.Open "POST", url, True
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.setRequestHeader "Content-Length", Len(pstData)
XMLHTTP.setRequestHeader "Cache-Control", "no-store, no-cache"
XMLHTTP.setRequestHeader "Pragma", "no-cache"
XMLHTTP.send param
XMLHTTP.waitForResponse = True
HTMLSource = XMLHTTP.responseText
MsgBox HTMLSource

Или так:

Dim XMLHTTP, stext
Set XMLHTTP = CreateObject ("MSXML2.XMLHTTP.6.0")
    XMLHTTP.Open "GET", "https://hst-api.wialon.com/wialon/ajax.html?svc=token/update&params={""callMode"":create,""app"":""vba"",""fl"":0x100}", False
    XMLHTTP.send 
    stext = XMLHTTP.responseText
    MsgBox stext

Везде получаю сообщение : error:4,reason:WRONG_PARAMS
Вроде бы передаю параметры верно, что ещё надо непойму???

0