Private Sub Command1_Click() Winsock1.Close Winsock1.Protocol = sckUDPProtocol Winsock1.RemotePort = 10300 Winsock1.Bind 10301 Winsock1.RemoteHost = "192.168.1.12" '这是目标机的IP Winsock1.SendData "这是发送信息" '发送信息 End SubPrivate Sub Form_Load() Winsock1.RemotePort = 10301 Winsock1.Bind 10300 End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim st As String Winsock1.GetData st Text1.Text = st End Sub'放到两台机器上就可以通信了
创建 UDP 应用程序比创建 TCP 应用程序还要简单,因为 UDP 协议不需要显式的连接。在上面的 TCP 应用程序中,一个 Winsock 控件必须显式地进行“监听”,另一个必须使用 Connect 方法初始化连接。UDP 协议不需要显式的连接。要在两个控件中间发送数据,需要完成以下的三步(在连接的双方): 将 RemoteHost 属性设置为另一台计算机的名称。 将 RemotePort 属性设置为第二个控件的 LocalPort 属性。 调用 Bind 方法,指定使用的 LocalPort。(下面将详细地讨论该方法。) 因为两台计算机的地位可以看成“平等的”,这种应用程序也被称为点到点的。为了具体说明这个问题,下面将创建一个“聊天”应用程序,两个人可以通过它进行实时的交谈。要创建一个 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 SubPrivate Sub txtSend_Change() '在键入文本时,立即将其发送出去。 udpPeerA.SendData txtSend.Text End SubPrivate 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 SubPrivate Sub txtSend_Change() '在键入后立即发送文本。 udpPeerB.SendData txtSend.Text End SubPrivate Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub如果要试用上面的例子,按 F5 键运行工程,然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。
到此为止,以下的不接受答案了, TO lazygod(Use any item) 我收到程序了还有其它各位,我整理一下程序后再来结帖.....谢谢 ^_^
Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 10300
Winsock1.Bind 10301
Winsock1.RemoteHost = "192.168.1.12" '这是目标机的IP
Winsock1.SendData "这是发送信息" '发送信息
End SubPrivate Sub Form_Load()
Winsock1.RemotePort = 10301
Winsock1.Bind 10300
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim st As String
Winsock1.GetData st
Text1.Text = st
End Sub'放到两台机器上就可以通信了
将 RemotePort 属性设置为第二个控件的 LocalPort 属性。
调用 Bind 方法,指定使用的 LocalPort。(下面将详细地讨论该方法。)
因为两台计算机的地位可以看成“平等的”,这种应用程序也被称为点到点的。为了具体说明这个问题,下面将创建一个“聊天”应用程序,两个人可以通过它进行实时的交谈。要创建一个 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 SubPrivate Sub txtSend_Change()
'在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End SubPrivate 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 SubPrivate Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End SubPrivate Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub如果要试用上面的例子,按 F5 键运行工程,然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。
TO lazygod(Use any item) 我收到程序了还有其它各位,我整理一下程序后再来结帖.....谢谢 ^_^