Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) 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 = Await socket.ConnectAsync("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 = Await socket.ReceiveStringAsync() 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 = Await socket.CloseAsync(20000) Debug.WriteLine(receivedMsg) |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.