Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Tester
Dim Shared GroupIP As IPAddress
Dim Shared GroupEP As IPEndPoint
Dim Shared ListenUdp As UdpClient
Public Shared Sub Main
Dim ListenThread As Thread
ListenThread = New Thread(AddressOf BeginListen)
ListenThread.Start()
' ListenUdp.DropMulticastGroup(GroupIP)
' ListenUdp.Close()
' ListenThread.Abort()
End Sub
Private Shared Sub BeginListen()
Dim bteReceiveData() As Byte
Dim strReceiveData As String
GroupIP = IPAddress.Parse("127.0.0.1")
GroupEP = New IPEndPoint(GroupIP, 12345)
ListenUdp = New UdpClient(12345)
ListenUdp.JoinMulticastGroup(GroupIP)
Do
bteReceiveData = ListenUdp.Receive(GroupEP)
strReceiveData = Encoding.Unicode.GetString(bteReceiveData)
Console.WriteLine(strReceiveData)
Loop
End Sub
End Class
|