在VB中利用UDP协议编写聊天程序---vb,vb-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>VB编程>>正文	新版上线！[旧版]

注:打开慢时请稍等

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

http://www.iyit.net 日期：2006-5-22 17:02:13 来源：网络转载点击：

【参加讨论】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实现点对点通信
下一篇：Visual Basic通信程序设计
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

VB两种操作Access数据库方法的比较	用VB备份和恢复SQL Server数据库的方法	VB程序如何访问数据库
VB程序如何连接数据库	VB+Oracle 9i如何构建开发和运行的环境	VB游戏攻略
在VBScript中使用类（一）	在VBScript中使用类（二）	在VBScript中使用类（三）
在VBScript中使用类（四）	RC4经典加密算法VB版本代码	在asp中通过vbs类实现rsa加密与解密
ASP VBScript 函数速查表	清空iis log 中自己登录ip的vbs	EJB系列教程之一(JBuilder4+IAS41+Vbj4
用VB编写标准CGI程序	用ASP、VB和XML建立互联网应用程序	使用XML+VBS技术在ASP中实现报表的打印
vbs类生成xml文件	Delphi使用VB6编写的ActiveX控件？？？	Delphi使用VB编写的ActiveX控件全攻略
如何把VC++代码转换成VB代码?	VB与VC通信初探(二)	VB与VC通信初探(一)

最新更新

热点排行

推荐新闻

Visual Basic 5.0中实现视频画中画

获取Windows / System / Temp 目录路径

Access数据库开发技巧(一)

Visual Basic 概述

快速初始化Variant和String类型数组

Windows XP专业版IIS连接数的更改

QQ最新版下载 2006 beta2 体验新感受

优秀公益广告作品欣赏(7)

Office2007简体中文版浮出水面美图抢

IP地址资源2012年枯竭部署IPv6很紧迫

古老问题有新解：世上先有鸡蛋后有鸡

Dreamweaver MX 2004从零开始(1)

利用CSS改善网站可访问性

如何让MM的脸通透可人

msn8.0下载

	友情链接

	Copyrights © 2004-2006 iYiT.Net All Rights Reserved. 网站合作、广告联系QQ:147007642、466949678
	易特网络技术冀ICP备05011851号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。