(VB.NET) Amazon SP-API Get Feeds

See more Amazon SP-API Examples

Returns feed details for the feeds that match the filters that you specify.

For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2021-06-30-reference#get-feeds2021-06-30feeds

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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


Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "execute-api"
' Use the region that is correct for your needs.
authAws.Region = "eu-west-1"

Dim rest As New Chilkat.Rest
Dim success As Boolean = rest.Connect("sandbox.sellingpartnerapi-eu.amazon.com",443,True,True)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


success = rest.SetAuthAws(authAws)

' Load the previously obtained LWA access token.
' See Fetch SP-API LWA Access Token
Dim jsonToken As New Chilkat.JsonObject
success = jsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
If (success = False) Then
    Debug.WriteLine("Failed to load LWA access token.")
    Exit Sub
End If



' Add the x-amz-access-token request header.
Dim lwa_token As String = jsonToken.StringOf("access_token")

rest.ClearAllHeaders()
rest.AddHeader("x-amz-access-token",lwa_token)

rest.ClearAllQueryParams()
rest.AddQueryParam("feedTypes","POST_PRODUCT_DATA")
rest.AddQueryParam("pageSize","10")
rest.AddQueryParam("processingStatuses","CANCELLED,DONE")

Dim sbResponse As New Chilkat.StringBuilder
Dim path As String = "/feeds/2021-06-30/feeds"
success = rest.FullRequestNoBodySb("GET",path,sbResponse)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


' Examine the response status.
Dim statusCode As Integer = rest.ResponseStatusCode
If (statusCode <> 200) Then
    Debug.WriteLine("Response status text: " & rest.ResponseStatusText)
    Debug.WriteLine("Response body: ")
    Debug.WriteLine(sbResponse.GetAsString())
    Debug.WriteLine("Failed.")
    Exit Sub
End If


Debug.WriteLine(sbResponse.GetAsString())

' If successful, gets a JSON response such as the following:

' {
'   "feeds": [
'     {
'       "feedId": "FeedId1",
'       "feedType": "POST_PRODUCT_DATA",
'       "createdTime": "2019-12-11T13:16:24.630Z",
'       "processingStatus": "CANCELLED",
'       "processingStartTime": "2019-12-11T13:16:24.630Z",
'       "processingEndTime": "2019-12-11T13:16:24.630Z"
'     }
'   ],
'   "nextToken": "VGhpcyB0b2tlbiBpcyBvcGFxdWUgYW5kIGludGVudGlvbmFsbHkgb2JmdXNjYXRlZA=="
' }


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

Dim json As New Chilkat.JsonObject

json.LoadSb(sbResponse)

Dim feedId As String
Dim feedType As String
Dim createdTime As String
Dim processingStatus As String
Dim processingStartTime As String
Dim processingEndTime As String

Dim nextToken As String = json.StringOf("nextToken")
Dim i As Integer = 0
Dim count_i As Integer = json.SizeOfArray("feeds")
While i < count_i
    json.I = i
    feedId = json.StringOf("feeds[i].feedId")
    feedType = json.StringOf("feeds[i].feedType")
    createdTime = json.StringOf("feeds[i].createdTime")
    processingStatus = json.StringOf("feeds[i].processingStatus")
    processingStartTime = json.StringOf("feeds[i].processingStartTime")
    processingEndTime = json.StringOf("feeds[i].processingEndTime")
    i = i + 1
End While


Debug.WriteLine("Success!")