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

UDP协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。
　　由于UDP协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：
　　1．将RemoteHost属性设置为另一台计算机的名称。
　　2．将RemotePort属性设置为第二个控件的LocalPort属性。
　　3．调用Bind方法，指定使用的LocalPort。
　　因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。
　　下面将创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：
　　1．创建一个新的StandardEXE工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“PeerA”。
　　2．在窗体中放入一个Winsock控件，并将其命名为udpPeerA。在“属性”页上，单击“协议”并将协议修改为UDPProtocol。
　　3．在窗体中添加两个TextBox控件。将第一个命名为txtSend，第二个命名为txtOutput。
　　4．为窗体添加如下的代码。
　　PrivateSubForm_Load()
　　′控件的名字为udpPeerA
　　WithudpPeerA
　　′重点:必须将RemoteHost的值修改为对方计算机的名字。
　　RemoteHost=″PeerB″
　　RemotePort=1001′连接的端口号。
　　Bind1002′绑定到本地的端口。
　　EndWith
　　frmPeerB.Show′显示第二个窗体。
　　EndSub
　　PrivateSubtxtSend_Change()
　　′在键入文本时，立即将其发送出去。
　　udpPeerA.SendDatatxtSend.Text
　　EndSub
　　PrivateSubudpPeerA_DataArrival_
　　(ByValbytesTotalAsLong)
　　DimstrDataAsString
　　udpPeerA.GetDatastrData
　　txtOutput.Text=strData
　　EndSub
　　要创建第二个UDP伙伴，请按照以下步骤执行：
　　1．在工程中添加一个标准窗体，将窗体的名字修改为frmPeerB，将窗体的标题修改为“PeerB”。
　　2．在窗体中放入一个Winsock控件，并将其命名为udpPeerB。
　　3．在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
　　4．在窗体上添加两个TextBox控件。将第一个命名为txtSend，第二个命名为txtOutput。
　　5．在窗体中添加如下代码
　　PrivateSubForm_Load()
　　′控件的名字为udpPeerB。
　　WithudpPeerB
　　′重点:必须将RemoteHost的值改为对方计算机的名字。
　　RemoteHost=″PeerA″
　　RemotePort=1002′要连接的端口。
　　Bind1001′绑定到本地的端口上。
　　EndWith
　　EndSub
　　PrivateSubtxtSend_Change()
　　′在键入后立即发送文本。
　　udpPeerB.SendDatatxtSend.Text
　　EndSub
　　PrivateSubudpPeerB_DataArrival_
　　(ByValbytesTotalAsLong)
　　DimstrDataAsString
　　udpPeerB.GetDatastrData
　　txtOutput.Text=strData
　　EndSub
　　运行工程，然后在两个窗体的txtSendTextBox中分别键入一些文本。键入的文字将出现在另一个窗体的txtOutputTextBox中。->

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：在VB中模拟实现邮件传输   下一篇：用Winsock实现点对点通信

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】