Visual Basic - teasdasd ah9sd

Imports System.Console
Imports System.Text
Imports System.Net
Imports System.Net.Sockets
 
Private Class Program
  Public Shared Sub Main()
    Const textToSend As String = "Hallo Welt"
    ' Daten, die gesendet werden
    Const localhost As String = "127.0.0.1"
    ' Endpunkt, zu dem verbunden wird
    Const port As Integer = 80
 
    Dim data As Byte() = Encoding.UTF8.GetBytes(textToSend)
    Dim ip As IPAddress = IPAddress.Parse(localhost)
    Dim ipEndPoint As New IPEndPoint(ip, port)
 
    ' Socket, das verwendet wird
    Using socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
      socket.Connect(ipEndPoint)
      ' Es wird zum Endpunkt verbunden
      Dim byteCount As Integer = socket.Send(data, SocketFlags.None)
      ' Daten werden gesendet
      WriteLine("Es wurden {0} Bytes gesendet", byteCount)
      Dim buffer As Byte() = New Byte(255) {}
      ' Puffer für die zu empfangenen Daten
      byteCount = socket.Receive(buffer, SocketFlags.None)
      ' Daten werden empfangen
      ' Wenn eine Antwort erhalten wurde, diese ausgeben
      If byteCount > 0 Then
        WriteLine("Es wurden {0} Bytes empfangen", byteCount)
        Dim answer As String = Encoding.UTF8.GetString(buffer)
        WriteLine("Empfangene Daten: {0}", answer)
      End If
    End Using   ' Verbindung wird geschlossen.
  End Sub
End Class