VB.NET Requires Chilkat v11.5.0+

Box: Refresh and Save Rotated OAuth Tokens

See more Box Examples

Refresh the user token saved by the authorization example. Box refresh tokens are single-use and expire after 60 days. Serialize refreshes for a token pair and save the replacement immediately; do not run concurrent refresh jobs.

See the Box API guide for setup and the complete workflow.

VB.NET

Dim success As Boolean = False

'  Requires Chilkat 11.5.0 or later and a previously unlocked Chilkat bundle.
'  See Global Unlock Sample.
'  Guide: Box API Guide.

success = False

Dim tokens As New Chilkat.JsonObject
success = tokens.LoadFile("qa_data/tokens/box_oauth.json")
If (success <> True) Then
    Debug.WriteLine(tokens.LastErrorText)
    Exit Sub
End If

Dim oauth2 As New Chilkat.OAuth2
oauth2.TokenEndpoint = "https://api.box.com/oauth2/token"
oauth2.ClientId = "BOX_CLIENT_ID"
oauth2.ClientSecret = "BOX_CLIENT_SECRET"
oauth2.RefreshToken = tokens.StringOf("refresh_token")
success = oauth2.RefreshAccessToken()
If (success <> True) Then
    Debug.WriteLine(oauth2.LastErrorText)
    Exit Sub
End If

success = tokens.Load(oauth2.AccessTokenResponse)
If (success <> True) Then
    Debug.WriteLine(tokens.LastErrorText)
    Exit Sub
End If

'  The previous refresh token is now invalid. Preserve this response even if
'  your normal token-store write fails. Do not retry with the old refresh token.
success = tokens.WriteFile("qa_data/tokens/box_oauth.json")
If (success <> True) Then
    Debug.WriteLine(tokens.LastErrorText)
    Exit Sub
End If

Debug.WriteLine("New access and refresh tokens saved. Do not log their values.")