1、在 Visual Basic 中使用 WinSock 控件的简单应用vb 编程 2009-11-13 09:58:29 阅读 23 评论 0 字号：大中小 订阅Winsock 控件对用户是不可视的，可以很容易地访问 TCP 和 UDP 网络服务。其可以被 Microsoft Access, Visual Basic ,Visual C+或 Visual FoxPro 开发人员使用。要编写客户和服务器应用程序，不需要了解 TCP 或调用底层 Winsock API 的具体细节。通过设置 Winsock 控件的属性和调用该控件的方法，可以很容易地连接到远程计算机并进行双向的数据交换。属性Bytes
2、Received 属性，LocalHostName 属性，LocalIP 属性，LocalPort 属性，RemoteHost 属性（ActiveX 控件），SocketHandle 属性，State 属性（Winsock 控件）， Protocol 属性（Winsock 控件），Name 属性，Parent 属性，RemoteHost 属性（ActiveX 控件）， RemotePort 属性（ActiveX 控件），Index 属性（ActiveX 控件），Tag 属性（ActiveX 控件），Object 属性（ActiveX 控件）。方法Accept 方法，Bind 方法，Close
3、方法（Winsock 控件），Listen 方法， PeerData 方法，SendData 方法，GetData 方法（WinSock 控件），GetData 方法（ActiveX 控件）。事件Close 事件， ConnectionRequest 事件，DataArrival 事件，SendComplete 事件，SendProgress 事件，Error 事件，Connect 事件（Winsock 控件），Connect 事件。Winsock 控件对用户来说是不可见的，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Vis
4、ual C+ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。TCP 基础数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（ RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调
5、用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。UDP 基础用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不同，计算机并不建立连接。另外 UDP 应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置客户计算机的 Loca
6、lPort 属性。然后，服务器计算机只需将 RemoteHost 设置为客户计算机的 Internet 地址，并将 RemotePort 属性设置为跟客户计算机的 LocalPort 属性相同的端口，并调用 SendData 方法来着手发送信息。于是，客户计算机使用 DataArrival 事件内的 GetData 方法来获取已发送的信息。举例：WinSock 控件能够通过 UDP 协议（用户数据报协议）或 TCP 协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。可能的用途创建客户
7、端应用程序，它能在信息到达中央服务器之前把用户的信息收集起来。创建服务端应用程序，它能作为来自多个用户的数据一个集中处理点。创建“ 聊天”程序。协议的选择当我们使用 WinSock 控件时，首先要确定的是使用 TCP 还是 UDP 协议。它们之间主要的区别在于连接状态：TCP 协议控件是一个基于连接的协议，就像电话机一样，用户必须在通话之前建立连接；UDP 是一个无连接的协议，两台计算机之间的事务处理就像传纸条一样：一台计算机向另一台计算机发送消息，但是它们之间并没有一个明确的连接路径。另外，发送的单个信息量的大小取决于网络。通常，你要创建的应用程序的类别就决定了你要选择的协议。以下是几个能够
8、帮助你选择合适的协议的问题：当发送或接收数据时，该应用程序需要从服务端或客户端获得认证吗？如果要的话，那么 TCP 协议就正好需要在发送或接受数据前建立明确的连接。要发送的数据量大吗？（就像图片、声音文件之类）一旦建立了连接，TCP 协议就会保持连接并保证数据的完整性。但是，这种连接会占用的更多的处理器资源，成本也会更高一些。数据是陆续传输的，还是一次全部传完呢？比如，如果你要创建的应用程序在某些任务完成时会告知具体的计算机，那么选择 UDP 协议会更合适一些。UDP 协议也更适合于发送小量数据。协议的配置配置你的应用程序所用到的协议：在设计阶段，单击工具窗口里的协议，选择sckTCPProt
9、ocol 或 sckUDPProtocol。你也可以在代码里配置协议，就像下面这样：Winsock1.Protocol=sckTCPProtocol确定你的计算机名要连接到远程的计算机，你必须知道它的 IP 地址或别名。IP 地址是一串用句点分隔的 3 位数字。通常，计算机的别名更容易让人记住。按下面的步骤可以找到你的计算机名:在“任务栏”里单击“开始”在“设置”选项里单击“控制面板”；双击“ 网络”图标；单击“ 网络标识”在“计算机名”中显示的就是你的计算机名。一旦你找到你的计算名，它就可以作为远程主机的属性来用了。TCP 连接入门当用 TCP 控件创建应用程序的时候，必须首先明确你的程序是
10、作为服务端还是客户端。创建服务端程序就意味着你的程序能够在指定的端口进行“监听” ，而客户端则能够提出请求，服务端能够接受请求并实现连接。一旦连接建立起来，客户端和服务端就能够自由地进行通信。 创建服务端程序下面是创建一个简单服务端程序的步骤：创建一个标准 EXE 工程；把默认窗体(Default form)的名字改为 frmServer;把 form 的标题（caption ）改为 TCP Server；把 Winsock 控件拉到窗体中，并命名为 tcpServer；在窗体中添加 2 个文本框，分别命名为 txtSendData 和 txtOutput在窗体中加入下列代码；Private
11、Sub Form_Load() Set the LocalPort property to an integer. Then invoke the Listen method.tcpServer.LocalPort = 1001tcpServer.Listen frmClient.Show Show the client form.End Sub Private Sub tcpServer_ConnectionRequest _(ByVal requestID As Long) Check if the controls State is closed. If not, close the c
12、onnection before accepting the new connection.If tcpServer.State sckClosed Then tcpServer.Close Accept the request with the requestID parameter.tcpServer.Accept requestIDend ifEnd SubPrivate Sub txtSendData_Change() The TextBox control named txtSendData contains the data to be sent. Whenever the use
13、r types into the textbox, the string is sent using the SendData method.tcpServer.SendData txtSendData.TextEnd SubPrivate Sub tcpServer_DataArrival _(ByVal bytesTotal As Long) Declare a variable for the incoming data. Invoke the GetData method and set the Text property of a TextBox named txtOutput to
14、 the data.Dim strData As StringtcpServer.GetData strDatatxtOutput.Text = strDataEnd Sub上面就是创建一个简单的服务端应用程序的过程。然而，要完成整个过程，你还得创建一个客户端程序。创建 TCP 客户端程序在工程中添加一个新的窗体(form)，并命名为 frmClient；将窗体的标题(caption)改为 TCP Client；添加一个 Windsock 控件到窗体中，命名为 tcpCllient；添加 2 个文本框控件到 frmClient 窗体，分别命名为 txtSenddata 和 txtOutput；
15、添加一个按钮控件(CommandButton)到窗体，命名为 cmdConnecti；将按钮控件标题(caption)改为 Connect；在窗体中添加下面代码：注：确保将远程主机属性(RemoteHost property)改为你的计算机别名。Private Sub Form_Load() The name of the Winsock control is tcpClient. Note: to specify a remote host, you can use either the IP address (ex: “121.111.1.1“) or the computers “fri
16、endly“ name, as shown here.tcpClient.RemoteHost = “localhost“tcpClient.RemotePort = 1001End SubPrivate Sub cmdConnect_Click() Invoke the Connect method to initiate a connection.tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change()tcpClient.SendData txtSendDataTextEnd SubPrivate Sub tcpClient_Data
17、Arrival _(ByVal bytesTotal As Long)Dim strData As StringtcpClient.GetData strDatatxtOutput.Text = strDataEnd Sub以上代码就能创建一个简单的客/服应用程序。要试着让两者建立连接，可以运行工程，单击Connect。在任意一个 txtSendData 文本框中输入文本，同样的文本信息就会出现在另一个窗体的txtOutput 文本框中出现。接受多个连接请求上面介绍的服务端程序智能接受一个连接请求。但是，通过创建一组控件，并使用同样的控件来接受多个连接请求也是可能的。在这种情况下，你不需要关闭
18、连接，只要创建新的控件实例（通过配置它的索引属性），调用新的实例中的接受方法。下面的代码中，假定在一个叫 sckServer 的窗体中有一个 Winsock 控件，它的索引属性设置为 0。这样这个控件就是控件数组的一部分。在声明段中，生命一个模块级变量 intMax。在窗体的载入事件中，intMax 被设置为 0，数组中第一个控件的本地端口属性被设置为 1001。监听方法在控件中被调用，它被作为“监听控件” 。每个连接请求到来时，代码会测试看它的索引(Index)是否为 0（监听控件的值），如果是 0，监听控件中 intMax 值增 1，并用这个值创建新的控件实例。新的控件实例被用来接受连接请
19、求。Private intMax As LongPrivate Sub Form_Load()intMax = 0sckServer(0).LocalPort = 1001sckServer(0).ListenEnd SubPrivate Sub sckServer_ConnectionRequest _(Index As Integer, ByVal requestID As Long)If Index = 0 ThenintMax = intMax + 1Load sckServer(intMax)sckServer(intMax).LocalPort = 0sckServer(intMa
20、x).Accept requestIDLoad txtData(intMax)End IfEnd SubUDP 连接入门创建一个 UDP 应用程序比创建 TCP 程序更简单，因为 UDP 协议不需要一个确定的连接。在上面的TCP 应用程序中，其中一个 Winsock 控件必须明确的被设置为“监听” ，而另一个必须用连接方法发起连接。相反，UDP 协议不需要明确的连接。要在 2 个控件之间传送数据，（连接的双方）必须完成三个步骤：确定远程主机属性为对方的计算机名；确定远程主机属性为第二个控件的本地端口属性；调用约定方法指定要被使用的本地端口。（下面将详细讨论该方法）创建一个的 UDP 连接端创建
21、一个标准 EXE 工程；将默认窗体命名为 frmPeerA；在窗体中添加一个 Winsock 控件，命名为 udpPeerA；在属性(Properties)页，单击协议 (Protocol)，改为 UDPProtocol；添加 2 个文本框控件窗体中，分别命名为 txtSend 和 txtOutput；在窗体中添加下面代码：Private Sub Form_Load() The controls name is udpPeerAWith udpPeerA IMPORTANT: be sure to change the RemoteHost value to the name of your
22、computer.RemoteHost= “PeerB“ .RemotePort = 1001 Port to connect to.Bind 1002 Bind to the local port.End WithfrmPeerB.Show Show the second form.End SubPrivate Sub txtSend_Change() Send text as soon as its typed.udpPeerA.SendData txtSend.TextEnd SubPrivate Sub udpPeerA_DataArrival _(ByVal bytesTotal A
23、s Long)Dim strData As StringudpPeerA.GetData strDatatxtOutput.Text = strDataEnd Sub创建第二个 UDP 连接端添加标准窗体到工程中；将窗体名改为 frmPeerB；将窗体标题改为 Peer B；在窗体中添加一个 Windsock 控件并命名为 udpPeerB；在属性页中单击 Protocol，改为 UDPProtocol；添加 2 个文本框到窗体中，分别命名为 txtSend 和 txtOutput；在窗体中添加下面代码:Private Sub Form_Load() The controls name is
24、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 WithEnd SubPrivate Sub txtSend_Change() Send text as soon as its typed.udpPeerB.SendData txtSend.TextEnd
25、 SubPrivate Sub udpPeerB_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerB.GetData strDatatxtOutput.Text = strDataEnd Sub关于约定方法上面代码中所涉及的，在创建 UDP 应用程序时必须调用约定方法。这个约定的方法保留了控件用到的本地端口。例如，当你绑定控件到端口 1001 时，其他的应用程序都不能用该端口监听。当你希望阻止其他的应用程序使用某端口的时候，这个就很有用。这个约定方法也引起了争议。如果机器里有多个网络适配器，本地 IP 允许你指定用哪个适配器。如果你忽略了这个争议性问题，控件就会使用计算机控制面板设置中，在网络控制面板对话框里列出的第一个网络适配器。在使用 UDP 协议时，你可以自由的切换远程主机和远程端口属性，同时保留本地端口范围。但是在使用 UDP 协议时，你必须在改变远程主机和远程端口属性时关闭连接。
