Xojo Plugin

WaTrend Create Instance

See more WaTrend Examples

Create a new WaTrend Instance ID. Xojo Plugin

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

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

Dim sbResponseBody As New Chilkat.StringBuilder
success = resp.GetBodySb(sbResponseBody)

Dim respStatusCode As Int32
respStatusCode = resp.StatusCode
System.DebugLog("Response Status Code = " + Str(respStatusCode))
If (respStatusCode >= 400) Then
    System.DebugLog("Response Header:")
    System.DebugLog(resp.Header)
    System.DebugLog("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"}

System.DebugLog(resp.BodyStr)

Dim jResp As New Chilkat.JsonObject
success = jResp.LoadSb(sbResponseBody)

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

System.DebugLog("status: " + status)
System.DebugLog("instance_id: " + instanceId)