Visual Basic 6.0 Fatturazione Elettronica Aruba IT: Refresh Access Token

Back to Index

Il token può essere rinnovato attraverso una richiesta di refresh che richiede i seguenti parametri in formato application/x-www-form-urlencoded con encoding UTF-8.

Documentation: https://fatturazioneelettronica.aruba.it/apidoc/docs.html#_refresh

CURL Command

curl -X POST  https://auth.fatturazioneelettronica.aruba.it/auth/signin \
-H 'Content-Type: application/x-www-form-urlencoded;charset=UTF-8' \
-d 'grant_type=refresh_token' \
-d 'refresh_token=262ac1f88ad1e9e5'

Visual Basic 6.0 Example

Dim rest As New ChilkatRest
Dim success As Long

'  URL: https://auth.fatturazioneelettronica.aruba.it/auth/signin
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("auth.fatturazioneelettronica.aruba.it",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.AddQueryParam("grant_type","refresh_token")
success = rest.AddQueryParam("refresh_token","262ac1f88ad1e9e5")

Dim strResponseBody As String
strResponseBody = rest.FullRequestFormUrlEncoded("POST","/auth/signin")
If (rest.LastMethodSuccess <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim respStatusCode As Long
respStatusCode = rest.ResponseStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Status Code = " & respStatusCode
    Debug.Print "Response Header:"
    Debug.Print rest.ResponseHeader
    Debug.Print "Response Body:"
    Debug.Print strResponseBody
    Exit Sub
End If

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.Load(strResponseBody)

'  See the Online Tool for Generating JSON Parse Code
Dim access_token As String
Dim token_type As String
Dim expires_in As Long
Dim refresh_token As String
Dim client_id As String
Dim userName As String
Dim Issued As String
Dim Expires As String

access_token = jsonResponse.StringOf("access_token")
token_type = jsonResponse.StringOf("token_type")
expires_in = jsonResponse.IntOf("expires_in")
refresh_token = jsonResponse.StringOf("refresh_token")
client_id = jsonResponse.StringOf("client_id")
userName = jsonResponse.StringOf("userName")
Issued = jsonResponse.StringOf(""".issued""")
Expires = jsonResponse.StringOf(""".expires""")

Sample JSON Response Body

{
  "access_token": "571a08cd6275e81e",
  "token_type": "bearer",
  "expires_in": 1800,
  "refresh_token": "111ac1f88ad1efff",
  "client_id": "123456",
  "userName": "Utente",
  ".issued": "Mon, 21 Jan 2019 16:36:17 GMT",
  ".expires": "Mon, 21 Jan 2019 17:06:17 GMT"
}