如何在VB中利用UDP协议编写聊天程序

《 {在VB中利用UDP协议编写聊天程序} 》

{UDP 协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。

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

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

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

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

因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。

下面将创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：

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

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

1．在工程中添加一个标准窗体，将窗体的名字修改为 frmPeerB，将窗体的标题修改为“Peer B”。

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

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

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

5．在窗体中添加如下代码

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

运行工程，然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。

这样，一个十分简单的实时聊天工具就做好了。

'xiansr.2014/2/7 vb.net2010 调试通过

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim udpClient As New UdpClient(11000)

        Try

            udpClient.Connect("127.0.0.1", 11000)

            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(RichTextBox1.Text)

            udpClient.Send(sendBytes, sendBytes.Length)

            Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

            Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)

            Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

            RichTextBox2.Text = "接收到： " + returnData.ToString()

            'Debug.Print(("This message was sent from " + RemoteIpEndPoint.Address.ToString() + " on their port number " + RemoteIpEndPoint.Port.ToString()))

            udpClient.Close()

        Catch ex As Exception

            stop

        End Try

    End Sub

End Class

UDP协议基础：

UDP(User Datagram Protocol)是一种无连接协议，与TCP *** 作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。

由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须明确地设置成“监听”，而其它Winsock控制则必须使用Connect方法来初始一个连接。

使用UDP协议，在两个Winsock控制间进行数据的发送，在连接的两端必须完成以下三步：

1.设置RemoteHost属性为其它计算机的名称；

2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值；

3.申请Bind方法。

通过使用方法Bind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口。

使用该协议传送数据，首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。

下例具体演示了一个“谈话”应用，以允许相互间进行实时的交谈。

UDP应用一：

建立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置：

表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”

Winsock控制：Name=“udpPeerA” Protocol=“sckUDPProtocol”

文本框1(TextBox): Name“txtSend”

文本框2(TcxtBox): Name=“txtOutput” MultiLine－True ScrollBars=2

然后打开代码窗口，分别在相应的事件下输入以下代码：

Private Sub Form_Load()

With udpPeerA

.RemoteHost=“197.1.1.2” '要连接到的计算机名

.RemotePort=1010 '要连接到的端口号

.LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯

.Bind 1011 '将该Winsock控制绑定到该本地端口

EndWith

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,vbString

txtOutput.Text = strData

End Sub

UDP应用二：

类似建立UDP Server的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置：

表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”

Winsock控制：Name=“udpPeerB” Protocol=“sckUDPProtoclool”

文本框1(TextBox)：Name=“txtSend”

文本框2(TextBox)：Name=“txtOutput” MultiLine=True ScrollBars=2

然后输入以下代码：

Private Sub Form_Load()

With udpPeerB

.RemoteHost=“197.1.1.2” '要连接到计算机的IP地址

.RemotePort=1011 '要连接到的端口号

.LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯

.Bind 1010 '将该Winsock控制绑定到该本地端口

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,vbString

txtOutput.Text=strData

End Sub

要运行该实例，打开两个Visual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可。

---