Amazon AIMS HTTPS POST

Download Chilkat HTTP ActiveX

Demonstrates a simple post to the Amazon Inventory Management System (AIMS) API using Chilkat HTTP.

Dim req As New ChilkatHttpRequest
Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

'  Before doing the POST, do a simple GET for the purpose of obtaining a Cookie.
'  The Cookie contains a session-id and a session-id-time, and these values must
'  be current.

'  The CookieDir may be set to "memory" to keep an in-memory cache of cookies.
'  Alternatively, you may set it to a directory, such as "c:/temp/cookies".  If you do that,
'  you can visually browse the cookies which will appear as XML files in the CookieDir.
http.CookieDir = "memory"

'  Tell the HTTP component to save any cookies received.  Also tell the component to
'  re-send cookies with subsequent GETs and POSTs.
http.SendCookies = 1
http.SaveCookies = 1

'  Do a GET to retrieve our Cookie...
Dim html As String
html = http.QuickGetStr("https://secure.amazon.com/exec/panama/seller-admin/manual-reports/get-report-status")

'  Build an HTTP POST Request:
req.UsePost 
req.Path = "/exec/panama/seller-admin/manual-reports/get-report-status"

'  Setting your login/password causes Chilkat to automatically add the Authorization header:
http.Login = "YourLoginEmailAddress"
http.Password = "YourPassword"

'  NOTE: Do not explicitly add the Cookie header.  It is added automatically by Chilkat HTTP.
req.AddHeader "Content-Type","text/xml"

req.AddHeader "NumberofReports","2"
req.AddHeader "ReportName","OpenListingsLite"

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.
Dim domain As String
Dim port As Long
Dim ssl As Long
domain = "secure.amazon.com"
port = 443
ssl = 1

Dim resp As ChilkatHttpResponse
Set resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Text1.Refresh
Else
    '  Display the XML returned.
    Text1.Text = Text1.Text & resp.BodyStr & vbCrLf
    Text1.Refresh
End If