(Visual Basic 6.0) HTTP Basic Authentication
Demonstrates how to use HTTP Basic authentication.
' This example assumes 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"
' }
|