用VisualBasic6.0编写客户服务器程序

Visual Basic6.0提供Winsock控件，支持网络上两台计算机之间的通信。有了它，程序员可以很容易地编写TCP/IP客户机/服务器程序。下面是一个用Visual Basic6.0的Winsock控件编写的网络聊天程序的例子。

一、客户端程序的实现方法:

1.客户端程序设置RemoteHost属性并指定运行服务器的主机名。

2.通过设置RemotePort属性来指定服务器程序的侦听端口。

3.客户端程序使用Connect方法向服务器发送连接请求。

4.如果server 空空闲，它会接受客户的请求，在客户端程序中发生Connect事件，然后就可以用SendData方法发送数据了。

5.当客户端程序接收到数据时，它会生成DataArrival事件，在该事件中，可以通过GetData方法接收数据。

6.如果客户收到Close事件，请使用Close方法关闭连接。

下面是客户端程序的编写过程:

1.创建一个新的项目文件，在表单中添加一个名为txtRecive的文本框，并将MultiLine属性设置为True。将ScrollBars属性设置为3-Both。

2.添加一个标题为“您的姓名:”的标签，后跟一个名为ClientName的文本框。

3.添加一个标题为“你的性别:”的标签，后跟一个名为“xingbie”的组合框。在组合框中添加两个OptionButton，分别是选项1，标题为“男性”，值为true，选项2，标题为“女性”。

4.添加文本框txtSent并将MultiLine属性设置为True。

5.添加标题为“发送”的命令按钮CMD SENT和标题为“连接”的命令按钮cmdConnect。

6.添加Winsock控件，名称为sckClient。

下面是客户端程序的源代码:

Dim messIndex为整数

第一次作为布尔值变暗

Dim recNumber为整数

Dim strData作为字符串

Private Sub cmdConnect_Click()

出错时转到MyError

sckClient。连接

出口接头

我的错误:

MsgBox "连接到服务器时出错！"，vbOKOnly，“系统提示”

出口接头

末端接头

Private Sub cmdSent_Click()

字符串形式的Dim名称

如果txtSent。Text = " "那么

MsgBox“你想说什么？”，vbOKOnly，“系统提示”

出口接头

如果…就会结束

如果选项1。那么值=真

Name = clientname。Text+"先生:"

其他

Name = clientname。Text+"Miss:"