关于冰盾 | 使用条款 | 网站地图
 
代码演示VB.NET UDP协议之编写聊天程序案例
代码演示VB.NET UDP协议之编写聊天程序案例
作者:冰盾防火墙 网站:www.bingdun.com 日期:2015-02-06
 

有些人喜欢用java编写聊天程序,其实用VB.NET UDP协议编写聊天程序也是很简单的,在这里把编写聊天程序的步骤和代码都给大家一一列出。先来看看什么是VB.NET 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.为窗体添加如下的代码。

  1. Private Sub Form_Load()   
  2. ′控件的名字为udpPeerA   
  3. With udpPeerA   
  4. ′重点:必须将 RemoteHost 的值修改为对方计算机的名字。   
  5. RemoteHost= ″PeerB″   
  6. RemotePort = 1001 ′连接的端口号。   
  7. Bind 1002 ′绑定到本地的端口。   
  8. End With   
  9. frmPeerB.Show′显示第二个窗体。   
  10. End Sub   
  11. Private Sub txtSend_Change()   
  12. ′在键入文本时,立即将其发送出去。   
  13. udpPeerA.SendData txtSend.Text   
  14. End Sub   
  15. Private Sub udpPeerA_DataArrival _   
  16. (ByVal bytesTotal As Long)   
  17. Dim strData As String   
  18. udpPeerA.GetData strData   
  19. txtOutput.Text = strData   
  20. End Sub 

要创建第二个UDP伙伴,请按照以下步骤执行: 
1.在工程中添加一个标准窗体,将窗体的名字修改为 frmPeerB,将窗体的标题修改为“Peer B”。 
2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。 
3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。 
4.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。 
5.在窗体中添加如下代码

  1. Private Sub Form_Load()   
  2. ′控件的名字为 udpPeerB。   
  3. With udpPeerB   
  4. ′重点:必须将RemoteHost的值改为对方计算机的名字。   
  5. RemoteHost= ″PeerA″   
  6. RemotePort = 1002 ′要连接的端口。   
  7. Bind 1001 ′绑定到本地的端口上。   
  8. End With   
  9. End Sub   
  10. Private Sub txtSend_Change()   
  11. ′在键入后立即发送文本。   
  12. udpPeerB.SendData txtSend.Text   
  13. End Sub   
  14. Private Sub udpPeerB_DataArrival _   
  15. (ByVal bytesTotal As Long)   
  16. Dim strData As String   
  17. udpPeerB.GetData strData   
  18. txtOutput.Text = strData   
  19. End Sub  

运行工程,然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。 以上就是利用VB.NET UDP协议编写的一个聊天室程序,还是很简单的吧。

 

 
最新内容:
传输层UDP协议分析[2015-02-06]
UDP协议的初级掌握[2015-02-06]
UDP数据广播的Java设计流程[2015-02-06]
与Java相关的UDP协议的使用[2015-02-06]
浅谈何谓UDP协议[2015-02-06]
TCP UDP协议服务的基础介绍[2015-02-06]
相关内容:

合作伙伴: 黑基网 补天科技 威盾科技 站长下载 新飞金信 北京电信 ZOL应用下载
中华人民共和国增值电信业务经营许可证京ICP备14024464 公安备案号 京1081234 
版权所有©2003-2016 冰盾防火墙  www.BingDun.com 法律声明
服务热线:(010)51661195