HTTPS GET with Client Certificate

Simple HTTPS GET request to download the HTML of a web page. Uses a client digital certificate for the SSL connection.

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If

Dim cert As New ChilkatCert
success = cert.LoadPfxFile("myCert.pfx","secret")
If (success <> 1) Then
    Text1.Text = Text1.Text & cert.LastErrorText & vbCrLf
    Exit Sub
End If

http.SetSslClientCert cert

'  Send the HTTP GET and return the content in a string.
Dim html As String
html = http.QuickGetStr("https://www.paypal.com/")
If (html = vbNullString ) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else
    Text1.Text = Text1.Text & html & vbCrLf
End If