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
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
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.