winsock编程实验报告

《winsock编程实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划winsock编程实验报告　　实验六：WinSock编程实验报告　　1实验目的和要求　　1）学习网络中进程之间通信的原理和实现方法；　　2）掌握在VB或VC++等集成开发环境中编写网络程序的方法；　　3）编写一个简单的聊天程序：最低要求实现两人一组的两台计算机之间的收发文本及其显示；　　2实验设备及分组　　1）WindowsXX以上操作系统；　　2）VB和VisualC++语言环境；　　3）每人一台PC机。　　3实验内容和步骤　　设计服务器界面目的-通过该培训员工可对保安行业有初

2、步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　打开vb程序，新建一个工程，取名为server。在窗体中添加控件。将Winsock控件放入到窗体里，名称属性改为Winsockserver。在窗体里建立两个按钮，command1的caption属性为发送，command2的caption属性为退出。建立两个richtextbox，richtextbox1的名称属性改为textget，ScrollBars属性改为3-rtfBoth，Loc

3、ked属性改为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，r

4、ichtextbox2的名称属性改为textsend，ScrollBars属性改为3-rtfBoth。在窗体里　　建立三个按钮，command1的caption属性为发送，command2的caption属性为退出，command3的caption属性为连接。建立一个text。再建立三个Lable，caption属性分别为主机名，接收和发送，如图3-2所示。　　图3-2客户端界面　　编写程序及其说明　　服务器程序　　PrivateSubCommand1_Click()’发送选项　　DimaAsString　　a="服务器："　　"("&Time&")"&vbCrLf&目的-通过该培训员工可

5、对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划　　=&a&"("&Time&")"&vbCrLf&&vbCrLf‘可自动换行，并有时间显示　　=""‘发送完毕后，文本框自动清空　　EndSub　　PrivateSubCommand2_Click()’退出后结束运行　　End　　EndSub　　PrivateSubForm_Load()‘窗体加载时，发送文本框与接收文本框不可见=False‘发送信息文本框不可见　　=Fals

6、e‘接收信息文本框可见　　=1001‘服务器端口号设置　　‘服务器侦听　　EndSub　　PrivateSubWinsockserver_Close()　　‘关闭服务器　　EndSub　　PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)‘连接后，WinSock控件工作　　=True　　=""‘清空文本框信息　　=True目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定

7、安保从业人员的业务技能及个人素质的培训计划　　=""　　IfsckClosedThen‘如果socket没有关闭，则关闭socket　　requestID‘服务器接受请求，接受以后双方才能发送数据　　MsgBox("连接SERVER成功！")　　EndSub　　PrivateSubWinsockserver_DataArrival(ByValbytesTotalAsLong)‘信息接收DimtmpstrAsString