vb winsock控件的使用与介绍

《vb winsock控件的使用与介绍》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一节：Winsock控件的介绍Winsock控件的作用简单说就是可以用于两台或多台机器间通信，这里不多说这个控件的作用了，因为在以后的介绍中我们会了解到这个控件的强大功能的，如可以用来做聊天软件等……废话不多说，来看看他有些什么重要的属性、方法和事件吧！在VB6.0中的工具箱里默认情况下是没有这个控件的，添加方法如下：在工具箱上右击，选择[部件]，然后在部件对话框中选择"MicrosoftWinsockControl6.0"，后确定即可。如果没有这个复选框的话，请点击[浏览]按钮后在打开的[添加ActiveX控件]对话框选择MSWINSCK.ocx后选择打开，

2、再点确定即可。Winsock控件在工具箱中图标为。Winsck的主要属性：属性名说明BytesReceived返回接收的数据，可以用GetData方法来获取它LocalHostName返回本机名LocalIP返回本机IPLocalPort返回或设置本机所用的端口，如果为0则为随机产生Protocol返回通信所用的协议RemoteHostName返回通信对方的计算机名RemoteHostIP返回通信对方的IPState返回Winscok的当前状态，取值如下·sckClosed（常量为0）：关闭状态·sckOpen（常量为1）：打开状态·sckListening（常

3、量为2）：侦听状态·sckConnectionPending（常量为3）：连接状态·sckResolvingHost（常量为4）：解析主机中·sckHostResolved（常量为5）：已解析主机·sckConnecting（常量为6）：正在连接·sckConnected（常量为7）：已经连接·sckClosing（常量为8）：客户端正在关闭·sckError（常量为9）：连接发生错误Winsock的主要方法：方法名作用listen使服务器程序处于侦听状态，等待客户端的连接请求connect用于客户端向远程发送一个连接请求，语法：Winsock.connect[

4、IP,Port]Accept用于服务器接收一个远程客户端的连接请求，语法：Winsock.AcceptrequestIDsendData用于向远程发送数据，语法：Winsock.sendData数据getData用于接收远程发送来的数据，语法：Winsock.getData变量Close关闭通信Winsock的主要事件：事件名说明Connect当服务器接收客户端请求时，服务端发生的事件DataArrival有数据到达时发生的事件，可以在这个事件中来getData发送来的数据ConnectionRequest客户端用Connect方法时服务器发生的事件，可以在这个

5、事件中来Accept一个连接请求SendProgress发送数据中发生的事件，可以在这个事件中来标示当前已经发送多少数据SendComplete发送数据完成发生的事件Error通信发生错误时发生的事件Close关闭通信时发生的事件这节我们详细介绍了Winsock控件的属性、方法和事件等，只要拥有这些，我们就可以编很多功能强大的软件了。在接下来的几课中我们将以实例来说明Winsock的应用。第二节：Winsock聊天器实例上一节我们介绍了Winsock控件，这节我们将以一个聊天器的实例来说说如何应运Winsock控件进行计算机之间的通信。我也做了一个聊天器，程序点

6、击这里下载。这节课我们做了用于通信的服务端和客户端，在制作他们之前，先看看服务端和客户端是如何设计的：（注：要复制本页代码时要注意去掉不正确的字符如?号）服务端的设计：1、设置好localPort作为侦听端口2、使用listen使服务端处在侦听状态3、客户端发出连接请求后触发ConnectionRequest事件4、在ConnectionRequest中用Accept方法来接收客户端的连接请求5、收发数据客户端的设计：1、设置RemoteHost，即你要连接IP2、设置好RemotePort，即通信的端口号，要与服务端的一致3、使用Connect方法向服务端发出

7、连接请求4、如果服务端同意连接请求则触发Connect事件5、收发数据服务端的制作：界面如下：服务器设计第一、二步的实现（窗体的Load事件）：PrivateSubForm_Load()       wskServer.LocalPort=1024   '1、设置好localPort作为侦听端口       wskServer.Listen     '2、使用listen使服务端处在侦听状态EndSub服务器设计第三、四步的实现（Winsock的Connect）：PrivateSubwskServer_ConnectionRequest(ByValrequest

8、IDAsLong)