锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net局域网广播 局域网的广播功能,具体怎么操作的?

IT技术用户

求vb代码，vb实现以广播的形式发送信息到局域网内部，另外加一个接收的程序 。这代码发送和接收的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
用vb.net实现网络通信用 vb.net socket通信
Dim th As Threading.Thread
2Dim tcpl As System.Net.Sockets.TcpListener
3
4Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6th.Start()
7End Sub
8
9Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10Try
11If IP"" Then
12Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14Dim reqStream As New IO.StreamWriter(tcpStream)
15reqStream.Write(SendMsg)
16reqStream.Flush()
17tcpStream.Close()
18tcpc.Close()
19End If
20Catch ex As Exception
21MsgBox(ex.Message.ToString)
22End Try
23End Sub
24Private Sub MyListen()Sub MyListen()
25Try
26Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

推荐阅读


上一篇：scum如何加入服务器 scum怎么连进服务器

下一篇：linux配置时间命令，linux配置命令退出快捷