计算机网络课程设计-利用vb实现ftp协议的基本功能

《计算机网络课程设计-利用vb实现ftp协议的基本功能》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、课程设计任务书专业：计算机科学与技术学号：学生姓名（签名）：设计题目：VB实现FTP协议的基本功能一、设计实验条件综合搂实验室二、设计任务及要求1.FTP协议可以使本地或远程的客户和服务器之间通过TCP传输协议进行文件传输；2.要求利用VB实现FTP协议的基本功能。3.用Winsock控件来实现与FTP服务器端建立连接，该程序实现下述命令功能：get:取远方的一个文件put:传给远方一个文件pwd:显示服务器当前目录dir:列出服务器当前目录cd:改变远方当前目录quit:退出返回4.用Serv-U搭建FTP服务器，设置客户端访问的用户

2、名、密码、可以访问的服务器目录，对服务器可访问目录文件的操作权限（可读、可写）。三、设计报告的内容1.设计题目与设计任务（设计任务书）设计题目：实现FTP协议的基本功能，实现客户机和服务器之间文件的上传、下载、修改、重名名等设计任务：使用Winsock控件，通过TCP协议与FTP服务器端建立连接。使用的环境是MicrosoftVisualBasic6.0中文版，FTP服务器搭建是基于Serv-U软件建立的服务器。1.前言（绪论）(设计的目的、意义等)文件传输协议FTP（FileTransferProtocol）是在TCP/IP网络中传输

3、文件的一种格式规范，其目标是保证主机之间可靠和高效的传输程序或数据，向用户屏蔽不同主机中各种文件存储系统的细节。其规定在用户和服务器之间建立两个并行的TCP连接：控制连接和数据连接。前者是建立在用户协议解释器和服务器协议解释器之间用于交换命令与响应的通信链路；后者是传输数据的全双工连接。数据连接要先将文件拆分成分组再进行传送，这样做的目的是为了更加好的适应网络中的带宽限制，以及减少传送期间节点的延时，以达到高速传送。文件传送是各种计算机网络都实现的基本功能，文件传送协议是一种最基本的应用层协议按照客户/服务器的模式进行工作，提供交互式的

4、访问，是INTERNET使用最广泛的协议之一。本设计是用VB语言简单实现文件传输协议，主要利用Winsock控件，当中实现了上传、下载、获取服务器目录等基本文件传输功能。客户端服务器数据传输控制字传输2.设计主体（各部分设计内容、分析、结论等）（1）建立基本的工程和窗口实现“系统信息”功能。通过查询注册表来获取一些相关的信息，导入要用到的访问注册版的API，通过填写服务器地址，用户名和用户密码来实现与服务器的连接。可以匿名访问也可以填写用户名访问。下图：设计主窗口的菜单和其他一些必需的控件。如：工具栏、左边的TreeView控件、添加右

5、边的ListView控件等。服务器配置：设置用户有关信息（2）基本类模块：用于处理相关链接、上传、下载等操作1．实现FTP文件类，即把有关的信息封装成一个类，实现面向对象的思想，便于管理PrivatemvarFileNameAsStringPrivatemvarLastWriteTimeAsDatePrivatemvarFileSizeAsLongPrivatemvarIsDirectoryAsBooleanPrivatemvarFilePathAsString'PublicPropertyLetIsDirectory(ByValvDa

6、taAsBoolean)mvarIsDirectory=vDataEndPropertyPublicPropertyGetIsDirectory()AsBooleanIsDirectory=mvarIsDirectoryEndPropertyPublicPropertyLetFileSize(ByValvDataAsLong)mvarFileSize=vDataEndPropertyPublicPropertyGetFileSize()AsLongFileSize=mvarFileSizeEndPropertyPublicPropert

7、yLetLastWriteTime(ByValvDataAsDate)mvarLastWriteTime=vDataEndPropertyPublicPropertyGetLastWriteTime()AsDateLastWriteTime=mvarLastWriteTimeEndPropertyPublicPropertyLetFileName(ByValvDataAsString)mvarFileName=vDataEndPropertyPublicPropertyGetFileName()AsStringFileName=mvar

8、FileNameEndPropertyPublicPropertyLetFilePath(ByValvDataAsString)mvarFilePath=vDataEndPropertyPublicProp