Forum Discussion

sal21's avatar
sal21
New Contributor
2 years ago
Solved

https://developers.openapi.it/ and counter

I'm on vba.

I need to set my get statement, for https://developers.openapi.it/services/oauth#tag/counters

 

i just have email of my account and apykey

 

This is my code for all my get statement  in general:

 

Option Explicit
Private Sub RestExample1()

Dim APICall As String
Dim myXML As New MSXML2.DOMDocument60

APICall = "https://oauth.openapi.it/counters/total/"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", APICall, False
.setRequestHeader "Authorization", "Basic xxxxxxxxxxxxxxxxxxxxxxxxxxx"
.send
Debug.Print .responseText
End With
End Sub

 

how to set the this:

.setRequestHeader "Authorization"

 

tks.

 

note:

for test i can send my account id and password

4 Replies

Sort By
  • ponelat's avatar
    ponelat
    Icon for Staff rankStaff
    2 years ago
    Copy Link

    Hi sal21 ,

     

    Looks like your API requires HTTP Basic authentication.  It's a base64 encoded string, made up of your username + colon (:) + password, eg:
    User = "josh"

    Password = "pa$$"

     

    String = "josh:pa$$"

    String after base64 encoding: "am9zaDpwYSQk"

    Then the full header is:

    "Authorization: Basic am9zaDpwYSQk" 

     

    I don't know VBA, but a Google showed this snippet, which may work for you...

     

    user = "someusername"
password = "somepassword"
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + password)

     

    See: https://swagger.io/docs/specification/authentication/basic-authentication/ to learn about Basic Auth.

    • sal21's avatar
      sal21
      New Contributor
      2 years ago
      Copy Link

      sorry bro.

      i need to force the return string as Json this command: Debug.Print .responseText

       

      have idea?