Winsock通信编程sic.docx

《Winsock通信编程sic.docx》由会员分享，可在线阅读，更多相关《Winsock通信编程sic.docx（9页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、专业： 电子信息工程 姓名： 学号： 309 日期： 2012年 地点： 应电楼305 实验报告告课程名称称：计算算机网络络结构指指导老师师：吴建建德成绩绩：实验名称称： Wiinsoock通通信编程程实验类类型：上上机实验验同组学学生姓名名：一、实验验目的和和要求（必必填）二二、实验验内容和和原理（必必填）三、主要要仪器设设备（必必填）四四、操作作方法和和实验步步骤五、实验验数据记记录和处处理六、实实验结果果与分析析（必填填）七、讨论论、心得得一、实验验目的和和要求1、 学习Viisuaal BBasiic 的的Winnsocck控件件的使用用方法；2、 了解TCCP/UUDP的的通信过过程

2、；3、 进一步理理解通信信分层控控制的优优点；二、实验验内容和和原理1、 将两台PPC机通通过以太太网连接接到同一一局域网网，用测测试软件件测试以以太网通通信是否否正常。2、 编写一个个简单通通信程序序，在两两台PCC上同时时运行，要要求在一一台PCC上输入入字符，按按确认键键后能在在另一台台PC上上显示。3、 编写两个个通信程程序（服服务器程程序和客客户机程程序），要要求：（1） 客户机与与服务器器通过TTCP连连接后，在在其中一一台主机机上输入入字符，按按回车键键后将所所有字符符发送到到另一台台主机并并显示；（2） 实验2的的文件传传输方法法改为通通过UDDP传输输，其余余要求不不变。三、

3、主要要实验设设备电脑一台台，串口口线一根根四、实验验数据记记录和处处理实验程序序代码如如下：1. TCP:frmcclieentPrivvatee Suub FFormm_Looad() Winnsocck 控控件的名名字为 tcppCliientt。 注意：要指定定远程主主机，可可以使用用 IPP 地址址（例如如：1121.1111.1.1），也也可以使使用 计算机机的“好好听的名名字”如如下所示示。 ttcpCClieent.RemmoteeHosst = 1127.0.00.1 ttcpCClieent.RemmoteePorrt = 10002End SubbPrivvatee Suu

4、b ccmdCConnnectt_Cllickk() 调用 CConnnectt 方法法，初始始化连接接。 ttcpCClieent.ConnnecctEnd SubbPrivvatee Suub ttxtSSenddDatta_CChannge() ttcpCClieent.SenndDaata txttSennd.TTexttEnd SubbPrivvatee Suub ttcpCClieent_DattaArrrivval _(ByVVal byttesTTotaal AAs LLongg) DDim strrDatta AAs SStriing ttcpCClieent.GettDat

5、ta sstrDDataa ttxtOOutpput.Texxt = sttrDaataEnd SubbPrivvatee Suub ttxtSSendd_Chhangge()tcpCClieent.SenndDaata txttSennd.TTexttEnd SubbfrmsservverPrivvatee Suub FFormm_Looad()将 LLocaalPoort 属性设设置为一一个整数数。然后调调用 LListten 方法。tcpSServver.LoccalPPortt = 10002tcpSServver.LisstennfrmCClieent.Shoow 显示客客户端的的窗

6、体。End SubbPrivvatee Suub ttcpSServver_ConnnecctioonReequeest(ByVVal reqquesstIDD Ass Loong)检查控控件的 Staate 属性是是否为关关闭的。如果不不是，在接受受新的连连接之前前先关闭闭此连接接。If ttcpSServver.Staate sckkCloosedd Thhen tcppSerrverr.Cllosee接受具具有 rrequuesttID 参数的的连接。tcpSServver.Accceptt reequeestIIDEnd SubbPrivvatee Suub ttxtSSenddDat

7、ta_CChannge()名为 txttSenndDaata 的 TeextBBox 控件中中包含了了要发送送的数据据。当用用户往文文本框中中键入数数据时，使使用 SSenddDatta 方方法发送输输入的字字符串。tcpSServver.SenndDaata txttSenndDaata.TexxtEnd SubbPrivvatee Suub ttcpSServver_DattaArrrivval _(ByVVal byttesTTotaal AAs LLongg)为进入入的数据据声明一一个变量量。调用 GettDatta 方方法，并并将数据据赋予名名为 ttxtOOutpput的 TTex

8、ttBoxx 的 Teext 属性。Dim strrDatta AAs SStriingtcpSServver.GettDatta sstrDDataatxtOOutpput.Texxt = sttrDaataEnd Subb2. UDPpeerrAPrivvatee Suub FFormm_Looad()控件的的名字为为 uddpPeeerAAWithh uddpPeeerAA重点:必须将将 ReemotteHoost 的值修改为为计算机机的名字字。.RemmoteeHosst = 1127.0.00.1.RemmoteePorrt = 10001 连接的的端口号号。.Binnd 11002

9、2 绑绑定到本本地的端端口。End WitthfrmPPeerrB.SShoww 显示第第二个窗窗体。End SubbPrivvatee Suub ttxtSSendd_Chhangge()在键入入文本时时，立即即将其发发送出去去。udpPPeerrA.SSenddDatta ttxtSSendd.TeextEnd SubbPrivvatee Suub uudpPPeerrA_DDataaArrrivaal _(ByVVal byttesTTotaal AAs LLongg)Dim strrDatta AAs SStriingudpPPeerrA.GGetDDataa sttrDaatatxt

10、OOutpput.Texxt = sttrDaataEnd SubbPEERRBPrivvatee Suub FFormm_Looad()控件的的名字为为 uddpPeeerBB。Withh uddpPeeerBB重点:必须将将 ReemotteHoost 的值改改为计算机机的名字字。.RemmoteeHosst = 1127.0.00.1.RemmoteePorrt = 10002 要连连接的端端口。.Binnd 110011 绑绑定到本本地的端端口上。End WitthEnd SubbPrivvatee Suub ttxtSSendd_Chhangge()在键入入后立即即发送文文本。udp

11、PPeerrB.SSenddDatta ttxtSSendd.TeextEnd SubbPrivvatee Suub uudpPPeerrB_DDataaArrrivaal _(ByVVal byttesTTotaal AAs LLongg)Dim strrDatta AAs SStriingudpPPeerrB.GGetDDataa sttrDaatatxtOOutpput.Texxt = sttrDaataEnd Subb五、实验验结果与与分析设置图片片如下：TCPPUDP:六、心得得体会1. 使用VBB进行编编程，更更进一步步了解了了在VBB内进行行工程项项目制作作的一般般流程。2. 了解了WWinssockk，并通通过帮助助文件实实现功能能。3. 刚开始时时只能单单向收发发，经查查证是另另一端ssendd程序没没写，补补充后成成功。4. 对VB语语法有了了进一步步的熟悉悉，了解解了指令令运作的的方式和和程序编编写的方方式