网络技术基础实验报告(华北电力大学).docx

课程设计(综合实验)报告 ( 2011—2012 年度第 2 学期) 名 题 院 班 学  称：网络通信实验与设计 目：VB6.0、网线制作、路由器配置及组网、网络通信综合实验 系：电子与通信工程系 级：通信 0903 号： 学生姓名： 指导教师：李然 陈智雄 贾惠彬 王雅宁 设计周数：2 周 成  绩： 日期：2012 年 5 月 19 日 。 。 华 北 电 力 大 学 实 验 报 告 实验 环境 VB 6.0 实验 名称 实验一：熟悉 VB 环境及 UDP 通信实验程序的设计 实验目的 1．通过实验熟悉 VB 语言开发平台。 2．通过实验进一步理解 UDP 通信协议，掌握 UDP 通信协议的特点。 实验原理 在 TCP/IP 模型中，UDP 为网络层以上和应用层以下提供了一个简单的接口 UDP 只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去， 就不保留数据备份（所以 UDP 有时候也被认为是不可靠的数据报协议）。UDP 在 IP 数据报的头部仅仅加入了复用和数据校验（字段）。 用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作 不同，计算机并不建立连接。另外，UDP 应用程序可以是客户机，也可以是 服务器。 应用层 UDP TCP 传输层 IP 各种网络接口 为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机 计算机只需将 RemoteHost 设置为需要聊天的计算机的 Internet 地址，并将 RemotePort 属性设置为跟需要聊天的计算机的 LocalPort 属性相同的端口， 并调用 SendData 方法来发送信息。最后，本台计算机使用 DataArrival 事 件内的 GetData 方法来获取对方计算机已发送的信息。 实验内容 实验步骤： 1. 用自己的名字建立子目录。 2. 进入 VB6.0，双击 StandardEXE。 3. 出现标准窗体，调整窗体大小到适当尺寸。 4. 工程名改为 UdpTest,窗体名改为 FrmMain, 窗体的 caprion 属性改为“聊天 程序”。 5. 添加 TextBox 控件，名字改为 IPAdr,Text 属性为空，用以输入聊天对象的 IP 地址。 6. 添加两个 Lable 控件，一个作为背景色，一个作为前景色，属性改为对方 “IP 地址”，为了使文字在 lable 的正中央，调整两个 lable 的叠放位置。 7. 添加 CommandButton 控件，Caption 属性改为“确定”，用以确定 IP 地址。 第 1 页 实验 实 验 内 容 华 北 电 力 大 学 实 验 报 告 添加 TextBox 控件，名字改为 TextRecieve，Text 属性为空，MultiLine 属性 为 True,ScrollBars 属性为 2，用以显示接受聊天内容。 添加 TextBox 控件，名字改为 TextSend,Text 属性为空，MultiLine 属性为 True,Scrollballs 属性为 2，用以显示发送聊天内容。 添加 CommandButton 控件，Caption 属性改为“发送”，用以发送聊天内容。 11. 添加 Winsock 控件，名字改为 UdpSocket. 12. 存盘，存盘路径为自己建立的子目录。 程序代码： Private Sub Command1_Click() UdpSocket.Protocol = sckUDPProtocol '选择 UDP 协议 UdpSocket.RemoteHost = IPAdr '远方 IP 地址 UdpSocket.RemotePort = 2012 '远方端口 UdpSocket.Bind 2012 '本地端口 End Sub Private Sub Command2_Click() UdpSocket.SendData TextSend.Text Dim strData1 As String Dim strData2 As String strData1 = TextSend.Text strData2 = "发送：" TextRecieve.Text = TextRecieve & Chr(13) & Chr(10) TextRecieve.Text = TextRecieve & strData2 & strData1 '本机发送数据也显示在 'TextSend 对话框 中 TextSend.Text = "" '清空发送文本 框 End Sub Private Sub UdpSocket_DataArrival(ByVal bytesTotal As Long) Dim strData As String '定义接收数