Public Class frmMain
Inherits System.Windows.Forms.Form
Private GroupAddress As IPAddress = IPAddress.Parse("224.0.168.2")
Private GroupPort As Integer = 11000
Private Sub StartListen() '开始监听
Dim listener As New System.Net.Sockets.UdpClient
Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)
Dim i As Integer
Try
listener.JoinMulticastGroup(GroupAddress)
listener.Connect(groupEP)
For i = 1 To 1000
Dim bytes As Byte() = listener.Receive(groupEP)
txtMessage.AppendText(Encoding.ASCII.GetString(bytes, 0, bytes.Length))
Next
listener.Close()
Catch e As Exception
MsgBox(e.ToString())
Timer1.Enabled = False
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
StartListen()
End Sub
End Class