Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

VBScript Web API Examples

Primary Categories

CardConnect
Facebook
GeoOp
Jira
PayPal
Peoplevox
QuickBooks

Shopify
Stripe
SugarCRM
Twitter
VoiceBase
Walmart
Xero
eBay
effectconnect

 

 

 

(VBScript) eBay -- Create or Replace Inventory Item

This example shows how to create a new inventory item record or update an existing inventory item record.

See Create or Replace Inventory Item for more REST API details.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

' This example sends the following sample PUT request to create (or replace) a new inventory item.

' PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
' { 
' "availability":
'     { 
'     "shipToLocationAvailability":
'         { 
'         "quantity": 50
'         }
'     },
' "condition": "NEW",
' "product":
'     { 
'     "title": "GoPro Hero4 Helmet Cam",
'     "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
'     "aspects": {
'         "Brand" :["GoPro"],
'         "Type" : ["Helmet/Action"],
'         "Storage Type" : ["Removable"],
'         "Recording Definition" : ["High Definition"],
'         "Media Format" : ["Flash Drive (SSD)"],
'         "Optical Zoom" : ["10x"]
'       },
'     "imageUrls": [
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
'       ]
'     }
' }

' First, generate the JSON using this code:
set json = CreateObject("Chilkat_9_5_0.JsonObject")
json.EmitCompact = 0

success = json.UpdateNumber("availability.shipToLocationAvailability.quantity","50")
success = json.UpdateString("condition","NEW")
success = json.UpdateString("product.title","GoPro Hero4 Helmet Cam")
success = json.UpdateString("product.description","New GoPro Hero4 Helmet Cam. Unopened box.")
success = json.UpdateString("product.aspects.Brand[0]","GoPro")
success = json.UpdateString("product.aspects.Type[0]","Helmet/Action")
success = json.UpdateString("product.aspects.""Storage Type""[0]","Removable")
success = json.UpdateString("product.aspects.""Recording Definition""[0]","High Definition")
success = json.UpdateString("product.aspects.""Media Format""[0]","Flash Drive (SSD)")
success = json.UpdateString("product.aspects.""Optical Zoom""[0]","10x")
success = json.UpdateString("product.imageUrls[0]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg")
success = json.UpdateString("product.imageUrls[1]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg")
success = json.UpdateString("product.imageUrls[2]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg")

' Show the JSON to be sent:
outFile.WriteLine(json.Emit())

' Use a previously obtained user token.  The token should look something like this:
' "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
accessToken = "EBAY_ACCESS_TOKEN"

set http = CreateObject("Chilkat_9_5_0.Http")

' This example uses the sandbox.  
' Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
' Note: The last part of the url is the SKU.  In this URL, the SKU is "GP-Cam-01".
url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01"
json.EmitCompact = 1

' Set your Content-Language to whatever is desired.
http.SetRequestHeader "Content-Language","en-US"

' Add our access token to the request, which is a header
' having the following format:
' Authorization: Bearer <userAccessToken>
set sbAuth = CreateObject("Chilkat_9_5_0.StringBuilder")
success = sbAuth.Append("Bearer ")
success = sbAuth.Append(accessToken)
http.SetRequestHeader "Authorization",sbAuth.GetAsString()

http.Accept = "application/json"
http.AllowGzip = 0

strResponse = http.PutText(url,json.Emit(),"utf-8","application/json",0,0)
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

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

If (http.LastStatus <> 204) Then
    outFile.WriteLine(strResponse)
    outFile.WriteLine("Failed")
    WScript.Quit
End If

' On success (status code = 204), there is no output payload (strResponse will be empty).
outFile.WriteLine("Inventory item successfully created.")

outFile.Close

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.