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

[sal21]

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

[ponelat · Accepted solution]

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]

GREAT!!!!

Resolved, tks!

[sal21]

sorry bro.

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

have idea?

[danielone]

Thanks it's working and solved issue. 🙂