winsock编程实验报告.docxVIP

winsock编程实验报告 　　实验六：WinSock编程实验报告　　1实验目的和要求　　1）学习网络中进程之间通信的原理和实现方法；　　2）掌握在VB或VC++等集成开发环境中编写网络程序的方法；　　3）编写一个简单的聊天程序：最低要求实现两人一组的两台计算机之间的收发文本及其显示；　　2实验设备及分组　　1）WindowsXX以上操作系统；　　2）VB和VisualC++语言环境；　　3）每人一台PC机。　　3实验内容和步骤　　设计服务器界面　　打开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服务器界面　　设计客户端界面　　先建立一个工程，取名为client。在窗体中加入控件:将Winsock控件添加到窗体里，名称属性改为winsockclien(转载于:写论文网:winsock编程实验报告)t。建立两个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客户端界面　　编写程序及其说明　　服务器程序　　PrivateSubCommand1_Click()’发送选项　　DimaAsString　　a=服务器：　　(Time)vbCrLf　　=a(Time)vbCrLfvbCrLf‘可自动换行，并有时间显示　　=‘发送完毕后，文本框自动清空　　EndSub　　PrivateSubCommand2_Click()’退出后结束运行　　End　　EndSub　　PrivateSubForm_Load()‘窗体加载时，发送文本框与接收文本框不可见=False‘发送信息文本框不可见　　=False‘接收信息文本框可见　　=1001‘服务器端口号设置　　‘服务器侦听　　EndSub　　PrivateSubWinsockserver_Close()　　‘关闭服务器　　EndSub　　PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)‘连接后，WinSock控件工作　　=True　　=‘清空文本框信息　　=True　　=　　IfsckClosedThen‘如果socket没有关闭，则关闭socket　　requestID‘服务器接受请求，接受以后双方才能发送数据　　MsgBox(连接SERVER成功！)　　EndSub　　PrivateSubWinsockserver_DataArrival(ByValbytesTotalAsLong)‘信息接收DimtmpstrAsString　　DimaAsString　　a=客户端：　　tmpstr　　=atmpstrvbCrLf　　EndSub　　客户端程序　　PrivateSubCommand1_Click()　　EndSub　　PrivateSubCommand2_Click()’连接，且Shape控件显示连接状态　　DimaaAsString　　aa=客户端：　　(Time)vbCrLf　　=aa(Time)vbCrLfvbCrLf　　=　　EndSub　　PrivateSubCommand3_Click()　　End　　EndSub　　PrivateSubForm_Load()‘程序加载，文本框不可见　　=这里输入要连接的服务器的IP‘提示输入ip地址　　=False　　=False　　=1001’客户端端口号设置为1001　　=　　EndSub　　P