vb中winsock控制udp协议使用

《vb中winsock控制udp协议使用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB中Winsock控制的UDP协议的使用 　　UDP协议基础：　　UDP(UserDatagramProtocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。　　由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须?魅返厣柚贸伞凹嗵保渌黈insock控制则必须使用Connect方法来初始一个连接。　　使用UDP协议，在两个Winsock控制间进行

2、数据的发送，在连接的两端必须完成以下三步：　　1.设置RemoteHost属性为其它计算机的名称；　　2.设置RemotePort属性为第二个Winsock?刂频腖ocalPort属性的值；　　3.申请Bind方法。　　通过使用方法Bind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口。　　使用该协议传送数据，首先设置客户计算机的LocalPort蔰粜浴６魑衿鞯募扑慊鲂枰柚肦emoteHost属性为客户计

3、算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。1　　下例具体演示了一个“谈话”应用，以允许相互间进行实时的交谈。　　UDP应用一：　　建立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置：　　表单(Form):Name=“frmPeerA”Caption=

4、“UDPApplica1tion(1)”　　Winsock控制：Name=“udpPeerA”Protocol=“sckUDPProtocol”　　文本框1(TextBox):Name“txtSend”　　文本框2(TcxtBox):Name=“txtOutput”MultiLine－TrueScrollBars=2　　然后打开代码窗口，分别在相应的事件下输入以下代码：1　　PrivateSubForm_Load()　　WithudpPeerA　　.RemoteHost=“197.1.1.2”'要连接到的

5、计算机名　　.RemotePort=1010'要连接到的端口号　　.LocalPort=1011'该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯　　.Bind10110'将该Winsock控制绑定到该本地端口　　EndWith　　EndSub　　PrivateSubtxtSend_Change()　　udpPeerA.SendDatatxtSend.Text'发送文本　　EndSub　　PrivateSubudpPeerA_DataArrival(ByValbytesTotal

6、AsLong)　　DimstrDatanAsString　　udpPeerA.GetDatastrData,vbString　　txtOutput.Text=strData　　EndSub　　UDP应用二：　　类似建立UDPServer的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置：　　表单(Form):Name=“frmPeenrB”Caption=“UDPApplication(2)”　　Winsock控制：Name=“udpPeerB”Protocol=“sckUDP

7、Protoclool”　　文本框1(TextBox)：Name=“txtSend”　　文本框2(TextBox)：Name=“txtOutput”MultiLine=TrueScrollBars=2　　然后输入以下代码：　　nPrivateSubForm_Load()　　WithudpPeerB　　.RemoteHost=“197.1.1.2”'要连接到计算机的IP地址　　.RemotePort=1011'要连接到的端口号　　.LocalPort=1010'该Winsock控制将使用的本地端口号，便于其它

8、方与之通讯　　.Bind1010'将该Winsock控制绑定到该本地端口　　EndWith　　EndSub　　PrivateSubtxtSend_Change()　　udpPeerB.SendDatatxtSend.Text'发送文本　　EndSub　　PrivateSubudpPeerB_DataArrival(ByValbytesTotalAsLong)　　DimstrDataAsString　　udpPeerB.GetD