(VB.NET UWP/WinRT) ClickBank Parse Instant Notification JSON

Demonstrates how to parse the JSON of a ClickBank instant notification.

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

Dim json As New Chilkat.JsonObject

json.Load("{  ...  }")

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

' See the parsing code below..

' Sample notification JSON: 

' {
'     "transactionTime": "2016-06-05T13:47:51-06:00",
'     "receipt": "CWOGBZLN",
'     "transactionType": "SALE",
'     "vendor": "testacct",
'     "affiliate": "affiliate1",
'     "role": "VENDOR",
'     "totalAccountAmount": 0.00,
'     "paymentMethod": "VISA",
'     "totalOrderAmount": 0.00,
'     "totalTaxAmount": 0.00,
'     "totalShippingAmount": 0.00,
'     "currency": "USD",
'     "orderLanguage": "EN",
'     "trackingCodes": [
'         "tracking_code"
'     ],
'     "lineItems": [
'         {
'             "itemNo": "1",
'             "productTitle": "Product Title",
'             "shippable": false,
'             "recurring": false,
'             "accountAmount": 5.00,
'             "quantity": 1,
'             "downloadUrl": "<download_url>"
'             "lineItemType": "CART"
'        }
'         {
'             "itemNo": "2",
'             "productTitle": "Second Product",
'             "shippable": false,
'             "recurring": true,
'             "accountAmount": 2.99,
'             "quantity": 1,
'             "downloadUrl": "<download_url>"
'             "lineItemType": "CART"
'        }
' 
'     ],
'      "customer": {
'         "shipping": {
'             "firstName": "TEST",
'             "lastName": "GUY",
'             "fullName": "Test Guy",
'             "phoneNumber": "",
'             "email": "test@example.net",
'             "address": {
'                 "address1": "12 Test Lane",
'                 "address2": "Suite 100",
'                 "city": "LAS VEGAS",
'                 "county": "LAS VEGAS",
'                 "state": "NV",
'                 "postalCode": "89101",
'                 "country": "US"
'             }
'         },
'         "billing": {
'             "firstName": "TEST",
'             "lastName": "GUY",
'             "fullName": "Test Guy",
'             "phoneNumber": "",
'             "email": "test@example.net",
'             "address": {
'                 "state": "NV",
'                 "postalCode": "89101",
'                 "country": "US"
'             }
'         }
'     },
'      "upsell": {
'         "upsellOriginalReceipt": "XXXXXXXX",
'         "upsellFlowId": 55,
'         "upsellSession": "VVVVVVVVVV",
'         "upsellPath": "upsell_path"
'     },
'      "hopfeed": {
'         "hopfeedClickId": "hopfeed_click",
'         "hopfeedApplicationId": 0000,
'         "hopfeedCreativeId": 0000,
'         "hopfeedApplicationPayout": 0.00,
'         "hopfeedVendorPayout": 0.00
'     },
'      "version": 6.0,
'     "attemptCount": 1,
'      "vendorVariables": {
'        "v1": "variable1", 
'        "v2": "variable2" 
'     }
'  }
' 
' 


Dim transactionTime As String
Dim receipt As String
Dim transactionType As String
Dim vendor As String
Dim affiliate As String
Dim role As String
Dim totalAccountAmount As String
Dim paymentMethod As String
Dim totalOrderAmount As String
Dim totalTaxAmount As String
Dim totalShippingAmount As String
Dim currency As String
Dim orderLanguage As String
Dim customerShippingFirstName As String
Dim customerShippingLastName As String
Dim customerShippingFullName As String
Dim customerShippingPhoneNumber As String
Dim customerShippingEmail As String
Dim customerShippingAddressAddress1 As String
Dim customerShippingAddressAddress2 As String
Dim customerShippingAddressCity As String
Dim customerShippingAddressCounty As String
Dim customerShippingAddressState As String
Dim customerShippingAddressPostalCode As String
Dim customerShippingAddressCountry As String
Dim customerBillingFirstName As String
Dim customerBillingLastName As String
Dim customerBillingFullName As String
Dim customerBillingPhoneNumber As String
Dim customerBillingEmail As String
Dim customerBillingAddressState As String
Dim customerBillingAddressPostalCode As String
Dim customerBillingAddressCountry As String
Dim upsellUpsellOriginalReceipt As String
Dim upsellUpsellFlowId As Integer
Dim upsellUpsellSession As String
Dim upsellUpsellPath As String
Dim hopfeedHopfeedClickId As String
Dim hopfeedHopfeedApplicationId As Integer
Dim hopfeedHopfeedCreativeId As Integer
Dim hopfeedHopfeedApplicationPayout As String
Dim hopfeedHopfeedVendorPayout As String
Dim version As String
Dim attemptCount As Integer
Dim vendorVariablesV1 As String
Dim vendorVariablesV2 As String
Dim i As Integer
Dim count_i As Integer
Dim strVal As String
Dim itemNo As String
Dim productTitle As String
Dim shippable As Boolean
Dim recurring As Boolean
Dim accountAmount As String
Dim quantity As Integer
Dim downloadUrl As String
Dim lineItemType As String

transactionTime = json.StringOf("transactionTime")
receipt = json.StringOf("receipt")
transactionType = json.StringOf("transactionType")
vendor = json.StringOf("vendor")
affiliate = json.StringOf("affiliate")
role = json.StringOf("role")
totalAccountAmount = json.StringOf("totalAccountAmount")
paymentMethod = json.StringOf("paymentMethod")
totalOrderAmount = json.StringOf("totalOrderAmount")
totalTaxAmount = json.StringOf("totalTaxAmount")
totalShippingAmount = json.StringOf("totalShippingAmount")
currency = json.StringOf("currency")
orderLanguage = json.StringOf("orderLanguage")
customerShippingFirstName = json.StringOf("customer.shipping.firstName")
customerShippingLastName = json.StringOf("customer.shipping.lastName")
customerShippingFullName = json.StringOf("customer.shipping.fullName")
customerShippingPhoneNumber = json.StringOf("customer.shipping.phoneNumber")
customerShippingEmail = json.StringOf("customer.shipping.email")
customerShippingAddressAddress1 = json.StringOf("customer.shipping.address.address1")
customerShippingAddressAddress2 = json.StringOf("customer.shipping.address.address2")
customerShippingAddressCity = json.StringOf("customer.shipping.address.city")
customerShippingAddressCounty = json.StringOf("customer.shipping.address.county")
customerShippingAddressState = json.StringOf("customer.shipping.address.state")
customerShippingAddressPostalCode = json.StringOf("customer.shipping.address.postalCode")
customerShippingAddressCountry = json.StringOf("customer.shipping.address.country")
customerBillingFirstName = json.StringOf("customer.billing.firstName")
customerBillingLastName = json.StringOf("customer.billing.lastName")
customerBillingFullName = json.StringOf("customer.billing.fullName")
customerBillingPhoneNumber = json.StringOf("customer.billing.phoneNumber")
customerBillingEmail = json.StringOf("customer.billing.email")
customerBillingAddressState = json.StringOf("customer.billing.address.state")
customerBillingAddressPostalCode = json.StringOf("customer.billing.address.postalCode")
customerBillingAddressCountry = json.StringOf("customer.billing.address.country")
upsellUpsellOriginalReceipt = json.StringOf("upsell.upsellOriginalReceipt")
upsellUpsellFlowId = json.IntOf("upsell.upsellFlowId")
upsellUpsellSession = json.StringOf("upsell.upsellSession")
upsellUpsellPath = json.StringOf("upsell.upsellPath")
hopfeedHopfeedClickId = json.StringOf("hopfeed.hopfeedClickId")
hopfeedHopfeedApplicationId = json.IntOf("hopfeed.hopfeedApplicationId")
hopfeedHopfeedCreativeId = json.IntOf("hopfeed.hopfeedCreativeId")
hopfeedHopfeedApplicationPayout = json.StringOf("hopfeed.hopfeedApplicationPayout")
hopfeedHopfeedVendorPayout = json.StringOf("hopfeed.hopfeedVendorPayout")
version = json.StringOf("version")
attemptCount = json.IntOf("attemptCount")
vendorVariablesV1 = json.StringOf("vendorVariables.v1")
vendorVariablesV2 = json.StringOf("vendorVariables.v2")
i = 0
count_i = json.SizeOfArray("trackingCodes")
While i < count_i
    json.I = i
    strVal = json.StringOf("trackingCodes[i]")
    i = i + 1
End While
i = 0
count_i = json.SizeOfArray("lineItems")
While i < count_i
    json.I = i
    itemNo = json.StringOf("lineItems[i].itemNo")
    productTitle = json.StringOf("lineItems[i].productTitle")
    shippable = json.BoolOf("lineItems[i].shippable")
    recurring = json.BoolOf("lineItems[i].recurring")
    accountAmount = json.StringOf("lineItems[i].accountAmount")
    quantity = json.IntOf("lineItems[i].quantity")
    downloadUrl = json.StringOf("lineItems[i].downloadUrl")
    lineItemType = json.StringOf("lineItems[i].lineItemType")
    i = i + 1
End While