Visual Basic 6.0

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. Visual Basic 6.0

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

Dim http As New ChilkatHttp

' To use HTTP Basic authentication:
http.Login = "myLogin"
http.Password = "myPassword"
http.BasicAuth = 1

' Run the test using this URL with the credentials above.  
' (Works while httpbin.org keeps the test endpoint available.)
Dim jsonResponse As String
jsonResponse = http.QuickGetStr("https://httpbin.org/basic-auth/myLogin/myPassword")
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response status code: " & http.LastStatus

Debug.Print jsonResponse

' Output:

' Response status code: 200
' {
'   "authenticated": true, 
'   "user": "myLogin"
' }