Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Update an Inventory Listing using OAuth1 AuthenticationSee more Etsy ExamplesUpdates an inventory listing. This example uses OAuth1 authentication instead of providing an api_key=MY_ETSY_KEYSTRING query parameter.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set rest = CreateObject("Chilkat_9_5_0.Rest") ' See this example for getting an OAuth1 token for Etsy set json = CreateObject("Chilkat_9_5_0.JsonObject") success = json.LoadFile("qa_data/tokens/etsy.json") If (success = 0) Then outFile.WriteLine("Failed to load previously fetched Etsy OAuth1 access token.") WScript.Quit End If set oauth1 = CreateObject("Chilkat_9_5_0.OAuth1") oauth1.ConsumerKey = "app_keystring" oauth1.ConsumerSecret = "app_shared_secret" oauth1.Token = json.StringOf("oauth_token") oauth1.TokenSecret = json.StringOf("oauth_token_secret") oauth1.SignatureMethod = "HMAC-SHA1" success = oauth1.GenNonce(16) autoReconnect = 1 tls = 1 success = rest.Connect("openapi.etsy.com",443,tls,autoReconnect) If (success = 0) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If ' Tell the REST object to use the OAuth1 object. success = rest.SetAuthOAuth1(oauth1,1) jsonText = "[{""product_id"":1999949999,""property_values"":[],""offerings"":[{""offering_id"":9999905883,""price"":""36.23"",""quantity"":1}]}]" success = rest.AddQueryParam("products",jsonText) success = rest.AddHeader("Content-Type","application/x-www-form-urlencoded") jsonResponseText = rest.FullRequestFormUrlEncoded("PUT","/v2/listings/228827035/inventory") If (rest.LastMethodSuccess = 0) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If set jsonResponse = CreateObject("Chilkat_9_5_0.JsonObject") success = jsonResponse.Load(jsonResponseText) jsonResponse.EmitCompact = 0 outFile.WriteLine(jsonResponse.Emit()) outFile.WriteLine("Response status code: " & rest.ResponseStatusCode) outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.