VB中Winsock控制UDP协议的使用
?牐燯DP（User Datagram Protocol）是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。
?牐犛捎赨DP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须明确地设置成“监听”，而其它Winsock控制则必须使用Connect方法来初始一个连接。
?牐犑褂肬DP协议，在两个Winsock控制间进行数据的发送，在连接的两端必须完成以下三步：
?牐?1.设置RemoteHost属性为其它计算机的名称；
?牐?2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值；
?牐?3.申请Bind方法。
?牐犕ü褂梅椒˙ind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口。
?牐犑褂酶眯榇褪荩紫壬柚每突Ъ扑慊腖ocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。
?牐犗旅妫颐蔷咛逖菔玖艘桓觥疤富啊庇τ茫市硐嗷ゼ浣惺凳钡慕惶浮?
#1?牐燯DP应用一
?牐牻?立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置：
?牐牨淼ィ‵orm）:Name="frmPeerA";Caption="UDP Application（1）"
?牐燱insock控制:Name="udpPeerA";Protocol="sckUDPProtocol"
?牐犖谋究?1（TextBox）:Name="txtSend"
?牐犖谋究?2（TcxtBox）:Name="txtOutput";MultiLine=True;ScrollBars=2
?牐犎缓蟠蚩氪翱冢直鹪谙嘤Φ氖录率淙胍韵麓耄?
?牐燩rivate Sub Form_Load（）
?牐燱ith udpPeerA
?牐?.RemoteHost = "197.1.1.2" ＇要连接到的计算机名
?牐?.RemotePort=1010 ＇要连接到的端口号
?牐?.LocalPort=1011 ＇该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
?牐?.Bind 1011 ＇将该Winsock控制绑定到该本地端口
?牐燛ndWith
?牐燛nd Sub
?牐燩rivate Sub txtSend_Change?煟?
?牐爑dpPeerA.SendData txtSend.Text＇发送文本
?牐燛nd Sub
?牐燩rivate Sub udpPeerA_DataArrival（ByVal bytesTotal As Long）
?牐燚im strData As String
?牐爑dpPeerA.GetData strData，vbString
?牐爐xtOutput.Text = strData
?牐燛nd Sub
#1?牐燯DP应用二
?牐犂嗨平?立UDP Server的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置：
?牐牨淼ィ‵orm）:Name="frmPeerB";Caption="UDP Application（2）"
?牐燱insock控制:Name="udpPeerB";Protocol="sckUDPProtoclool"
?牐犖谋究?1（TextBox）:Name="txtSend"
?牐犖谋究?2（TextBox）:Name="txtOutput";MultiLine=True;ScrollBars=2
?牐犎缓笫淙胍韵麓耄?
?牐燩rivate Sub Form_Load（）
?牐燱ith udpPeerB
?牐?.RemoteHost = "197.1.1.2" ＇要连接到计算机的IP地址
?牐?.RemotePort=1011 ＇要连接到的端口号
?牐?.LocalPort=1010 ＇该Winsock控制将使用的本地端口号，便于其它方与之通讯
?牐?.Bind 1010 ＇将该Winsock控制绑定到该本地端口
?牐燛nd With
?牐燛nd Sub
?牐燩rivate Sub txtSend_Change（）
?牐爑dpPeerB.SendData txtSend.Text ＇发送文本
?牐燛nd Sub
?牐燩rivate Sub udpPeerB_DataArrival（ByVal bytesTotal As Long）
?牐燚im strData As String
?牐爑dpPeerB.GetData strData，vbString
?牐爐xtOutput.Text=strData
?牐燛nd Sub
?牐犚诵懈檬道蚩礁鯲isual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可（以上例子在Visual Basic 5.0及PWIN97上通过）。