(PureBasic) HTTP/HTTPS using SOCKS4 Proxy

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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
    CkHttp::setCkSocksVersion(http, 4)

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

    ; The port where the SOCKS4 proxy is listening.
    CkHttp::setCkSocksPort(http, 1080)

    ; Now do whatever it is you need to do.  All communications will go through the proxy.
    html.s = CkHttp::ckQuickGetStr(http,"https://www.baidu.com/")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug html
    Debug "----"
    Debug "Success!"


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure