123

Imports System.Text
Imports System.Net
Imports System.Net.Sockets


Module Module1


    Sub Main()
        Dim strMyArg As String()
        Dim objUdpClient As New UdpClient(1234)
        Dim objIPEndPoint As New IPEndPoint(IPAddress.Any, 0)
        Dim byteRecvData As [Byte]()
        Dim strRecvData As String


        Console.Error.WriteLine("udpReader v0.01")


        strMyArg = System.Environment.GetCommandLineArgs
        If strMyArg.Length < 3 Then
            Console.Error.WriteLine("Usage: udpReader <PORT>")
            '    End
        End If


        Do While True
            byteRecvData = objUdpClient.Receive(objIPEndPoint)
            strRecvData = Encoding.ASCII.GetString(byteRecvData)
            Console.WriteLine(strRecvData)
            Console.WriteLine("EEB v0.1 Acknowledge :: Event->ChangeFinish : Where->Place = Change, ID=12345678 : Meta->Checksum = 12345678, CRC->0xfb")
            Console.WriteLine("Info->File ""12345678.MPG"" has been changed into ""12345678.M4T"".")
            Console.WriteLine("Recommand->Please check the metadata And get ready to migrate.")
        Loop
    End Sub


End Module