(VB.NET) SugarCRM Logout

Demonstrates how to logout of a session.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim rest As New Chilkat.Rest
Dim success As Boolean

success = rest.Connect("your.site.domain",443,True,True)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


rest.AddHeader("Cache-Control","no-cache")
rest.AddHeader("OAuth-Token","<access_token>")


Dim sbReq As New Chilkat.StringBuilder

Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/rest/v10/oauth2/logout",sbReq,sbJson)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


If (rest.ResponseStatusCode <> 200) Then
    Debug.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    Debug.WriteLine("Response body:")
    Debug.WriteLine(sbJson.GetAsString())
    Exit Sub
End If


Dim json As New Chilkat.JsonObject
json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
Dim success As Boolean

success = json.BoolOf("success")

' A sample JSON response body that is parsed by the above code:

' {
'   "success": true
' }

Debug.WriteLine("Example Completed.")