(Winsock控件.docVIP

第一节：Winsock控件的介绍 Winsock控件的作用简单说就是可以用于两台或多台机器间通信，这里不多说这个控件的作用了，因为在以后的介绍中我们会了解到这个控件的强大功能的，如可以用来做聊天软件等…… 废话不多说，来看看他有些什么重要的属性、方法和事件吧！ 在VB6.0中的工具箱里默认情况下是没有这个控件的，添加方法如下：在工具箱上右击，选择[部件]，然后在部件对话框中选择Microsoft Winsock Control 6.0，后确定即可。如果没有这个复选框的话，请点击[浏览]按钮后在打开的[添加ActiveX控件]对话框选择MSWINSCK.ocx后选择打开，再点确定即可。Winsock控件在工具箱中图标为。 Winsck的主要属性： 属性名 说明 BytesReceived 返回接收的数据，可以用GetData方法来获取它 LocalHostName 返回本机名 LocalIP 返回本机IP LocalPort 返回或设置本机所用的端口，如果为0则为随机产生 Protocol 返回通信所用的协议 RemoteHostName 返回通信对方的计算机名 RemoteHostIP 返回通信对方的IP State 返回Winscok的当前状态，取值如下 sckClosed（常量为0）：关闭状态 sckOpen（常量为1）：打开状态 sckListening（常量为2）：侦听状态 sckConnectionPending（常量为3）：连接状态 sckResolvingHost（常量为4）：解析主机中 sckHostResolved（常量为5）：已解析主机 sckConnecting（常量为6）：正在连接 sckConnected（常量为7）：已经连接 sckClosing（常量为8）：客户端正在关闭 sckError（常量为9）：连接发生错误 Winsock的主要方法： 方法名 作用 listen 使服务器程序处于侦听状态，等待客户端的连接请求 connect 用于客户端向远程发送一个连接请求，语法：Winsock.connect [IP,Port] Accept 用于服务器接收一个远程客户端的连接请求，语法：Winsock.Accept requestID sendData 用于向远程发送数据，语法：Winsock.sendData 数据 getData 用于接收远程发送来的数据，语法：Winsock.getData 变量 Close 关闭通信 Winsock的主要事件： 事件名 说明 Connect 当服务器接收客户端请求时，服务端发生的事件 DataArrival 有数据到达时发生的事件，可以在这个事件中来getData发送来的数据 ConnectionRequest 客户端用Connect方法时服务器发生的事件，可以在这个事件中来Accept一个连接请求 SendProgress 发送数据中发生的事件，可以在这个事件中来标示当前已经发送多少数据 SendComplete 发送数据完成发生的事件 Error 通信发生错误时发生的事件 Close 关闭通信时发生的事件 这节我们详细介绍了Winsock控件的属性、方法和事件等，只要拥有这些，我们就可以编很多功能强大的软件了。在接下来的几课中我们将以实例来说明Winsock的应用。 第二节：Winsock聊天器实例 上一节我们介绍了Winsock控件，这节我们将以一个聊天器的实例来说说如何应运Winsock控件进行计算机之间的通信。 我也做了一个聊天器，程序点击这里下载。 这节课我们做了用于通信的服务端和客户端，在制作他们之前，先看看服务端和客户端是如何设计的：（注：要复制本页代码时要注意去掉不正确的字符如?号） 服务端的设计： 1、设置好localPort作为侦听端口 2、使用listen使服务端处在侦听状态 3、客户端发出连接请求后触发ConnectionRequest事件 4、在ConnectionRequest中用Accept方法来接收客户端的连接请求 5、收发数据 客户端的设计： 1、设置RemoteHost，即你要连接IP 2、设置好RemotePort，即通信的端口号，要与服务端的一致 3、使用Connect方法向服务端发出连接请求 4、如果服务端同意连接请求则触发Connect事件 5、收发数据 服务端的制作： 界面如下： 服务器设计第一、二步的实现（窗体的Load事件）： Private Sub Form_Load()??????? wskServer.LocalPort = 1024??? 1、设置好localPort作为侦听端口??????? wskServer.Liste