HTTP GET with Custom Header and OAuth2 Bearer Token

Dim success As Long
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp

' Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be adeded.
http.AuthToken = "Just_the_access_token_here"

' Add one or more custom headers..
http.SetRequestHeader "X-Tenant-ID","value goes here"
http.SetRequestHeader "blah-blah-blah","value goes here"

Dim url As String
url = "https://www.example.com/abc/123?x=something&y=someOtherThing"

' Send the GET request and get the response body in the StringBuilder object.
Dim sb As New ChilkatStringBuilder
success = http.QuickGetSb(url,sb)
If (success <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "response status code: " & http.LastStatus
Debug.Print "response body:"
Debug.Print sb.GetAsString()

' If the response contains JSON, you can load it into a Chilkat JSON object...
Dim json As New ChilkatJsonObject
success = json.LoadSb(sb)
json.EmitCompact = 0
Debug.Print json.Emit()