Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
 
Public Class SynchronousSocketListenerClient
 
    Public Property TextToSend As String
 
    Public Sub Send()
 
        Const endchars As String = _
             SynchronousSocketListenerServer.endchars
 
        Dim mml As Integer = _
             SynchronousSocketListenerServer.MaxMessageLength
 
        Dim bytes(mml) As Byte
 
        ' Connect to a remote device.
 
        ' Establish the remote endpoint for the socket.
        ' This example uses port 11000 on the local computer.
        Dim ipHostInfo As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
        Dim ipAddress As IPAddress = ipHostInfo.AddressList(2)
        Dim remoteEP As New IPEndPoint(ipAddress, 11000)
 
 
        Dim msg() As Byte
        Dim text As String, tl As Integer = TextToSend.Length + 1
        Do
            tl -= 1
            text = TextToSend.Substring(0, tl)
            If String.IsNullOrEmpty(text) Then
                text = "Leere Botschaft"
            End If
 
            If Not text.EndsWith(endchars) Then
                text &= endchars
            End If
            msg = Encoding.ASCII.GetBytes(text)
        Loop While msg.Length > mml
 
 
        Dim sender As Socket = Nothing
        Dim bytesrec As Integer
        Try
            ' Create a TCP/IP socket.
            sender = New Socket(AddressFamily.InterNetwork, _
                SocketType.Stream, ProtocolType.Tcp)
 
            ' Connect the socket to the remote endpoint.
            sender.Connect(remoteEP)
 
            ' Send the data through the socket.
            Dim bytesSent As Integer = sender.Send(msg)
            ' Receive the response from the remote device.
            bytesrec = sender.Receive(bytes)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        ' Release the socket.
        If sender IsNot Nothing Then
            If sender.Connected Then
                sender.Shutdown(SocketShutdown.Both)
            End If
            sender.Close()
        End If
    End Sub
End Class 'SynchronousSocketClient