B4X

WaTrend Create Instance

See more WaTrend Examples

Create a new WaTrend Instance ID. 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")

'  Use your actual access token instead of 555555555555555555555555555555
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpNoBody("GET", "https://app.watrend.com/api/createinstance.php?access_token=555555555555555555555555555555", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)

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


'  Both success and failed responses use 200 status code.

'  A success response contains this JSON in the response body:
'  {"status":"success","message":"Instance ID generated successfully","instance_id":"638EE5A76D3AA"}

'  A failed response will contain something like this:
'  {"status":"error","message":"Access token does not exist"}

Log(resp.BodyStr)

Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)

Dim status As String = jResp.StringOf("status")
Dim instanceId As String = ""
If jResp.HasMember("instance_id") = True Then
    instanceId = jResp.StringOf("instance_id")
End If


Log("status: " & status)
Log("instance_id: " & instanceId)