VB6 / APPIA API / GET USER DASHBOARD DETAILS
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
' Adds the "Authorization: Bearer {{auth}}" header.
http.AuthToken = "{{auth}}"
http.SetRequestHeader "Content-Type","application/json"
Dim sbResponseBody As New ChilkatStringBuilder
success = http.QuickGetSb("https://domain.com/users/dashboard_details",sbResponseBody)
If (success = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
Debug.Print "Response Body:"
Debug.Print jResp.Emit()
Dim respStatusCode As Long
respStatusCode = http.LastStatus
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
Debug.Print "Response Header:"
Debug.Print http.LastHeader
Debug.Print "Failed."
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "success": true,
' "data": {
' "user_id": "RJ7qynWWe",
' "email": "tosinolugbenga@gmail.com",
' "names": "Tosin Olugbenga",
' "naira_wallet": "0.00",
' "providus_account": "4000040054",
' "referral_link": "https://Appia.com/register?ref=undefined"
' }
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim success As Long
success = jResp.BoolOf("success")
Dim User_id As String
User_id = jResp.StringOf("data.user_id")
Dim v_Email As String
v_Email = jResp.StringOf("data.email")
Dim Names As String
Names = jResp.StringOf("data.names")
Dim Naira_wallet As String
Naira_wallet = jResp.StringOf("data.naira_wallet")
Dim Providus_account As String
Providus_account = jResp.StringOf("data.providus_account")
Dim Referral_link As String
Referral_link = jResp.StringOf("data.referral_link")
Curl Command
curl -X GET
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json"
-H "Authorization: Bearer {{auth}}"
https://domain.com/users/dashboard_details
Postman Collection Item JSON
{
"name": "GET USER DASHBOARD DETAILS",
"request": {
"auth": {
"type": "bearer",
"bearer": [
{
"key": "token",
"value": "{{auth}}",
"type": "string"
}
]
},
"method": "GET",
"header": [
{
"key": "Content-Type",
"value": "application/json",
"disabled": true
},
{
"key": "Authorization",
"value": "Bearer {{auth}}",
"disabled": true
}
],
"url": {
"raw": "{{url}}/users/dashboard_details",
"host": [
"{{url}}"
],
"path": [
"users",
"dashboard_details"
]
},
"description": "User profile update"
},
"response": [
{
"name": "GET USER DASHBOARD DETAILS",
"originalRequest": {
"method": "GET",
"header": [
{
"key": "Content-Type",
"value": "application/json",
"disabled": true
},
{
"key": "Authorization",
"value": "Bearer {{auth}}",
"disabled": true
}
],
"url": {
"raw": "{{url}}/users/dashboard_details",
"host": [
"{{url}}"
],
"path": [
"users",
"dashboard_details"
]
}
},
"status": "Created",
"code": 201,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Server",
"value": "Cowboy"
},
{
"key": "Connection",
"value": "keep-alive"
},
{
"key": "X-Powered-By",
"value": "Express"
},
{
"key": "Access-Control-Allow-Origin",
"value": "*"
},
{
"key": "Content-Type",
"value": "application/json; charset=utf-8"
},
{
"key": "Content-Length",
"value": "221"
},
{
"key": "Etag",
"value": "W/\"dd-/TJsOdEDY8RgDebDUsbizdQV45I\""
},
{
"key": "Date",
"value": "Tue, 08 Dec 2020 20:16:58 GMT"
},
{
"key": "Via",
"value": "1.1 vegur"
}
],
"cookie": [
],
"body": "{\n \"success\": true,\n \"data\": {\n \"user_id\": \"RJ7qynWWe\",\n \"email\": \"tosinolugbenga@gmail.com\",\n \"names\": \"Tosin Olugbenga\",\n \"naira_wallet\": \"0.00\",\n \"providus_account\": \"4000040054\",\n \"referral_link\": \"https://Appia.com/register?ref=undefined\"\n }\n}"
}
]
}