VB中Winsock控制的UDP协议的使用(2) .RemotePort=1011 '要连接到的端口号 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯 .Bind 1010 '将该Winsock控制绑定到该本地端口 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,vbString txtOutput.Text=strData End Sub 要运行该实例，打开两个Visual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可(以上例子在Visual Basic 5.0及PWIN97上通过)。
