Chilkat Online Tools

VB6 / Creatio API / Authentication

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

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

' The following JSON is sent in the request body.

' {
'   "UserName": "{{UserName}}",
'   "UserPassword": "{{UserPassword}}"
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("UserName","{{UserName}}")
success = json.UpdateString("UserPassword","{{UserPassword}}")

http.SetRequestHeader "Content-Type","application/json; charset=utf-8"
http.SetRequestHeader "ForceUseSession","true"
http.SetRequestHeader "Accept","application/json"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://myserver.com/ServiceModel/AuthService.svc/Login","application/json; charset=utf-8",json)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)

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 = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."

    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "Code": 0,
'   "Message": "",
'   "Exception": null,
'   "PasswordChangeUrl": null,
'   "RedirectUrl": null
' }

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

Dim Code As Long
Code = jResp.IntOf("Code")
Dim Message As String
Message = jResp.StringOf("Message")
Dim Exception As String
Exception = jResp.StringOf("Exception")
Dim PasswordChangeUrl As String
PasswordChangeUrl = jResp.StringOf("PasswordChangeUrl")
Dim RedirectUrl As String
RedirectUrl = jResp.StringOf("RedirectUrl")

Curl Command

curl -X POST
	-H "Accept: application/json"
	-H "Content-Type: application/json; charset=utf-8"
	-H "ForceUseSession: true"
	-d '{  
  "UserName":"{{UserName}}",
  "UserPassword":"{{UserPassword}}"
}'
https://myserver.com/ServiceModel/AuthService.svc/Login

Postman Collection Item JSON

{
  "name": "Authentication",
  "event": [
    {
      "listen": "test",
      "script": {
        "exec": [
          "pm.variables.set(\"BPMCSRF\", decodeURIComponent(postman.getResponseCookie(\"BPMCSRF\").value));"
        ],
        "type": "text/javascript"
      }
    }
  ],
  "request": {
    "auth": {
      "type": "noauth"
    },
    "method": "POST",
    "header": [
      {
        "key": "Accept",
        "type": "text",
        "value": "application/json"
      },
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "value": "application/json; charset=utf-8",
        "type": "text"
      },
      {
        "key": "ForceUseSession",
        "type": "text",
        "value": "true"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{  \r\n  \"UserName\":\"{{UserName}}\",\r\n  \"UserPassword\":\"{{UserPassword}}\"\r\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{BaseURI}}/ServiceModel/AuthService.svc/Login",
      "host": [
        "{{BaseURI}}"
      ],
      "path": [
        "ServiceModel",
        "AuthService.svc",
        "Login"
      ]
    },
    "description": "Request to the AuthService.svc authentication service."
  },
  "response": [
    {
      "name": "[200] Gets authentication cookies",
      "originalRequest": {
        "method": "POST",
        "header": [
          {
            "key": "Accept",
            "type": "text",
            "value": "application/json"
          },
          {
            "key": "Content-Type",
            "name": "Content-Type",
            "value": "application/json; charset=utf-8",
            "type": "text"
          },
          {
            "key": "ForceUseSession",
            "type": "text",
            "value": "true"
          }
        ],
        "body": {
          "mode": "raw",
          "raw": "{  \r\n  \"UserName\":\"User01\",\r\n  \"UserPassword\":\"User01\"\r\n}",
          "options": {
            "raw": {
              "language": "json"
            }
          }
        },
        "url": {
          "raw": "https://myserver.com/ServiceModel/AuthService.svc/Login",
          "protocol": "https",
          "host": [
            "myserver",
            "com"
          ],
          "path": [
            "ServiceModel",
            "AuthService.svc",
            "Login"
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Cache-Control",
          "value": "private"
        },
        {
          "key": "Content-Type",
          "value": "application/json; charset=utf-8"
        },
        {
          "key": "Location",
          "value": "/0"
        },
        {
          "key": "Server",
          "value": "Microsoft-IIS/10.0"
        },
        {
          "key": "X-Terrasoft-UserCulture",
          "value": "ru-RU"
        },
        {
          "key": "X-AspNet-Version",
          "value": "4.0.30319"
        },
        {
          "key": "Set-Cookie",
          "value": ".ASPXAUTH=D74B814D5E2C4C7B124C94B2AB1E1302F6D5956D6E6FBAE08BB46BCC8EE6A05CC67319EBDA3EFFE035624C7BE0329F584FFBAF9AF70B24BFFEED44115327DE39867DEC44A579BBAF514AF3F5484AAE6CF5753E541F28F5E08A8773A4D9B7DC3C9A805AD9EDCFFA4D9789D80CEA5726760019DF7C5C5929C653C4AD24E77C7945822B89B921A1F16ADF6E0EF65FEDA6CE0FBA6EC830779059575B725C554A44AC1AF966572B75D243722FEB22A497901E6B7717D1CCF192428E52D76B6508A489889C70A1E9F5FEC03011347BAB1CAD3BC3DFA0E36B7B050929176FD43487D189BFFA4034D6D239C3DDE00D81800EA4847CED2C30DDA34F098FBF1E945671863822C1118E63A8F68AB8487E8B3C75EBE5AF7BD41BF7FA8E6C3741CDE6775A135C30708ED6436183357F43DDC2826A54CCA15246B4CF3C0D7C2AE53723590BBAE43B8EA120B73C7700C2AED5589D70877647ADB27159081626D0111F9902ECE4E79B357D0E; path=/; HttpOnly"
        },
        {
          "key": "Set-Cookie",
          "value": "BPMCSRF=Y4s3IaCGUaEwFcgkGKCbH.; path=/"
        },
        {
          "key": "Set-Cookie",
          "value": "UserName=83|117|112|101|114|118|105|115|111|114; expires=Sat, 09-May-2020 11:14:30 GMT; path=/; HttpOnly"
        },
        {
          "key": "X-Powered-By",
          "value": "ASP.NET"
        },
        {
          "key": "X-Frame-Options",
          "value": "SAMEORIGIN"
        },
        {
          "key": "X-Content-Type-Options",
          "value": "nosniff"
        },
        {
          "key": "Date",
          "value": "Thu, 09 Apr 2020 11:14:30 GMT"
        },
        {
          "key": "Content-Length",
          "value": "84"
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"Code\": 0,\n    \"Message\": \"\",\n    \"Exception\": null,\n    \"PasswordChangeUrl\": null,\n    \"RedirectUrl\": null\n}"
    }
  ]
}