用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:"
0条评论