Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
public class MainClass
Shared Sub Main()
Dim receivingUdpClient As New UdpClient(11000)
Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
Try
Dim receiveBytes As [Byte]() = receivingUdpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
Console.WriteLine(returnData.ToString())
Console.WriteLine(RemoteIpEndPoint.Port.ToString())
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub
End Class
|