WinSocket编程实验报告.docVIP

实验六:WinSock编程实验报告

1实验目的和要求

1）?学习网络中进程之间通信的原理和实现方法；

2）?掌握在VB或VC++等集成开发环境中编写网络程序的方法；

3）编写一个简单的聊天程序:最低要求实现两人一组的两台计算机之间的收发文本及其显示；

2实验设备及分组

1）?Windows2000以上操作系统；

2）VB和VisualC++6.0语言环境；

3）每人一台PC机。

3实验内容和步骤

3.1设计服务器界面

打开vb程序,新建一个工程,取名为server。在窗体中添加控件。将Winsock控件放入到窗体里,名称属性改为Winsockserver。在窗体里建立两个按钮,command1的caption属性为发送,command2的caption属性为退出。建立两个richtextbox,richtextbox1的名称属性改为textget,ScrollBars属性改为3-rtfBoth,Locked属性改为True,richtextbox2的名称属性改为textsend,ScrollBars属性改为3-rtfBoth。然后建立两个label,caption属性改为接受窗口和发送窗口。如图3-1所示。

图3-1服务器界面

3.2设计客户端界面

先建立一个工程,取名为client。在窗体中加入控件:将Winsock控件添加到窗体里,名称属性改为winsockclient。建立两个richtextbox,richtextbox1的名称属性改为textget,ScrollBars属性改为3-rtfBoth,Locked属性改为True,richtextbox2的名称属性改为textsend,ScrollBars属性改为3-rtfBoth。在窗体里建立三个按钮,command1的caption属性为发送,command2的caption属性为退出,command3的caption属性为连接。建立一个text。再建立三个Lable,caption属性分别为主机名,接收和发送,如图3-2所示。

图3-2客户端界面

3.3编写程序及其说明

3.3.1服务器程序

PrivateSubCommand1_Click()’发送选项

DimaAsString

a=服务器:

Winsockserver.SendData(Time)vbCrLftextsend.Text

textget.Text=textget.Texta(Time)vbCrLftextsend.TextvbCrLf‘可自动换行,并有时间显示

textsend.Text=‘发送完毕后,文本框自动清空

EndSub

PrivateSubCommand2_Click()’退出后结束运行

End

EndSub

PrivateSubForm_Load()‘窗体加载时,发送文本框与接收文本框不可见

textsend.Visible=False‘发送信息文本框不可见

textget.Visible=False‘接收信息文本框可见

Winsockserver.LocalPort=1001‘服务器端口号设置

Winsockserver.Listen‘服务器侦听

EndSub

PrivateSubWinsockserver_Close()

Winsockserver.Close‘关闭服务器

EndSub

PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)‘连接后,WinSock控件工作

textsend.Visible=True

textsend.Text=‘清空文本框信息

textget.Visible=True

textget.Text=

IfWinsockserver.StatesckClosedThenWinsockserver.Close‘如果socket没有关闭,则关闭socket

Winsockserver.AcceptrequestID‘服务器接受请求,接受以后双方才能发送数据

MsgBox(连接SERVER成功！)

EndSub

PrivateSubWinsockserver_DataArrival(ByValbytesTotalAsLong)‘信息接收

DimtmpstrAsString

DimaAsString

a=客户端:

Winsockserver.GetDatatm