Imports System.IO
Imports System.Net
Imports System.Net.Sockets
 
Public Class TCPClientConsole
    Shared Sub Connect()
        Try
            Dim server As String = "xy"
            Dim Nachricht As String = "login abc"
 
            Dim port As Integer = 5001
            Dim client As New TcpClient(server, port)
 
            'Nachricht in ein Byte Array umwandeln
            Dim NByte As [Byte]() = System.Text.Encoding.ASCII.GetBytes( _
              Nachricht)
 
            Dim stream As NetworkStream = client.GetStream()
 
            ' Nachricht auf den Server senden 
            stream.Write(NByte, 0, NByte.Length)
 
            NByte = New [Byte](256) {}
 
            Dim responseData As String = String.Empty
 
            ' Auslesen der Nachricht vom Server 
            Dim bytes As Integer = stream.Read(NByte, 0, NByte.Length)
            '=> das Programm bleibt stehen und wartet => auf WAS? oder 
            ' was muss ich tun?
 
'hier möchte ich die Nachricht des Servers auslesen und ggf. im LoginProzess 
' eingreifen können-
 
            responseData = System.Text.Encoding.ASCII.GetString(NByte, 0, bytes)
            Console.WriteLine("Received: {0}", responseData)
 
'lesen und ggf. wieder senden und wieder lesen
 
            'Alles Beenden
            stream.Close()
            client.Close()
        Catch e As ArgumentNullException
            Console.WriteLine("ArgumentNullException: {0}", e)
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        End Try
 
    End Sub 
End Class