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