Visual Basic 6.0

BrickLink OAuth1 using Chilkat HTTP

See more BrickLink Examples

Demonstrates sending an api.bricklink.com request with OAuth1 authentication using Chilkat HTTP. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

http.OAuth1 = 1
http.OAuthConsumerKey = "Your Consumer Key"
http.OAuthConsumerSecret = "Your Consumer Secret"
http.OAuthToken = "Your OAuth1 Token"
http.OAuthTokenSecret = "Your Token Secret"
http.OAuthSigMethod = "HMAC-SHA1"

Dim resp As New ChilkatHttpResponse
success = http.HttpNoBody("GET","https://api.bricklink.com/api/store/v1/orders?direction=in",resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response status code = " & resp.StatusCode

Dim json As New ChilkatJsonObject
success = resp.GetBodyJson(json)

json.EmitCompact = 0
Debug.Print json.Emit()