如何在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中。

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

我也写过聊天程序，一般来说也就是使用winsock控件来通讯，我认真想过，但也没有想到特别方便的方法。我的做法是这样的:所有用户都有一个sc(0)在监听某个端口，比如1234。每次需要发送数据到其它计算机的时候，就load

sc(newindex)，用这个新load出来的winsock来发送到那个用户的1234端口。为了可以及时回收，用一个集合来记录sc()中哪个下和缺耐标正在使用，以决定在load的时候newindex的数字。当数据发送完毕，就unload

sc(finishindex)，并从集合中把下标退出来。实际上在局域网发送文本消息几乎不需要多长时间，所以就算你在狂发信息，(我试过监视sc的数目)一般来说唤春就是一个sc(0)在监听(当然这个是一直不会关的)，一个sc(1)在发送，已经极少碰到load一个sc(2)的情况了。使用该方法的确能有效的保证在多用户聊天的情况下保证发送和接受都正确。

至于显示消息则很简单了。在接收方sc(0)的收到消息事件中将信息提取出来放到某个textbox即可，而发送方则可以在消息发送完毕的事件中将信息放到textbox中。

如果你看得不是很明白，扮明我可以贴出我的部分代码，或者给你作进一步讲解。

---