(AutoIt) Shippo Create a Refund

Demonstrates how to refund a shipping label.

For more information, see https://goshippo.com/docs/refunds/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl  https://api.goshippo.com/refunds/ \
;     -H "Authorization: ShippoToken <API_Token>" \
;     -d transaction="4503427478ea45a899e9b54abc4c5803"

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.HttpVerb = "POST"
$oReq.Path = "/refunds/"
$oReq.ContentType = "application/x-www-form-urlencoded"
$oReq.AddParam "transaction","4503427478ea45a899e9b54abc4c5803"

$oReq.AddHeader "Authorization","ShippoToken <API_Token>"

Local $oResp = $oHttp.PostUrlEncoded("https://api.goshippo.com/refunds/",$oReq)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; {
;   "object_created": "2014-04-21T07:12:41.044Z",
;   "object_id": "bd7b8379a2e847bcb0818125943dde5d",
;   "object_owner": "shippotle@goshippo.com",
;   "object_updated": "2014-04-21T07:12:41.045Z",
;   "status": "QUEUED",
;   "transaction": "35ed59f23a514ecfa2faeaed93a00086"
; }

; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON

Local $sObject_created = $oJResp.StringOf("object_created")
Local $sObject_id = $oJResp.StringOf("object_id")
Local $sObject_owner = $oJResp.StringOf("object_owner")
Local $sObject_updated = $oJResp.StringOf("object_updated")
Local $status = $oJResp.StringOf("status")
Local $sTransaction = $oJResp.StringOf("transaction")