《计算机网络综合设计课程设计局域网构建及局域网配置.doc》由会员分享，可在线阅读，更多相关《计算机网络综合设计课程设计局域网构建及局域网配置.doc（36页珍藏版）》请在三一办公上搜索。
1、计算机网络综合设计姓 名： 学 号： 22120768 专 业： 信息工程 题 目： 局域网构建及局域网配置 专 题： 计算机网络综合设计 指导教师： 设计地点： 电工电子实验室 时 间： 2015 年 6 月 计算机网络综合设计训练任务书学生姓名 专业年级 信息12 学号 22120768 设计日期： 2015 年 5 月 28 日 至 2015 年 6 月 10 日设计题目：局域网构建及服务器配置设计专题题目：计算机网络综合设计设计主要内容和要求：1. 主要内容：简单讲解了计算机网络综合设计的目的和实验要求。 2. 学会制作网线。3. Ping命令和ipconfig命令的使用4. IP地址
2、分配与管理，简单的以太网的组装5.服务器配置6. 功能扩展要求：（1） 基于UDP协议的聊天软件的实现（2） 其他功能的扩展7.课程小结指导教师签字：摘要：随着信息技术和网络技术的迅猛发展，信息传输已经不仅仅局限于简单的文本传输、数据数字传输，随之而来的是视频音频等多媒体技术的广泛应用。经过对计算机网络课程设计的学习，对于计算机网络设计要求的网线的制作，网络的物理连接，IP地址的配置，简单的以太网的组装，简单Ping命令的使用，Web网页的制作，FTP服务器的建立等深层次的理解，掌握一定的动手能力。本文首先阐述了计算机网络中ping命令和Ipconfig命令的使用，介绍了在一个局域网内进行子网
3、划分，并进行相关配置并通过ping命令测试在两个子网内不同的主机彼此访问的情况，然后介绍了对服务器和路由器的相关配置，设计了属于自己的网站和邮箱等，最后叙述了使用VB 语言编写一个基于Winsock-UDP的简单的聊天软件，并对其界面设计及相关功能做了简要介绍。关键词：子网划分 、路由器 、局域网 、聊天软件目 录第一章 概述5第二章 制作网线62.1国际通用的布线标准62.2常见的两种网线72.3双绞线的制作步骤7第三章 Ping命令和IPCONFIG命令的使用83.1Ping命令和IPCONFIG命令概述83.2 IPConfig命令的使用9第四章 IP地址分配与管理114.1 IP地址与
4、子网掩码124.2 网络拓扑结构124.3 IP子网划分12第五章 服务器配置135.1 WEB服务器配置145.1.1万维网概述145.1.2万维网必须解决的问题145.1.3 创建一个 WEB 站点并发布自己的个人网站145.1.4 添加虚拟目录155.2 DNS服务器配置165.2.1 DNS概述165.2.2 域名到IP地址的具体解析过程165.2.3 DNS的配置步骤165.3 FTP 服务器的建立175.3.1 FTP 协议175.3.2 FTP 服务器185.3.3 FTP的客户机和服务器实现连接的原理185.3.4 创建FTP服务器实现文件的上传与下载185.4 邮件服务器配置
5、195.4.1 邮件服务器概述195.4.2 邮件服务器的组成195.4.3 邮件服务器的配置步骤19第六章 基于UDP协议的聊天软件的实现206.1两种通讯协议216.1.1Winsock_TCP216.1.2Winsock-UDP216.1.3网络通信协议的选择216.2 聊天软件功能模块设计226.2.1登录界面如下226.2.2注册界面如下226.2.3聊天界面如下236.3功能显示236.3.1字体变化如下236.3.2字型效果显示如下：246.4音乐播放界面如下256.5 向好友发送窗口抖动27第七章 总结及体会287.1分析总结297.2 体会29参考文献：29附录1程序如下30
6、第一章 概述计算机技术和通信技术的结合为计算机网络技术的产生奠定了基础。计算机网络正以其高可靠性、高性能价格比和易扩充性等优点，在各个领域、各个行业中发挥着越来越重要的作用。网络已经渗透到日常工作和生活中的每个角落，Internet将遍布世界的大型和小型网络连接在一起，使它日益成为企事业单位和个人日常活动不可缺少的工具。计算机网络的应用主要表现在数据通信，资源共享，分布式处理及提高系统的可靠性、安全性等方面。局域网的发展也同样迅速。很多政府机构，企业，学校，都是先以一个统一的局域网联结在一起，再分别接入INTERNET.因此基于局域网的即时通信工具，就这样应运而生了。第二章 制作网线2.1国际
7、通用的布线标准EIA/TIA-568标准规定了两种连接标准（并没有实质上的差别），即EIA/TIA-568A和EIA/TIA-568B。这两种标准的连接方法如下图所示。（1）EIA/TIA568A标准：白绿绿白橙蓝白蓝橙白棕棕（从左起）（2）EIA/TIA568B标准：白橙橙白绿蓝白蓝绿白棕棕（从左起）图中上方的折线表示这两根针脚连接的是一对双绞线。在通常的工程实践中，T568B使用得较多。2.2常见的两种网线直连线：两端线序相同。（T568A/T568B，多用T568B）常用在连接网卡和HUB或网卡和交换机等两端引脚功能定义不同的设备。交叉线：一端为T568A线序，另一端为T568B线序。用
8、来连接网卡和网卡或网卡和路由器的以太口等两端引脚功能定义相同的设备。2.3双绞线的制作步骤步骤1：准备好5类线、RJ-45插头和一把专用的压线钳。步骤2：用压线钳的剥线刀口将5类线的外保护套管划开（小心不要将里面的双绞线的绝缘层划破），刀口距5类线的端头至少2厘米。步骤3：将划开的外保护套管剥去（旋转、向外抽）。步骤4：露出5类线电缆中的4对双绞线。步骤5：按照EIA/TIA-568B标准和导线颜色将导线按规定的序号排好。步骤6：将8根导线平坦整齐地平行排列，导线间不留空隙。步骤7：准备用压线钳的剪线刀口将8根导线剪断。步骤8：剪断电缆线。请注意：一定要剪得很整齐。剥开的导线长度不可太短。可以
9、先留长一些。不要剥开每根导线的绝缘外层。步骤9：将剪断的电缆线放入RJ-45插头试试长短（要插到底），电缆线的外保护层最后应能够在RJ-45插头内的凹陷处被压实。反复进行调整。步骤10：在确认一切都正确后（特别要注意不要将导线的顺序排列反了），将RJ-45插头放入压线钳的压头槽内，准备最后的压实。步骤11：双手紧握压线钳的手柄，用力压紧。请注意，在这一步骤完成后，插头的8个针脚接触点就穿过导线的绝缘外层，分别和8根导线紧紧地压接在一起。步骤12：完成。步骤13：最后用测试仪测试一下通断性。第三章 Ping命令和IPCONFIG命令的使用3.1Ping命令和IPCONFIG命令概述Ipconfi
10、g命令是调试计算机网络的常用命令，通常大家使用它显示计算机中网络适配器的IP地址、子网掩码及默认网关。最常用的选项：ipconfig当使用ipconfig时不带任何参数选项，那么它为每个已经配置了的接口显示ip地址、子网掩码和缺省网关值。ipconfig/all当使用all选项时，ipconfig能为dns和wins服务器显示它已配置且所要使用的附加信息（如IP地址等），并且显示内置于本地网卡中的物理地址（mac）。Ping是个使用频率极高的实用程序，用于确定本地主机是否能与另一台主机交换（发送与接收）数据报。根据返回的信息，你就可以推断TCP/IP参数是否设置得正确以及运行是否正常。 Pin
11、g 基于 TCP/IP 的网络层协议 ICMP 实现，通过发送 ICMP 的回送报文（ echo back ）到远程主机，以判断远程主机能否进一步用于实现 TCP/IP 业务。若该命令给出了正确的结果，则表明主机至少在网络层及网络层以下是工作正常的。 3.2 IPConfig命令的使用 （1）用IPConfig查看本机IP地址（2）Ping同网段计算机的IPPing一台同网段计算机的IP，不通则表明网络线路出现故障；如下图所示，ping同网段计算机的IP地址成功，表明网络线路的连通性良好。第四章 IP地址分配与管理4.1 IP地址与子网掩码1IP地址：在因特网上，所有的主机资源都通过IP地址来
12、定位的，但IP地址是一个32位的二进制数字。IP地址由网络号和主机号两部分组成。2子网掩码：是一个32位的二进制数字，用来确定一个IP地址的网络号，子网掩码与IP地址相与即得该IP地址的网络号。掩码中与IP地址网络号相对应的部分全为1，与主机号相对应的部分全为0。通过将子网掩码与 IP 地址进行“与”操作，可提供所给定的 IP 地址所属的网络号。网络中的每一个主机在进行 IP 包的发送前，均要用本机的子网掩码对源 IP 地址和目标 IP 地址进行求与操作，提取源和目标网络号以判断两者是否仅位于同一网段中。4.2 网络拓扑结构 网络拓扑结构是指用传输媒体互连各种设备的物理布局，就是用什么方式把网
13、络中的计算机等设备连接起来。拓扑图给出网络服务器、工作站的网络配置和相互间的连接，它的结构主要有星型结构 、环型结构、总线结构、分布式结构、树型结构、网状结构、蜂窝状结构等 。4.3 IP子网划分 1子网划分：IP地址分为A、B、C、D、E五种标准类，前三类地址用于因特网中主机的定位，这三类网络中小的可以有254台主机，大的可以有上千万台主机，如要将标准网络划分为更小的网络则需进行子网划分。子网划分是通过将主机位的一部分划分成子网号来进行的。2子网划分计算：设从主机位借N位作子网号，剩余M位的主机位，则：子网数为：2N，每个子网中的主机数为：2M-2 Ping本组同学成功，如下图所示：Ping
14、其他组同学不成功，如下图所示第五章 服务器配置5.1 WEB服务器配置5.1.1万维网概述万维网是一个把信息存储与检索技术，以及超文本与超媒体技术融合到一起的，在全球范围内分布的，具有开放的、交互的、动态的、可在交叉平台上运行等特性的，基于因特网的多媒体信息系统。万维网WWW通过超级链接，将所有的硬件资源、软件资源、数据资源连成一个网络，用户可从一个站点轻易地转到另一个站点，非常方便地获取丰富的信息。5.1.2万维网必须解决的问题 (1) 怎样标志分布在整个因特网上的万维网文档？ l 使用统一资源定位符 URL来标志万维网上的各种文档。l 使每一个文档在整个因特网的范围内具有惟一的标识符 UR
15、L。一般的语法形式为： n ： / ： / 。 n 如访问 Web 站点使用：（端口使用默认端口时可以省略，如 Web 的默认端口是 80 ）。 (2) 用何协议实现万维网上各种超链的链接？ 在万维网客户程序与万维网服务器程序之间进行交互所使用的协议，是超文本传送协议 HTTP 。Web 服务器以客户机 / 服务器方式工作。 Web 服务器监听 TCP 端口 80 ，客户机通过浏览器向服务器发出请求， Web 服务器监听到客户机（浏览器）发出的连接请求后，将建立 TCP 连接，并返回客户机所请求的页面作为响应。通信完成后 TCP 连接释放。客户机（浏览器）和 Web 服务器之间的交互就是遵循超
16、文本传输协议 HTTP 的。(3) 怎样使各种万维网文档都能在因特网上的各种计算机上显示出来，同时使用户清楚地知道在什么地方存在着超链？ 超文本标记语言 HTML使得万维网页面的设计者可以很方便地用一个超链从本页面的某处链接到因特网上的任何一个万维网页面，并且能够在自己的计算机屏幕上将这些页面显示出来。HTML 文档是文本文档，可以用记事本或任何文本编辑器建立，以 .htm 或 .html 为扩展名。 HTML 文档也就是 Web 页面文档。每个 HTML 文档主要由两部分组成：头部（ Head ）和主体（ Body ）。头部有文档的标题，主体部分有段落、表格和列表等。标题在浏览器顶部的标题栏
17、显示，主体在浏览器的主窗口显示。5.1.3 创建一个 WEB 站点并发布自己的个人网站创建文件夹 F:shenpengfei1，作为网站的主目录，自己的网页放在此文件夹下； 点击控制面板管理工具Internet 信息服务网站默认网站右击属性网站（IP地址：192.168.1.120）浏览本地路径选择放置网页的路径文档（添加shenpengfei.html并置顶）确定点击浏览器输入IP地址http:/192.168.1.120/可访问自己做的网页如下。5.1.4 添加虚拟目录修改主目录：在“本地路径”输入自己网页所在的文件夹“ C: shenpengfei ”。 点击控制面板管理工具Intern
18、et信息服务网站默认网站新建虚拟目录（别名：shenpengfei目录：选择ASP所在的目录）网站（IP地址：192.168.1.120）浏览本地路径选择放置网页的路径文档（添加shenpengfei.asp并置顶）确定点击浏览器输入IP地址http:/192.168.1.120/xiaohui出现以下访问页面：5.2 DNS服务器配置5.2.1 DNS概述DNS即域名系统，是Internet上计算机命名的规范。DNS服务器则把计算机的名字（主机名）与其IP地址相对应。而DNS客户则可以通过DNS服务器，由计算机的主机名查询到其IP地址，或者相反地，由其IP地址查询到其主机名。DNS服务器提供
19、的这种服务称为域名解析服务5.2.2 域名到IP地址的具体解析过程 当某一个应用进程需要将主机名解析为IP地址时，该应用进程就成为域名系统DNS的一个客户，并把待解析的域名放在DNS请求报文中，以UDP 数据报方式发给本地域名服务器。本地域名服务器在查找域名后，将对应的IP地址放在回答报文中返回。应用进程获得目的主机的IP地址后即可进行通信。若本地域名服务器不能回答该请求，则此域名服务器就暂时成为DNS中的另一个客户，并向其它域名服务器发出查询请求。这种过程直至找到能够回答该请求的域名服务器为止。5.2.3 DNS的配置步骤打开DNS server软件工具设置添加DNS：192.168.1.1
20、20确定工具域名管理A记录添加域名：确定打开Internet协议属性在首选DNS服务器一栏输入：192.168.1.120 浏览器地址栏输入即可访问以下页面：5.3 FTP 服务器的建立 5.3.1 FTP 协议一个双向文件传输协议，能让用户把文件拷贝到远程主机或者从远程主机中拷贝文件。 5.3.2 FTP 服务器给客户机提供访问一个目录结构的网络访问权，所赋予的访问权限有读（允许客户下载文件）、写（允许客户上传文件）。客户只能查看管理员指定的 那些文件夹内容。 5.3.3 FTP的客户机和服务器实现连接的原理FTP 使用客户 / 服务器方式。在进行文件传输时， FTP 的客户机和服务器之间建
21、立“控制连接”和“数据连接”。当客户机向服务器发出连接请求时，要寻找连接服务器进程的 21 端口，同时告诉服务器进程自己所使用的一个端口号，用于建立数据传送连接。控制连接在整个会话过程中一直打开。 FTP 客户机所发出的传送请求通过控制连接发送给服务器的控制进程。控制进程在接收到 FTP 客户机的文件传送请求后，创建一个“数据传送进程”，服务器进程用 21 端口与客户进程所提供的端口号建立数据传送连接，数据传送进程实际完成文件的传送。在传送完毕后关闭“数据传送连接”，并结束运行。 5.3.4 创建FTP服务器实现文件的上传与下载打开Serv-U软件，右击域新建域（域IP地址： 192.168.
22、1.120）；点击下一步（域名设置为：shenpengfei）、点击下一步（端口号设置为：21）； 右击用户新建用户（用户名称：shenpengfeig密码：309）选择要访问的文件夹所在的目录；点击下一步锁定用户于主目录；点击浏览器输入IP地址ftp:/192.168.1.1205.4 邮件服务器配置5.4.1 邮件服务器概述邮件服务器是一种用来负责电子邮件收发管理的设备。它比网络上的免费邮箱更安全和高效，因此一直是企业公司的必备设备。5.4.2 邮件服务器的组成该系统由三类主要部件构成：用户代理、邮件服务器和简单邮件传送协议(simple Mail Transfer Protocol，简称
23、SMTP)。 5.4.3 邮件服务器的配置步骤 打开邮件服务器软件我的电脑工具文件夹选项查看将使用简单文件共享的去掉点击确定； 在C:windows中temp文件夹右击鼠标点击“属性”，点开“安全”添加everyone,确定，然后将“完全控制”打；打开浏览器输入http:/192.168.1.120/mail进入以下页面注册，注册完后登录邮件服务器可进入以下页面:第六章 基于UDP协议的聊天软件的实现6.1两种通讯协议接字控件可以与远程计算机建立连接，并通过用户数据文报协议(UDP)或者传输控制协议（TCP）进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。在使用WinSock控件时
24、，首先需要考虑使用什么协议。可以使用的协议包括TCP和UDP。6.1.1Winsock_TCPl数据传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。l如果创建客户应用程序，就必须知道服务器计算机名或者IP地址（RemoteHost属性），还要知道进行“侦听”的端口（RemotePort属性），然后调用Connect方法。l如果创建服务器应用程序，就应设置一个收听端口（LocalPort属性）并调用Listen方法。当客户计算机需要连接时就会发生ConnectionRequest事件。为了完成连接可调用ConnectionRequest事件内的Accept方法。建立
25、连接后，任何一方计算机都可以收发数据。为了发送数据，可调用SendData方法。当接收数据时会发生DataArrival事件。调用DataArrival事件内的GetData方法就可获取数据。6.1.2Winsock-UDPl用户数据文报协议(UDP)是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外UDP应用程序可以是客户机，也可以是服务器。为了传输数据，首先要设置客户计算机的LocalPort属性。然后，服务器计算机只需将RemoteHost设置为客户计算机的Internet地址，并将RemotePort属性设置为跟客户计算机的LocalPort属性相同的端口，并调用SendD
26、ata方法来着手发送信息。于是，客户计算机使用DataArrival事件内的GetData方法来获取已发送的信息。6.1.3网络通信协议的选择两种协议之间的重要区别在于它们的连接状态：TCP协议是有连接的协议，可以将它同电话系统相比。在开始数据传输之前，用户必须先建立连接。UDP协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。另外，单次传输的最大数据量取决于具体的网络。通讯协议的选择是通过设置WinSock的Protocol属性来实现的。下面选择UDP通讯协议编写网上聊天程序。6.2 聊天软件功能模块设计6.2.1登录界
27、面如下6.2.2注册界面如下点击注册按钮，然后输入用户名和密码；注册成功显示如下界面6.2.3聊天界面如下6.3功能显示6.3.1字体变化如下6.3.2字型效果显示如下：6.4音乐播放界面如下发送指令p可以再与我们通信的对方电脑上播放音乐按键 停止按钮当前播放的音乐暂停按键快进快退按钮当前播放的音乐也随之快进快退。按键打开文件按钮时我们可以打开预先存放在文件夹的其他歌曲。6.5 向好友发送窗口抖动第七章 总结及体会7.1分析总结发送表情还存在的一些问题如下： 传输表情的时候，不能传输大于8k的，有时候发送了，对方收不到。 邮件传输功能没有实现，由于虚拟服务器建立过于复杂，为了实现最大化自己设计
28、，所以没有实现此功能 聊天界面过于单调，主要强调创意和功能7.2 体会通过这次课程设计，使我加深了大一学的VB编程知识的学习。让我们能够充分利用所学过的理论知识，同时也增强了自己调试、分析程序、设计聊天软件功能及页面美化的能力。通过上网查询和查阅相关书籍资料，让我知道了大量关于聊天软件的功能及工作原理，同时体会到团队合作的重要性。从而让我更深一步提高了对VB编程的掌握，学会了做课程设计的一般步骤。参考文献：1 谢希仁.计算机网络M.5版.北京：电子邮电出版社，2008.2 吴昌平. Visual Basic6. 0 程序设计M .人民邮电出版社.3 牛力. Visual Basic 6 编程宝
29、典M . 电子工业出版社.4 段兴. Visual Basic 6. 0 控件实用程序设计M . 人民邮电出版社.附录1程序如下Public flag As BooleanDim i As IntegerPrivate Sub Cmdexit_Click() sckrecv.Close scksend.Close Unload MeEnd SubPrivate Sub Cmdsend_Click() scksend.SendData user & ( & scksend.LocalIP & ) & ： & Space(1) & txtmsg.Text & vbCrLf txtchat.Text
30、 = txtchat.Text & 我说： & txtmsg.Text & vbCrLf txtmsg.Text = txtmsg.SetFocusEnd SubPrivate Sub Combo1_Click() If Combo1.Text = 宋体 Then txtmsg.FontName = 宋体 txtchat.FontName = 宋体 ElseIf Combo1.Text = 黑体 Then txtmsg.FontName = 黑体 txtchat.FontName = 黑体 ElseIf Combo1.Text = 微软雅黑 Then txtmsg.FontName = 微软雅
31、黑 txtchat.FontName = 微软雅黑 End If End SubPrivate Sub Combo2_Click() If Combo2.Text = 10 Then txtmsg.FontSize = 10 txtchat.FontSize = 10 ElseIf Combo2.Text = 15 Then txtmsg.FontSize = 15 txtchat.FontSize = 15 ElseIf Combo2.Text = 20 Then txtmsg.FontSize = 20 txtchat.FontSize = 20 End If End SubPrivate
32、 Sub Combo3_Click() If Combo3.Text = 加粗 Then txtmsg.FontBold = Not txtmsg.FontBold txtchat.FontBold = Not txtchat.FontBold ElseIf Combo3.Text = 斜体 Then txtmsg.FontItalic = Not txtmsg.FontItalic txtchat.FontItalic = Not txtchat.FontItalic ElseIf Combo3.Text = 下划线 Then txtmsg.FontUnderline = Not txtms
33、g.FontUnderline txtchat.FontUnderline = Not txtchat.FontUnderline End If End SubPrivate Sub Command1_Click()txtchat.Text = txtmsg.SetFocusEnd SubPrivate Sub Command2_Click() scksend.SendData user & ( & scksend.LocalIP & ) & ： & Space(1) & d & vbCrLf txtchat.Text = txtchat.Text & 你向你的好友发送了一个窗口抖动！ & v
34、bCrLf txtmsg.SetFocusEnd SubPrivate Sub Form_Load()WindowsMediaPlayer1.URL = VB.App.Path & 小苹果.mp3 sckrecv.Protocol = sckUDPProtocol scksend.Protocol = sckUDPProtocol frmmain.scksend.RemotePort = 2002 frmmain.scksend.RemoteHost = frmset.txtAddr.Text sckrecv.LocalPort = 2002 sckrecv.Bind isbroad = 0
35、user = frmset.txtuser.Text scksend.SendData user & ( & scksend.LocalIP & ) & ： & Space(1) & 上线了 & vbCrLfEnd SubPrivate Sub Labelset_Click() frmset.ShowEnd SubPrivate Sub List1_Click()End SubPrivate Sub sckrecv_DataArrival(ByVal bytesTotal As Long) Dim Buffer As String Dim a As Integer Dim b As Integ
36、er sckrecv.GetData Buffer, vbString, bytesTotal txtchat.Text = txtchat.Text & Buffer & vbCrLf If (Mid(Buffer, 19, 1) = p) Then WindowsMediaPlayer1.URL = VB.App.Path & 小苹果.mp3 ElseIf (Mid(Buffer, 19, 1) = d) Then For a = 0 To 100 frmmain.Left = frmmain.Left + 50 frmmain.Top = frmmain.Top + 50 For b =
37、 0 To 100 Next b frmmain.Left = frmmain.Left - 50 frmmain.Top = frmmain.Top - 50 Next a ElseIf (Mid(Buffer, 19, 1) = o) Then Picture1.Picture = LoadPicture(C:Documents and SettingsAdministrator桌面最新版本201506101645新建文件夹face1.bmp) End If End SubPrivate Sub sckrecv_Error(ByVal Number As Integer, Descript
38、ion As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) txtchat.Text = txtchat.Text & + & Description & vbCrLfEnd SubPrivate Sub txtchat_Change() txtchat.SelStart = Len(txtchat.Text) txtchat.SelLength = 1 End SubPriva
39、te Sub txtmsg_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Cmdsend_Click End IfEnd Sub 播放暂停Private Sub Command3_Click()WindowsMediaPlayer1.fullScreen = False flag = Not flag With WindowsMediaPlayer1 If flag = True Then Command3.Caption = pause .Controls.play Else Command3.
40、Caption = play .Controls.pause End If End WithEnd Sub停止Private Sub Command4_Click() With WindowsMediaPlayer1 .Controls.Stop End WithEnd SubPrivate Sub Command6_Click() 打开文件CommonDialog1.Action = 1CommonDialog1.DialogTitle = 英语文件打开CommonDialog1.InitDir = C:Users中国联通欢迎你桌面CommonDialog1.Filter = *.mp3CommonDialog1.FileName = CommonDialog1.ShowOpenIf CommonDialog1.FileName ThenWindowsMediaPlayer1.URL = CommonDialog1.FileNameEnd If End Sub快进Private Sub Command5_Click() With WindowsMediaPlayer1 .Controls.currentPosition = .Controls.currentPosition + 10 End With
