Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) TCP Socket Connect through HTTP ProxyDemonstrates how to connect through an HTTP proxy server.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim socket As New Chilkat.Socket ' To connect through an HTTP proxy, set the HttpProxyHostname ' and HttpProxyPort properties to the hostname (or IP address) ' and port of the HTTP proxy. Typical port numbers used by ' HTTP proxy servers are 3128 and 8080. socket.HttpProxyHostname = "www.my-http-proxy.com" socket.HttpProxyPort = 3128 ' Important: Your HTTP proxy server must allow non-HTTP ' traffic to pass. Otherwise this does not work. ' Connect (via the HTTP proxy) to port 5555 of 192.168.1.108. ' hostname may be a domain name or IP address. Dim hostname As String = "192.168.1.108" Dim ssl As Boolean = False Dim maxWaitMillisec As Integer = 20000 Dim success As Boolean = socket.Connect(hostname,5555,ssl,maxWaitMillisec) If (success <> True) Then Debug.WriteLine(socket.LastErrorText) Exit Sub End If ' Set maximum timeouts for reading an writing (in millisec) socket.MaxReadIdleMs = 10000 socket.MaxSendIdleMs = 10000 ' The ficticious server (in this example) is going to send a "Hello World!" ' message. Read it: Dim receivedMsg As String = socket.ReceiveString() If (socket.LastMethodSuccess <> True) Then Debug.WriteLine(socket.LastErrorText) Exit Sub End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) success = socket.Close(20000) Debug.WriteLine(receivedMsg) |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.