Winsock控件用法示例—简易聊天程序之服务端程序设计

（1）启动VB6.0，新建一个标准EXE工程，将默认窗体名称改为frmSever.

（2）选择“工程”菜单下的“工程1属性”菜单项，在打开的“工程1—工程属性”对话框中将“工程名称”栏中的内容改为“Server”，并单击“确定”按钮。

（3）右击工具箱，选择“部件”菜单项，在打开的“部件”对话框控件列表中选中“Microsoft Winsock Controls6.0”项，单击“确定”按钮将Winsock控件添加到工具箱。

（4）在窗体frmServer上绘制控件，并设置其属性。

（5）编写事件过程如下：

1、初始化

       窗体装载事件中，首先将Winsock控件scktcpServer的Protocol属性设置为sckTCPProtocol,以便使用TCP协议与客户端通信；然后设置服务器本地端口。调用Listen方法在此处倾听客户端连接要求。

2、接受请求

       如果有客户端发来连接请求，则服务器会自动触发ConnectionRequest事件。在该事件过程中，调用Accept方法接受客户端发来的请求。

3、接收数据

      连接成功后，如果客户端发来数据，则服务器会自动触发DataArrival事件。可在该事件过程中，调用GetData方法接受客户端发来的数据。

4、发送数据

       连接成功后，如果服务器有数据要向客户端发送，则服务器可调用SendData方法向客户端发送数据。

5、对方关闭

      如果客户端用户关闭了窗口，则服务器端会自动触发Close事件，以便自动执行该事件过程中的代码。

（6）、将过程保存并生成可执行文件。