B4X

SMSAPI - Add Subuser Account

See more SMSAPI Examples

Adds a new sub-user account. 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 https://api.smsapi.com/subusers -i -H "Authorization: Bearer token_api_oauth" \ 
'  -H  "Content-Type: application/json" -X POST \
'  -d '{"credentials": { "username": "User_name","password" :"Smsapi_panel_password","api_password":"api_password"},
'  "active":"1","description":"description","points":{"from_account":"2","per_month":"2"}}'

'  Use the following online tool to generate HTTP code from a CURL command
'  Convert a cURL Command to HTTP Source Code

'  Use this online tool to generate code from sample JSON:
'  Generate Code to Create JSON

'  The following JSON is sent in the request body.

'  {
'    "credentials": {
'      "username": "User_name",
'      "password": "Smsapi_panel_password",
'      "api_password": "api_password"
'    },
'    "active": "1",
'    "description": "description",
'    "points": {
'      "from_account": "2",
'      "per_month": "2"
'    }
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("credentials.username", "User_name")
json.UpdateString("credentials.password", "Smsapi_panel_password123")
json.UpdateString("credentials.api_password", "api_Password123")
json.UpdateString("active", "1")
json.UpdateString("description", "description")
json.UpdateString("points.from_account", "2")
json.UpdateString("points.per_month", "2")

'  Adds the "Authorization: Bearer token_api_oauth" header.
http.AuthToken = "token_api_oauth"

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://api.smsapi.com/subusers", 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:
'  (Sample code for parsing the JSON response is shown below)

'  {
'    "username": "subuser",
'    "limit": 0,
'    "month_limit": 0,
'    "senders": 0,
'    "phonebook": 0,
'    "active": false,
'    "info": "unknown"
'  }

'  Sample code for parsing the JSON response...
'  Use the following online tool to generate parsing code from sample JSON:
'  Generate Parsing Code from JSON



Dim username As String = jResp.StringOf("username")
Dim limit As Int = jResp.IntOf("limit")
Dim month_limit As Int = jResp.IntOf("month_limit")
Dim senders As Int = jResp.IntOf("senders")
Dim phonebook As Int = jResp.IntOf("phonebook")
Dim active As Boolean = jResp.BoolOf("active")
Dim info As String = jResp.StringOf("info")