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
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