求vb代码,vb实现以广播的形式发送信息到局域网内部,另外加一个接收的程序。

 我来答
zdingyun
推荐于2018-04-05 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48168
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

这代码发送和接收的MSDN6.0中有,在索引中键入winscok 控件,点使用 Winsock 控件

其中关于UDP
协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,单次传输的最大数据量取决于具体的网络。

要创建一个 UDP 伙伴,请按照以下步骤执行: 

创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。

将窗体的标题修改为“Peer A”。

在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。

在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。

在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。

为窗体增加如下的代码。

Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB" 
.RemotePort = 1001   '连接的端口号。
.Bind 1002                '绑定到本地的端口。
End With
frmPeerB.Show                 '显示第二个窗体。
End Sub

Private Sub txtSend_Change()
'在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub

要创建第二个 UDP 伙伴,请按照以下步骤执行:

在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。

将窗体的标题修改为“Peer B”。

在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。

在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。

在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。

在窗体中添加如下的代码。

Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost= "PeerA"
.RemotePort = 1002    '要连接的端口。
.Bind 1001                '绑定到本地的端口上。
End With
End Sub

Private Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
bd5057
2015-06-09 · TA获得超过879个赞
知道大有可为答主
回答量:1242
采纳率:100%
帮助的人:1082万
展开全部
'广播端:
Private Sub Command1_Click()
Winsock1.SendData Text1.Text
End Sub
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "255.255.255.255"
Winsock1.RemotePort = 12345
End Sub
'接收端:
Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 12345
Winsock1.Bind
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Print "接收到数据" & s
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式