AutoIt
MercadoLibre - Consultar mis datos personales

Consultar mis datos personales
Chilkat AutoIt Downloads

AutoIt
Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

; First get our previously obtained OAuth2 access token.
$oJsonToken = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJsonToken.LoadFile("qa_data/tokens/mercadolibre.json")

; Implements the following CURL command:

; curl - X GET https://api.mercadolibre.com/users/me?access_token=$ACCESS_TOKEN

; Use the following online tool to generate HTTP code from a CURL command
; Convert a cURL Command to HTTP Source Code

$oHttp.SetUrlVar("access_token",$oJsonToken.StringOf("access_token"))

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oHttp.QuickGetSb("https://api.mercadolibre.com/users/me?access_token={$access_token}",$oSbResponseBody)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

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

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

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

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

; {
;   "id": 202593498,
;   "nickname": "TETE2870021",
;   "registration_date": "2016-01-06T11: 31: 42.000-04: 00",
;   "country_id": "AR",
;   "address": {
;     "state": "AR-C",
;     "city": "Palermo"
;   },
;   "user_type": "normal",
;   "tags": [
;     "normal",
;     "test_user",
;     "user_info_verified"
;   ],
;   "logo": null,
;   "points": 100,
;   "site_id": "MLA",
;   "permalink": "http://perfil.mercadolibre.com.ar/TETE2870021",
;   "seller_reputation": {
;     "level_id": null,
;     "power_seller_status": null,
;     "transactions": {
;       "period": "historic",
;       "total": 0,
;       "completed": 0,
;       "canceled": 0,
;       "ratings": {
;         "positive": 0,
;         "negative": 0,
;         "neutral": 0
;       }
;     }
;   },
;   "buyer_reputation": {
;     "tags": [
;     ]
;   },
;   "status": {
;     "site_status": "active"
;   }
; }

; 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 $strVal

Local $id = $oJResp.IntOf("id")
Local $sNickname = $oJResp.StringOf("nickname")
Local $sRegistration_date = $oJResp.StringOf("registration_date")
Local $sCountry_id = $oJResp.StringOf("country_id")
Local $sAddressState = $oJResp.StringOf("address.state")
Local $sAddressCity = $oJResp.StringOf("address.city")
Local $sUser_type = $oJResp.StringOf("user_type")
Local $sLogo = $oJResp.StringOf("logo")
Local $iPoints = $oJResp.IntOf("points")
Local $site_id = $oJResp.StringOf("site_id")
Local $sPermalink = $oJResp.StringOf("permalink")
Local $seller_reputationLevel_id = $oJResp.StringOf("seller_reputation.level_id")
Local $seller_reputationPower_seller_status = $oJResp.StringOf("seller_reputation.power_seller_status")
Local $seller_reputationTransactionsPeriod = $oJResp.StringOf("seller_reputation.transactions.period")
Local $iSeller_reputationTransactionsTotal = $oJResp.IntOf("seller_reputation.transactions.total")
Local $iSeller_reputationTransactionsCompleted = $oJResp.IntOf("seller_reputation.transactions.completed")
Local $iSeller_reputationTransactionsCanceled = $oJResp.IntOf("seller_reputation.transactions.canceled")
Local $iSeller_reputationTransactionsRatingsPositive = $oJResp.IntOf("seller_reputation.transactions.ratings.positive")
Local $iSeller_reputationTransactionsRatingsNegative = $oJResp.IntOf("seller_reputation.transactions.ratings.negative")
Local $iSeller_reputationTransactionsRatingsNeutral = $oJResp.IntOf("seller_reputation.transactions.ratings.neutral")
Local $statusSite_status = $oJResp.StringOf("status.site_status")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("tags")
While $i < $iCount_i
    $oJResp.I = $i
    $strVal = $oJResp.StringOf("tags[i]")
    $i = $i + 1
Wend
$i = 0
$iCount_i = $oJResp.SizeOfArray("buyer_reputation.tags")
While $i < $iCount_i
    $oJResp.I = $i
    $i = $i + 1
Wend