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/IP Socket Connect to Remote Host:PortDemonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim socket As New Chilkat.Socket ' Connect to port 5555 of localhost. ' The string "localhost" is for testing on a single computer. ' It would typically be replaced with an IP hostname, such ' as "www.chilkatsoft.com". Dim ssl As Boolean = False Dim maxWaitMillisec As Integer = 20000 Dim success As Boolean = socket.Connect("localhost",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 ' Pretend, for the sake of the example, that the ' ficticious server is going to send a "Hello World!" ' after accepting the connection. ' Note: Technically, the ReceiveString may not receive the ' complete string, although it's highly probable given the short ' length of the "Hello World!" message. ' See this Chilkat blog post for more information: ' http://www.cknotes.com/?p=302 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.