实验报告课程名称： 计算机网络结构 指导老师： 吴建德 成绩： 实验名称： Winsock 通信编程 实验类型： 上机实验 同组学生姓名： 一、实验目的和要求（必填）二、实验内容和原理（必填）三、主要仪器设备（必填）四、操作方法和实验步骤五、实验数据记录和处理六、实验结果与分析（必填）七、讨论、心得一、实验目的和要求1、 学习 Visual Basic 的 Winsock 控件的使用方法；2、 了解 TCP/UDP 的通信过程；3、 进一步理解通信分层控制的优点；二、实验内容和原理1、 将两台 PC 机通过以太网连接到同一局域网，用测试软件测试以太网通信是否正常。2、 编写一个简单通信程序，在两台 PC 上同时运行，要求在一台 PC 上输入字符，按确认键后能在另一台 PC 上显示。3、 编写两个通信程序（服务器程序和客户机程序），要求：（1） 客户机与服务器通过 TCP 连接后，在其中一台主机上输入字符，按回车键后将所有字符发送到另一台主机并显示；（2） 实验 2 的文件传输方法改为通过 UDP 传输，其余要求不变。三、主要实验设备电脑一台，串口线一根专业： 电子信息工程 姓名： 学号： 309 日期： 2012 年 地点： 应电楼 305 四、实验数据记录和处理实验程序代码如下： 1.TCP:frmclientPrivate Sub Form_Load() 'Winsock 控件的名字为 tcpClient。 '注意：要指定远程主机，可以使用 ' IP 地址（例如："121.111.1.1"），也可以使用 '计算机的“好听的名字”如下所示。 tcpClient.RemoteHost = "127.0.0.1" tcpClient.RemotePort = 1002End SubPrivate Sub cmdConnect_Click() '调用 Connect 方法，初始化连接。 tcpClient.ConnectEnd SubPrivate Sub txtSendData_Change() tcpClient.SendData txtSend.TextEnd SubPrivate Sub tcpClient_DataArrival _(ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strDataEnd SubPrivate Sub txtSend_Change()tcpClient.SendData txtSend.TextEnd SubfrmserverPrivate Sub Form_Load()'将 LocalPort 属性设置为一个整数。'然后调用 Listen 方法。tcpServer.LocalPort = 1002tcpServer.ListenfrmClient.Show '显示客户端的窗体。End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)'检查控件的 State 属性是否为关闭的。'如果...
