没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-用Visual Basic6.0编写客户服务器程序...
需积分: 9 3 下载量 105 浏览量
2009-10-10
23:28:10
上传
评论
收藏 8KB TXT 举报
温馨提示
试读
15页
用Visual Basic6.0编写客户服务器程序
资源推荐
资源详情
资源评论
用Visual Basic6.0编写客户服务器程序
冯 勇
Visual Basic6.0提供了Winsock控件,支持网络上两台计算机之间的通信。利用它,编程人员可以毫不费力地编写出TCP/IP客户/服务器程序。以下是用Visual Basic6.0的Winsock控件编写的网络聊天程序的实例。
一.客户程序的实现方法:
1.客户程序设置RemoteHost(远程主机)属性,指定运行服务器的主机名。
2.通过设置RemotePort属性,指定服务器程序的侦听端口。
3.客户程序使用Connect方法向服务器发送连接请求。
4.服务器若空闲,则接受客户的请求,客户程序发生Connect事件,然后可以用SendData方法发送数据。
5.客户程序收到数据时,产生DataArrival事件,在该事件中可以用GetData方法接收数据。
6.如果客户收到Close事件,用Close方法关闭连接。
以下是客户程序的编写过程:
1. 新建一个工程文件,在窗体中加上一个文本框Name为txtRecive,设置 MultiLine属性为True。设置ScrollBars属性为3-Both。
2. 加一标签,Caption为“您的大名:”,后面加一文本框Name为ClientName。
3. 加一标签,Caption为“您的性别:”,后面接一组合框Name为“xingbie“。组合框中加两个OptionButton,分别为Option1,Caption为“男”,Value为True,Option2,Caption为“女”。
4. 加文本框txtSent,设置MultiLine属性为True。
冯 勇
Visual Basic6.0提供了Winsock控件,支持网络上两台计算机之间的通信。利用它,编程人员可以毫不费力地编写出TCP/IP客户/服务器程序。以下是用Visual Basic6.0的Winsock控件编写的网络聊天程序的实例。
一.客户程序的实现方法:
1.客户程序设置RemoteHost(远程主机)属性,指定运行服务器的主机名。
2.通过设置RemotePort属性,指定服务器程序的侦听端口。
3.客户程序使用Connect方法向服务器发送连接请求。
4.服务器若空闲,则接受客户的请求,客户程序发生Connect事件,然后可以用SendData方法发送数据。
5.客户程序收到数据时,产生DataArrival事件,在该事件中可以用GetData方法接收数据。
6.如果客户收到Close事件,用Close方法关闭连接。
以下是客户程序的编写过程:
1. 新建一个工程文件,在窗体中加上一个文本框Name为txtRecive,设置 MultiLine属性为True。设置ScrollBars属性为3-Both。
2. 加一标签,Caption为“您的大名:”,后面加一文本框Name为ClientName。
3. 加一标签,Caption为“您的性别:”,后面接一组合框Name为“xingbie“。组合框中加两个OptionButton,分别为Option1,Caption为“男”,Value为True,Option2,Caption为“女”。
4. 加文本框txtSent,设置MultiLine属性为True。
5. 加命令按钮cmdSent,Caption为“发送”, 再加一命令按钮cmdConnect,Caption为“连接”。
6. 加Winsock控件,Name为sckClient。
下面是客户程序的源代码:
Dim messIndex As Integer
Dim firsttime As Boolean
Dim recNumber As Integer
Dim strData As String
Private Sub cmdConnect_Click()
On Error GoTo MyError
sckClient.Connect
Exit Sub
MyError:
MsgBox "连接服务器出错!", vbOKOnly, "系统提示"
Exit Sub
End Sub
6. 加Winsock控件,Name为sckClient。
下面是客户程序的源代码:
Dim messIndex As Integer
Dim firsttime As Boolean
Dim recNumber As Integer
Dim strData As String
Private Sub cmdConnect_Click()
On Error GoTo MyError
sckClient.Connect
Exit Sub
MyError:
MsgBox "连接服务器出错!", vbOKOnly, "系统提示"
Exit Sub
End Sub
剩余14页未读,继续阅读
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功