(AutoIt) Dropbox Refresh OAuth2 Access Token

See more Dropbox Examples

Demonstrates how to mint a new access token using the refresh token obtained when originally getting the OAuth2 access token.

For more information, see https://www.dropbox.com/developers/documentation/http/documentation

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 -X GET https://api.dropbox.com/oauth2/token \
;     -d grant_type=refresh_token \
;     -d refresh_token=<YOUR_REFRESH_TOKEN> \
;     -u <YOUR_APP_KEY>:<YOUR_APP_SECRET>

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

$oHttp.Login = "DROPBOX_APP_KEY"
$oHttp.Password = "DROPBOX_APP_SECRET"

; Get the refresh token from the JSON we saved when originally getting the access token.
; (See Get Dropbox OAuth2 Access Token w/ Refresh Token
$oJson = ObjCreate("Chilkat.JsonObject")
$bSuccess = $oJson.LoadFile("qa_data/tokens/dropbox.json")
If ($bSuccess = False) Then
    ConsoleWrite($oJson.LastErrorText & @CRLF)
    Exit
EndIf

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.AddParam "grant_type","refresh_token"
$oReq.AddParam "refresh_token",$oJson.StringOf("refresh_token")

Local $oResp = $oHttp.PostUrlEncoded("https://api.dropbox.com/oauth2/token",$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)

; {
;   "access_token": "sl.AC75WPYRqOi0mxcRqlimbV9FKHu04biz5qHwatG3MTgzFK7kLrGVlM9EgP4603tE7bWw0s1rMbTKiHsf37TUshPYvq-3r0qeBr_PrZIAibN8XOQicvboiOnqx6JrDekq-w8D-tE",
;   "token_type": "bearer",
;   "expires_in": 14400
; }

Local $sAccess_token = $oJResp.StringOf("access_token")
ConsoleWrite("New Access Token: " & $sAccess_token & @CRLF)

; Perhaps update our Dropbox JSON file with the new access token.
; (The existing refresh token does not change, and can be used over and over to mint new access tokens.)
$oJson.UpdateString("access_token",$sAccess_token)

$oJson.WriteFile("qa_data/tokens/dropbox.json")