HTTP GET using Proxy Server

Simple HTTP GET request to download the HTML of a web page using a proxy server.

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
    MsgBox http.LastErrorText
    Exit Sub
End If

http.ProxyDomain = "localhost"
http.ProxyPort = 808

'  Send the HTTP GET and return the content in a string.
Dim html As String
html = http.QuickGetStr("http://www.google.com/")

'  Print the HTML source that was downloaded.
Text1.Text = Text1.Text & html & vbCrLf
Text1.Refresh