Preisabfrage über Amazon Product Advertising API

  • VB.NET

    Preisabfrage über Amazon Product Advertising API

    Hallo, ich möchte gerne anhand einer EAN oder Produktnummer (Herstellernummer) den günstigsten Preis bei Amazon abfragen.

    Habe mich an die Anleitung hier gehalten:
    https://blog.srife.net/2015/05/13/getting-connected-to-amazon-advertising-api-with-vb-net/

    VB.NET-Quellcode

    1. ​
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim AWSAccessKey As String = "XXX"
    4. Dim AWSSecretKey As String = "XXX"
    5. Dim AWSAssociateTag As String = "Xxx"
    7. Dim binding As New BasicHttpBinding(BasicHttpSecurityMode.Transport)
    8. binding.MaxReceivedMessageSize = Integer.MaxValue
    9. Dim client As New AWSECommerceServicePortTypeClient(binding, New EndpointAddress("https://webservices.amazon.com/onca/soap?Service=AWSECommerceService"))
    11. ' add authentication to the ECS client
    12. client.ChannelFactory.Endpoint.Behaviors.Add(New AmazonSigningEndpointBehavior(AWSAccessKey, AWSSecretKey))
    14. Dim ilks(0) As ItemLookupRequest
    16. ilks(0) = New ItemLookupRequest
    17. ilks(0).Condition = Condition.All
    18. ilks(0).IdType = ItemLookupRequestIdType.ASIN
    19. ilks(0).IdTypeSpecified = True
    20. ilks(0).SearchIndex = "All"
    21. ilks(0).ItemId = New String() {"B000Q5NG78"}
    23. ilks(0).ResponseGroup = New String() {"ItemAttributes"}
    25. Dim itemlookup As New ItemLookup
    26. itemlookup.Request = ilks
    27. itemlookup.AWSAccessKeyId = AWSAccessKey
    28. itemlookup.AssociateTag = AWSAssociateTag
    30. Dim response As ItemLookupResponse = client.ItemLookup(itemlookup)
    31. If Not response.Items Is Nothing Then
    32. For i = 0 To response.Items.Count - 1
    33. If Not response.Items(i).Item Is Nothing Then
    34. For j = 0 To response.Items(i).Item.Count - 1
    35. Dim item As Amazon.ECS.Item = response.Items(i).Item(j)
    37. MsgBox(item.ASIN)
    39. Next
    40. End If
    41. Next
    42. End If
    44. End Sub


    Bekomme folgende Fehlermeldung "Der Remoteserver hat eine unerwartete Antwort zurückgegeben: (400) Bad Request." bei der Zeile "Dim response As ItemLookupResponse = client.ItemLookup(itemlookup)" angezeigt.

    Hat hier zufällig jemand Erfahrung damit und könnte mir weiterhelfen?

    MfG

Facebook
Telefonspende