(VBScript) HTTP/HTTPS using SOCKS4 Proxy

Demonstrates how to use HTTP/HTTPS with a SOCKS4 proxy.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' Using a SOCKS4 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 = 4 for SOCKS4
http.SocksVersion = 4

' 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 SOCKS4 proxy is listening.
http.SocksPort = 1080

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

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

outFile.Close