Winsock通信编程.docx

编号：时间：2021年x月x日书山有路勤为径学海无涯苦作舟页码：专业：电子信息工程姓名：学号：309日期：2012年地点：应电楼305实验报告课程名称：计算机网络结构指导老师：吴建德成绩：实验名称：Winsock通信编程实验类型：上机实验同组学生姓名：一、实验目的和要求（必填）二、实验内容和原理（必填）三、主要仪器设备（必填）四、操作方法和实验步骤五、实验数据记录和处理六、实验结果与分析（必填）七、讨论、心得一、实验目的和要求学习VisualBasic的Winsock控件的使用方法；了解TCP/UDP的通信过程；进一步理解通信分层控制的优点；二、实验内容和原理将两台PC机通过以太网连接到同一局域网用测试软件测试以太网通信是否正常。编写一个简单通信程序在两台PC上同时运行要求在一台PC上输入字符按确认键后能在另一台PC上显示。编写两个通信程序（服务器程序和客户机程序）要求：客户机与服务器通过TCP连接后在其中一台主机上输入字符按回车键后将所有字符发送到另一台主机并显示；实验2的文件传输方法改为通过UDP传输其余要求不变。三、主要实验设备电脑一台串口线一根四、实验数据记录和处理实验程序代码如下：TCP:frmclientPrivateSubForm_Load()'Winsock控件的名字为tcpClient。'注意：要指定远程主机可以使用'IP地址（例如："121.111.1.1"）也可以使用'计算机的“好听的名字”如下所示。tcpClient.RemoteHost="127.0.0.1"tcpClient.RemotePort=1002EndSubPrivateSubcmdConnect_Click()'调用Connect方法初始化连接。tcpClient.ConnectEndSubPrivateSubtxtSendData_Change()tcpClient.SendDatatxtSend.TextEndSubPrivateSubtcpClient_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringtcpClient.GetDatastrDatatxtOutput.Text=strDataEndSubPrivateSubtxtSend_Change()tcpClient.SendDatatxtSend.TextEndSubfrmserverPrivateSubForm_Load()'将LocalPort属性设置为一个整数。'然后调用Listen方法。tcpServer.LocalPort=1002tcpServer.ListenfrmClient.Show'显示客户端的窗体。EndSubPrivateSubtcpServer_ConnectionRequest(ByValrequestIDAsLong)'检查控件的State属性是否为关闭的。'如果不是'在接受新的连接之前先关闭此连接。IftcpServer.State<>sckClosedThentcpServer.Close'接受具有requestID参数的'连接。tcpServer.AcceptrequestIDEndSubPrivateSubtxtSendData_Change()'名为txtSendData的TextBox控件中'包含了要发送的数据。当用户往文本框中'键入数据时使用SendData方法'发送输入的字符串。tcpServer.SendDatatxtSendData.TextEndSubPrivateSubtcpServer_DataArrival_(ByValbytesTotalAsLong)'为进入的数据声明一个变量。'调用GetData方法并将数据赋予名为txtOutput'的TextBox的Text属性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text=strDataEndSubUDPpeerAPrivateSubForm_Load()'控件的名字为udpPeerAWithudpPeerA'重点:必须将Remote