VB中使用WinSock控件编写网络程序

来源：BLOG 作者：出处：巧巧读书 2007-09-28 进入讨论组

UDP连接入门

　　创建一个UDP应用程序比创建TCP程序更简单，因为UDP协议不需要一个确定的连接。在上面的TCP应用程序中，其中一个Winsock控件必须明确的被设置为“监听”，而另一个必须用连接方法发起连接。

　　相反，UDP协议不需要明确的连接。要在2个控件之间传送数据，（连接的双方）必须完成三个步骤：

　　确定远程主机属性为对方的计算机名；

　　确定远程主机属性为第二个控件的本地端口属性；

　　调用约定方法指定要被使用的本地端口。（下面将详细讨论该方法）

　　创建一个的UDP连接端

　　创建一个标准EXE工程；

　　将默认窗体命名为frmPeerA；

　　在窗体中添加一个Winsock控件，命名为udpPeerA；

　　在属性(Properties)页，单击协议(Protocol)，改为UDPProtocol；

　　添加2个文本框控件窗体中，分别命名为txtSend和txtOutput；

　　在窗体中添加下面代码：

Private Sub Form_Load()
' The control's name is udpPeerA
With udpPeerA
' IMPORTANT: be sure to change the RemoteHost
' value to the name of your computer.
.RemoteHost= "PeerB"
.RemotePort = 1001 ' Port to connect to.
.Bind 1002 ' Bind to the local port.
End With
frmPeerB.Show ' Show the second form.
End Sub

Private Sub txtSend_Change()
' Send text as soon as it's typed.
udpPeerA.SendData txtSend.Text
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub

　　创建第二个UDP连接端

　　添加标准窗体到工程中；

　　将窗体名改为frmPeerB；

　　将窗体标题改为Peer B；

　　在窗体中添加一个Windsock控件并命名为udpPeerB；

　　在属性页中单击Protocol，改为UDPProtocol；

　　添加2个文本框到窗体中，分别命名为txtSend和txtOutput；

　　在窗体中添加下面代码:

Private Sub Form_Load()
' The control's name is udpPeerB.
With udpPeerB
' IMPORTANT: be sure to change the RemoteHost
' value to the name of your computer.
.RemoteHost= "PeerA"
.RemotePort = 1002 ' Port to connect to.
.Bind 1001 ' Bind to the local port.
End With
End Sub

Private Sub txtSend_Change()
' Send text as soon as it's typed.
udpPeerB.SendData txtSend.Text
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub

　　关于约定方法

　　上面代码中所涉及的，在创建UDP应用程序时必须调用约定方法。这个约定的方法保留了控件用到的本地端口。例如，当你绑定控件到端口1001时，其他的应用程序都不能用该端口监听。当你希望阻止其他的应用程序使用某端口的时候，这个就很有用。
这个约定方法也引起了争议。如果机器里有多个网络适配器，本地IP允许你指定用哪个适配器。如果你忽略了这个争议性问题，控件就会使用计算机控制面板设置中，在网络控制面板对话框里列出的第一个网络适配器。

　　在使用UDP协议时，你可以自由的切换远程主机和远程端口属性，同时保留本地端口范围。但是在使用UDP协议时，你必须在改变远程主机和远程端口属性时关闭连接。URL:http://www.qqread.com/vb/i230127002.html