VB.NET UDP的应用举例分析

网络 网络管理
VB.NET UDP来完成一个聊天程序的编写。那么这个步骤是什么样的呢?下面我们就来介绍一下。希望能对大家有一个参考作用。

在一些编程过程中,我们能也发现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.为窗体添加如下的代码。

  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 

#p#要创建第二个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协议编写的一个聊天室程序,还是很简单的吧。

责任编辑:佟健 来源: IBM
相关推荐

2009-11-02 15:57:36

VB.NET WEB

2010-01-08 15:03:12

VB.NET类属性

2009-11-02 17:12:01

VB和VB.NET

2009-10-28 10:04:53

VB.NET XmlW

2010-01-12 16:20:44

VB.NET类

2009-10-09 15:59:41

VB.NET对象

2009-10-09 17:40:38

VB.Net问题集

2010-01-12 17:54:42

VB.NET Dlli

2010-01-15 15:39:14

VB.NET Sub过

2009-10-28 14:34:44

VB.NET Tree

2009-11-10 16:46:52

VB.NET指针应用

2010-01-07 15:25:11

VB.NET数组

2009-10-13 09:24:57

VB.NET Dock

2009-10-14 15:20:21

VB.NET窗体指针

2009-10-15 10:57:16

VB.NET Text

2009-10-29 15:16:02

VB.NET文件传送

2009-10-12 13:11:48

VB.NET使用线程

2009-11-04 10:54:53

VB.NET MOVE

2009-10-27 18:06:41

VB.NET开发控件

2009-11-04 09:32:12

VB.NET Auto
点赞
收藏

51CTO技术栈公众号