B4X

Refresh WiX Access Token

See more WiX Examples

Request a new access token each time you call a WiX API. Use the refresh token together with your secret key, to request refresh tokens B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  Implements the following CURL command:

'  curl -X POST \
'    https://www.wix.com/oauth/access \
'    -H 'Content-Type: application/json' \
'    -d '{
'      "grant_type": "refresh_token",
'      "client_id": <CLIENT_ID>,
'      "client_secret": <CLIENT_SECRET>,
'      "refresh_token": <REFRESH_TOKEN>
'  }'

'  It is assumed we previously obtained an OAuth2 access token.
'  This example loads the JSON access token file 
'  saved by this example: Get WiX OAuth2 Access Token

Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/wix.json")
If success <> True Then
    Log("Failed to load square.json")
    Return
End If


'  Get the "refresh_token"
Dim refreshToken As String = jsonToken.StringOf("refresh_token")

'  The following JSON is sent in the request body.

'  {
'    "grant_type": "refresh_token",
'    "client_id": <APP_ID>,
'    "client_secret": <APP_SECRET>,
'    "refresh_token": <REFRESH_TOKEN>
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("grant_type", "refresh_token")
json.UpdateString("client_id", "CLIENT_ID")
json.UpdateString("client_secret", "CLIENT_SECRET")
json.UpdateString("refresh_token", refreshToken)

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://www.wix.com/oauth/access", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)
Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

Dim respStatusCode As Int = resp.StatusCode
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
    Return
End If


'  Sample JSON response:

'  {
'    "refresh_token": "OAUTH2.eyJraWQ ... vnB4cQ",
'    "access_token": "OAUTH2.eyJra ... la18lrw"
'  }

Dim refresh_token As String = jResp.StringOf("refresh_token")
Dim access_token As String = jResp.StringOf("access_token")

'  Save the new JSON access token response to a file.
sbResponseBody.WriteFile("qa_data/tokens/wix.json", "utf-8", False)