《VB中Winsock控制的UDP协议的使用》由会员分享，可在线阅读，更多相关《VB中Winsock控制的UDP协议的使用（5页珍藏版）》请在金锄头文库上搜索。
1、 VB中Winsock控制的UDP协议的使用UDP(User Datagram Protocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或效劳器方。由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简洁得多。在TCP应用中，一个Winsock掌握必需明确地设置成“监听”，而其它Winsock掌握则必需使用Connect方法来初始一个连接。使用UDP协议，在两个Winsock掌握间进展数据的发送，在连接的两端必需完成以下三步：1.设置RemoteHost属性为其它计算机的名称；2.设置RemotePo
2、rt属性为其次个Winsock掌握的LocalPort属性的值；3.申请Bind方法。通过使用方法Bind，则可将该Winsock掌握捆绑到一个本地端口，以便该Winsock掌握使用该端口来进展类似TCP的“监听”功能，并防止其它应用使用该端口。使用该协议传送数据，首先设置客户计算机的LocalPort属性。而作为效劳器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开头信息发送，客户计算机则可在其DataArrial大事中使用方法GetData来猎取
3、发送的信息。下例详细演示了一个“谈话”应用，以允许相互间进展实时的交谈。UDP应用一：建立一个新标准EXE工程文件，拖放一个Winsock掌握到表单上，添加两个文本框到表单上，然后进展以下属性的设置：表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”Winsock掌握：Name=“udpPeerA” Protocol=“sckUDPProtocol”文本框1(TextBox): Name“txtSend”文本框2(TcxtBox): Name=“txtOutput” MultiLineTrue ScrollBars=2然后翻开代码窗口，分
4、别在相应的大事下输入以下代码：Private Sub Form_Load() With udpPeerA .RemoteHost = “197.1.1.2“ 要连接到的计算机名 .RemotePort=1010 要连接到的端口号 .LocalPort=1011 该Winsock掌握将要使用的本地端口号，便于其它端与该Winsock通讯 .Bind 1011 将该Winsock掌握绑定到该本地端口 EndWithEnd SubPrivate Sub txtSend_Change() udpPeerA.SendData txtSend.Text发送文本End SubPrivate Sub udpP
5、eerA_DataArrival(ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData,vbString txtOutput.Text = strDataEnd SubUDP应用二：类似建立UDP Server的方法，在表单上添加一个Winsock掌握及两个文本框，然后进展以下属性的设置：表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”Winsock掌握：Name=“udpPeerB” Protocol=“sckUDPProtoclool”文本框
6、1(TextBox)：Name=“txtSend”文本框2(TextBox)：Name=“txtOutput” MultiLine=True ScrollBars=2然后输入以下代码：Private Sub Form_Load() With udpPeerB .RemoteHost = “197.1.1.2“ 要连接到计算机的IP地址 .RemotePort=1011 要连接到的端口号 .LocalPort=1010 该Winsock掌握将使用的本地端口号，便于其它方与之通讯 .Bind 1010 将该Winsock掌握绑定到该本地端口 End WithEnd SubPrivate Sub t
7、xtSend_Change() udpPeerB.SendData txtSend.Text 发送文本End SubPrivate Sub udpPeerB_DataArrival(ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData,vbStringtxtOutput.Text=strDataEnd Sub要运行该实例，翻开两个Visual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost转变成相应的计算机的IP地址或域名即可(以上例子在Visual Basic 5.0及PWIN97上通过)。
