VB6 / New FreshBooks / Revoke Refresh Token
Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Use this online tool to generate code from sample JSON: Generate Code to Create JSON
' The following JSON is sent in the request body.
' {
' "client_id": "{{clientid}}",
' "client_secret": "{{client secret}}",
' "token": "{{refresh token}}"
' }
Dim json As New ChilkatJsonObject
success = json.UpdateString("client_id","{{clientid}}")
success = json.UpdateString("client_secret","{{client secret}}")
success = json.UpdateString("token","{{refresh token}}")
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","application/json"
Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://api.freshbooks.com/auth/oauth/revoke","application/json",json)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json"
-d '{
"client_id": "{{clientid}}",
"client_secret": "{{client secret}}",
"token": "{{refresh token}}"
}'
https://api.freshbooks.com/auth/oauth/revoke
Postman Collection Item JSON
{
"name": "Revoke Refresh Token",
"request": {
"method": "POST",
"header": [
{
"key": "Content-Type",
"name": "Content-Type",
"value": "application/json",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "{\n \"client_id\": \"{{clientid}}\",\n \"client_secret\": \"{{client secret}}\",\n \"token\": \"{{refresh token}}\"\n}"
},
"url": {
"raw": "https://api.freshbooks.com/auth/oauth/revoke",
"protocol": "https",
"host": [
"api",
"freshbooks",
"com"
],
"path": [
"auth",
"oauth",
"revoke"
]
}
},
"response": [
]
}