VB中Winsock控制的UDP协议的使用

阿杰

<div style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 9pt; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; HEIGHT: 200px; WORD-WRAP: break-word;"><br/>　　UDP协议基础：&nbsp;&nbsp;<br/>　　UDP(User Datagram Protocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。&nbsp;&nbsp;<br/>　　由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须明确地设置成“监听”，而其它Winsock控制则必须使用Connect方法来初始一个连接。&nbsp;&nbsp;<br/>　　使用UDP协议，在两个Winsock控制间进行数据的发送，在连接的两端必须完成以下三步：&nbsp;&nbsp;<br/>　　1.设置RemoteHost属性为其它计算机的名称；&nbsp;&nbsp;<br/>　　2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值；&nbsp;&nbsp;<br/>　　3.申请Bind方法。&nbsp;&nbsp;<br/>　　通过使用方法Bind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口。&nbsp;&nbsp;<br/>　　使用该协议传送数据，首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。&nbsp;&nbsp;<br/>　　下例具体演示了一个“谈话”应用，以允许相互间进行实时的交谈。&nbsp;&nbsp;<br/>　　UDP应用一：&nbsp;&nbsp;<br/>　　建立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置：&nbsp;&nbsp;<br/>　　表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”&nbsp;&nbsp;<br/>　　Winsock控制：Name=“udpPeerA” Protocol=“sckUDPProtocol”&nbsp;&nbsp;<br/>　　文本框1(TextBox): Name“txtSend”&nbsp;&nbsp;<br/>　　文本框2(TcxtBox): Name=“txtOutput” MultiLine－True ScrollBars=2&nbsp;&nbsp;<br/>　　然后打开代码窗口，分别在相应的事件下输入以下代码：&nbsp;&nbsp;<br/>　　Private Sub Form_Load()&nbsp;&nbsp;<br/>　　 With udpPeerA&nbsp;&nbsp;<br/>　　 .RemoteHost=“197.1.1.2” '要连接到的计算机名&nbsp;&nbsp;<br/>　　 .RemotePort=1010 '要连接到的端口号&nbsp;&nbsp;<br/>　　 .LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯&nbsp;&nbsp;<br/>　　 .Bind 1011 '将该Winsock控制绑定到该本地端口&nbsp;&nbsp;<br/>　　 EndWith&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　Private Sub txtSend_Change()&nbsp;&nbsp;<br/>　　 udpPeerA.SendData txtSend.Text'发送文本&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)&nbsp;&nbsp;<br/>　　 Dim strData As String&nbsp;&nbsp;<br/>　　 udpPeerA.GetData strData,vbString&nbsp;&nbsp;<br/>　　 txtOutput.Text = strData&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　UDP应用二：&nbsp;&nbsp;<br/>　　类似建立UDP Server的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置：&nbsp;&nbsp;<br/>　　表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”&nbsp;&nbsp;<br/>　　Winsock控制：Name=“udpPeerB” Protocol=“sckUDPProtoclool”&nbsp;&nbsp;<br/>　　文本框1(TextBox)：Name=“txtSend”&nbsp;&nbsp;<br/>　　文本框2(TextBox)：Name=“txtOutput” MultiLine=True ScrollBars=2&nbsp;&nbsp;<br/>　　然后输入以下代码：&nbsp;&nbsp;<br/>　　Private Sub Form_Load()&nbsp;&nbsp;<br/>　　 With udpPeerB&nbsp;&nbsp;<br/>　　 .RemoteHost=“197.1.1.2” '要连接到计算机的IP地址&nbsp;&nbsp;<br/>　　 .RemotePort=1011 '要连接到的端口号&nbsp;&nbsp;<br/>　　 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯&nbsp;&nbsp;<br/>　　 .Bind 1010 '将该Winsock控制绑定到该本地端口&nbsp;&nbsp;<br/>　　 End With&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　Private Sub txtSend_Change()&nbsp;&nbsp;<br/>　　 udpPeerB.SendData txtSend.Text '发送文本&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)&nbsp;&nbsp;<br/>　　 Dim strData As String&nbsp;&nbsp;<br/>　　 udpPeerB.GetData strData,vbString&nbsp;&nbsp;<br/>　　txtOutput.Text=strData&nbsp;&nbsp;<br/>　　End Sub&nbsp;&nbsp;<br/>　　要运行该实例，打开两个Visual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可</div>

莎沙娃

继续支持没话说~ 楼主真强

----------------------------------------------------------
个性签名：我爱笑....We provide all WoW Gold services. You can buy Cheap wow gold here! Welcome to our website for you World of Warcraft Gold,wow gold,Cheap World of Warcraft Gold,buy cheap wow gold, real WoW Power Leveling.......WoW Power Leveling,.. .