VBScript

HTTP/HTTPS using SOCKS5 Proxy

See more HTTP Examples

Demonstrates how to use HTTP/HTTPS with a SOCKS5 proxy. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

set http = CreateObject("Chilkat.Http")

' Using a SOCKS5 proxy is just a matter of setting a few properties.
' Once these properties are set, all other coding is the same as when
' the connection is direct to the HTTP server.

' Set the SocksVersion property = 5 for SOCKS5
http.SocksVersion = 5

' Set the SocksHostname to the SOCKS proxy domain name or IP address, 
' which may be IPv4 (dotted notation) or IPv6.
http.SocksHostname = "192.168.1.100"

' The port where the SOCKS5 proxy is listening.
http.SocksPort = 1080

' If the SOCKS5 proxy itself requires authentication, set the username/password 
' like this.  (otherwise leave the username/password empty)
http.SocksUsername = "myUsername"
http.SocksPassword = "myPassword"

' Now do whatever it is you need to do.  All communications will go through the proxy.
html = http.QuickGetStr("https://www.google.com/")
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(html)
outFile.WriteLine("----")
outFile.WriteLine("Success!")

outFile.Close