Imports System
Imports System.io
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic.ControlChars
 
Module Module1
 
   Sub Main()
 
      Console.Write("Zur Verbindungsaufnahme <ENTER> drücken: ")
      Console.ReadLine()
 
      Dim client As New Socket(AddressFamily.InterNetwork, _
                              SocketType.Dgram, ProtocolType.Udp)
 
      ' Creates an IpEndPoint to capture the identity of the sending host.
      Dim clientEndPoint As New IPEndPoint(IPAddress.Any, 0)
      Dim clientRemote As EndPoint = CType(clientEndPoint, EndPoint)
 
      'Serverdaten:
 
      Dim serverInfo As IPHostEntry = Dns.Resolve("152.96.26.51")
      Dim serverEndPoint As New IPEndPoint(serverInfo.AddressList(0), 3333)
 
      Try
 
         'Senden des Codes an den Client
         Dim msg() As Byte = Encoding.ASCII.GetBytes("04")
         client.SendTo(msg, serverEndPoint)
         Console.WriteLine("Code-Anfrage gesendet" & CrLf)
 
         'Empfangen des Codes
         Dim msgclient(10) As Byte
         Console.WriteLine("Warten auf den Code..." & CrLf)
 
         Dim anzBytes As Byte = client.ReceiveFrom(msgclient, serverEndPoint)
 
         Console.WriteLine("Der Code lautet: {0}" & CrLf, _
           Encoding.ASCII.GetString(msgclient))
         Console.WriteLine("Server Port: {0}", serverEndPoint.Port.ToString)
         Console.WriteLine("Server IP: {0}" & CrLf, _
           serverEndPoint.Address.ToString)
 
         'Senden der Bestätigung
         Dim bestaetigung() As Byte = Encoding.ASCII.GetBytes("OK")
         client.SendTo(bestaetigung, serverEndPoint)
         Console.WriteLine("Code-Bestätigung gesendet" & CrLf)
 
      Catch e As Exception
         Console.WriteLine(e.ToString())
      Finally
         client.Close()
      End Try
 
      Console.ReadLine()
   End Sub
 
End Module