这是一个UDP广播的程序，分发射和接收2块，我不回VB.NET，所以程序是从书上找来的，但是运行后不能接受到广播内容，现在将代码发出来请各位兄弟帮忙看看，小弟跪谢了！先是发射部分： Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text ____________________________________ Public Class frmMain Inherits System.Windows.Forms.Form Private Shared GroupAddress As IPAddress = IPAddress.Parse("202.202.67.145") '多路广播地址 Private Shared GroupPort As Integer = 11000 '端口 ____________________________________________________ Private Shared Sub Send(ByVal strMessage As String) '发送一条指定信息 Dim sender As New UdpClient() Dim groupEP As New IPEndPoint(GroupAddress, GroupPort)
Try Dim bytes As Byte() = Encoding.ASCII.GetBytes(strMessage) sender.Send(bytes, bytes.Length, groupEP) sender.Close() MsgBox("发送成功") Catch e As Exception MsgBox(e.ToString()) End Try End Sub ____________________________________ Windos窗体设计器生成的代码 ——————————————————— Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Send(txtMessage.Text) End Sub ———————————————————————— Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Class
