vb.net udp 侦听广播包

在VB.NET中，我们可以使用Socket类来实现UDP侦听广播包。下面是一个简单的示例：

首先，我们需要引入System.Net.Sockets命名空间，以便使用Socket类。

Imports System.Net.Sockets
Imports System.Text

接下来，我们创建一个UDP Socket，并将其绑定到指定的IP地址和端口上。

Dim udpClient As New UdpClient()
udpClient.Client.Bind(New IPEndPoint(IPAddress.Any, 12345))

然后，我们可以使用Receive方法来接收广播包。

Dim receiveBytes As Byte() = udpClient.Receive(New IPEndPoint(IPAddress.Any, 0))

要获得接收到的数据，我们可以使用Encoding类将字节数组转换为字符串。

Dim receiveString As String = Encoding.ASCII.GetString(receiveBytes)

最后，我们可以在控制台中输出接收到的广播信息。

Console.WriteLine("Received broadcast: " + receiveString)

完整的代码示例如下：

Imports System.Net.Sockets
Imports System.Text

Module Module1

    Sub Main()
        Dim udpClient As New UdpClient()
        udpClient.Client.Bind(New IPEndPoint(IPAddress.Any, 12345))

        Console.WriteLine("Listening for broadcast messages...")

        While True
            Dim receiveBytes As Byte() = udpClient.Receive(New IPEndPoint(IPAddress.Any, 0))
            Dim receiveString As String = Encoding.ASCII.GetString(receiveBytes)

            Console.WriteLine("Received broadcast: " + receiveString)
        End While
    End Sub

End Module

这是一个简单的VB.NET UDP侦听广播包的示例，你可以根据自己的需求对代码进行修改和扩展。