Winsock通信编程sic.docx

专业： 电子信息工程 姓名： 学号： 309 日期： 2012年 地点： 应电楼305 实验报告告课程名称称：计算算机网络络结构指指导老师师：吴建建德成绩绩：实验名称称： Wiinsoock通通信编程程实验类类型：上上机实验验同组学学生姓名名：一、实验验目的和和要求（必必填）二二、实验验内容和和原理（必必填）三、主要要仪器设设备（必必填）四四、操作作方法和和实验步步骤五、实验验数据记记录和处处理六、实实验结果果与分析析（必填填）七、讨论论、心得得一、实验验目的和和要求1、 学习Viisuaal BBasiic 的的Winnsocck控件件的使用用方法；2、 了解TCCP/UUDP的的通信过过程；3、 进一步理理解通信信分层控控制的优优点；二、实验验内容和和原理1、 将两台PPC机通通过以太太网连接接到同一一局域网网，用测测试软件件测试以以太网通通信是否否正常。2、 编写一个个简单通通信程序序，在两两台PCC上同时时运行，要要求在一一台PCC上输入入字符，按按确认键键后能在在另一台台PC上上显示。3、 编写两个个通信程程序（服服务器程程序和客客户机程程序），要要求：（1） 客户机与与服务器器通过TTCP连连接后，在在其中一一台主机机上输入入字符，按按回车键键后将所所有字符符发送到到另一台台主机并并显示；（2） 实验2的的文件传传输方法法改为通通过UDDP传输输，其余余要求不不变。三、主要要实验设设备电脑一台台，串口口线一根根四、实验验数据记记录和处处理实验程序序代码如如下：1. TCP:frmcclieentPrivvatee Suub FFormm_Looad() ''Winnsocck 控控件的名名字为 tcppCliientt。 ''注意：要指定定远程主主机，可可以使用用 '' IPP 地址址（例如如："1121.1111.1.1"），也也可以使使用 ''计算机机的“好好听的名名字”如如下所示示。 ttcpCClieent.RemmoteeHosst = "1127.0.00.1"" ttcpCClieent.RemmoteePorrt = 10002End SubbPrivvatee Suub 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.GettDatta sstrDDataa ttxtOOutpput.Texxt = sttrDaataEnd SubbPrivvatee Suub ttxtSSendd_Chhangge()tcpCClieent.SenndDaata txttSennd.TTexttEnd SubbfrmsservverPrivvatee Suub FFormm_Looad()'将 LLocaalPoort 属性设设置为一一个整数数。'然后调调用 LListten 方法。tcpSServver.LoccalPPortt = 10002tcpSServver.LisstennfrmCClieent.Shoow ''显示客客户端的的窗体。End SubbPrivvatee Suub ttcpSServver_ConnnecctioonReequeest(ByVVal reqquesstIDD Ass Loong)'检查控控件的 Staate 属性是是否为关关闭的。'如果不不是，'在接受受新的连连接之前前先关闭闭此连接接。If ttcpSServver.Staate <> sckkCloosedd Thhen tcppSerrverr.Cllosee'接受具具有 rrequuesttID 参数的的'连接。tcpSServver.Accceptt reequeestIIDEnd SubbPrivvatee Suub ttxtSSenddDatta_CChannge()'名为 txttSenndDaata 的 TeextBBox 控件中中'包含了了要发送送的数据据。当用用户往文文本框中中'键入数数据时，使使用 SSenddDatta 方方法'发送输输入的字字符串。tcpSServver.SenndDaata txttSenndDaata.TexxtEnd SubbPrivvatee Suub ttcpSServver_DattaArrrivval _(ByVVal byttesTTotaal AAs LLongg)'为进入入的数据据声明一一个变量量。'调用 GettDatta 方方法，并并将数据据赋予名名为 ttxtOOutpput'的 TTexttBoxx 的 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 110022 '绑绑定到本本地的端端口。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 sttrDaatatxtOOutpput.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()'在键入入后立即即发送文文本。udpPPeerrB.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语语法有了了进一步步的熟悉悉，了解解了指令令运作的的方式和和程序编编写的方方式