利用VB实现FTP协议的基本功能.docVIP

课程设计任务书 专业：：学生姓名（签名）： 设计题目： 一、设计实验条件 综合搂 二、设计任务及要求 ； 用Winsock控件来实现与FTP服务器端建立连接，该程序实现下述命令功能： get:取远方的一个文件 put:传给远方一个文件 pwd:显示服务器当前目录 dir:列出服务器当前目录 cd:改变远方当前目录 quit:退出返回 用Serv-U搭建FTP服务器，设置客户端访问的用户名、密码、可以访问的服务器目录，对服务器可访问目录文件的操作权限（可读、可写）。 三、设计报告的内容 设计题目与设计任务（设计任务书）设计题目设计任务Serv-U软件建立的服务器。 前言（绪论）(设计的目的、意义等)文件传输协议FTP（File Transfer Protocol） 设计主体（各部分设计内容、分析、结论等） 实现“系统信息”功能。通过查询注册表来获取一些相关的信息，导入要用到的访问注册版的API， 通过填写服务器地址，用户名和用户密码来实现与服务器的连接。可以匿名访问也可以填写用户名访问。 下图：设计主窗口的菜单和其他一些必需的控件。如：工具栏、左边的TreeView控件、添加右边的ListView控件等。 服务器配置：设置用户有关信息 （2）基本类模块：用于处理相关链接、上传、下载等操作 1．实现FTP文件类，即把有关的信息封装成一个类，实现面向对象的思想，便于管理 Private mvarFileName As String Private mvarLastWriteTime As Date Private mvarFileSize As Long Private mvarIsDirectory As Boolean Private mvarFilePath As String Public Property Let IsDirectory(ByVal vData As Boolean) mvarIsDirectory = vData End Property Public Property Get IsDirectory() As Boolean IsDirectory = mvarIsDirectory End Property Public Property Let FileSize(ByVal vData As Long) mvarFileSize = vData End Property Public Property Get FileSize() As Long FileSize = mvarFileSize End Property Public Property Let LastWriteTime(ByVal vData As Date) mvarLastWriteTime = vData End Property Public Property Get LastWriteTime() As Date LastWriteTime = mvarLastWriteTime End Property Public Property Let FileName(ByVal vData As String) mvarFileName = vData End Property Public Property Get FileName() As String FileName = mvarFileName End Property Public Property Let FilePath(ByVal vData As String) mvarFilePath = vData End Property Public Property Get FilePath() As String FilePath = mvarFilePath End Property 2．实现FTP连接类。 定义两个Winsock控件变量，一个用户控制连接，一个用于数据连接 ****************************************************************** Winsock Control for control connection Private WithEvents wscControl As MSWinsockLib.Winsock Winsock Control for data connection Private WithEvents wscData As MSWinsockLib.Wi