VB.NET UDP的应用举例分析(1)

VB.NET UDP的应用举例分析(1)

在一些编程过程中，我们能也发现UDP协议的使用。那么本篇文章，我们就来介绍一下如何使用VB.NET UDP来完成聊天程序的编写。那么，在以往的学习构成中，我们发现有些人喜欢用java编写聊天程序，其实用VB.NET UDP协议编写聊天程序也是很简单的，在这里把编写聊天程序的步骤和代码都给大家一一列出。先来看看什么是VB.NET UDP协议，是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。

由于UDP 协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：

1．将RemoteHost属性设置为另一台计算机的名称。

2．将RemotePort属性设置为第二个控件的LocalPort属性。

3．调用Bind方法，指定使用的LocalPort。

因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。 下面将用VB.NET UDP创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：

1．创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“Peer A”。

2．在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。

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

4．为窗体添加如下的代码。

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