Web запросы через vba

Узнай цену своей работы

Формулировка задачи:

Приветствую, комрады!
Обращаюсь к вам как относительный новичок в vba. Нет, я умею редактировать сделанные макросы, изменять готовый код и писать какие-то примитивы, но я не держу в памяти названия операторов и не знаю многих вещей.
Постановка задачи: есть некий web-ресурс, есть API для работы с этим ресурсом. Есть мануал, описывающий команды этого API. Вся сущность в итоге позволит мне дергать билинговые данные из своего личного кабинета.
Самый главный мой вопрос - синтаксис запросов. Как средствами VBA отправлять POST и GET запросы с нужными параметрами и как выгружать итоговые данные в таблицу.
Мне бы пример кода-какой-нибудь или, для начала, разжевать примитивную задачу - авторизоваться на ресурсе. Вот выдержка из документации:

Понимаю, что выгляжу глупо и, возможно, вызову ваш гнев, но, тем не менее, расчитываю на помощь.
Заранее спасибо!
_____________________

Решение задачи: «Web запросы через vba»

textual
Листинг программы
Function GetHTTPResponse(ByVal sURL As String) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "POST", sURL, False, "логин_на_сайт", "пароль_на_сайт"
        ' настройки прокси
         .setProxy 2, "ip_прокси:порт_прокси"
         .setProxyCredentials "логин_прокси", "пароль_прокси"
        .send
        sHTMLBody = .responseBody
'       Charset = UTF - 8
        Debug.Print sHTMLBody
    End With
    For i = 0 To UBound(sHTMLBody)
        GetHTTPResponse = GetHTTPResponse & ChrW(AscW(Chr(AscB(MidB(sHTMLBody, i + 1, 1)))))
    Next
    Pi.Hide
    Set oXMLHTTP = Nothing
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5