(VB.NET UWP/WinRT) Magento Request with OAuth1.0a Authentication

Demonstrates sending a Magento request with OAuth1.0a authentication. (Using the Magento 1.x REST API)

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim success As Boolean

Dim http As New Chilkat.Http

http.OAuth1 = True
http.OAuthVerifier = ""
http.OAuthConsumerKey = "MAGENTO_CONSUMER_KEY"
http.OAuthConsumerSecret = "MAGENTO_CONSUMER_SECRET"
http.OAuthToken = "MAGENTO__TOKEN"
http.OAuthTokenSecret = "MAGENTO_TOKEN_SECRET"

http.Accept = "application/json"

Dim url As String = "http://www.inart.com/api/rest/products/store/2?limit=20&page=1"

Dim jsonStr As String = Await http.QuickGetStrAsync(url)
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Response status code = " & http.LastStatus)

Dim json As New Chilkat.JsonObject
json.Load(jsonStr)
json.EmitCompact = False

Debug.WriteLine(json.Emit())

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON