文件上传与下载软件

① 上传与下载有什么区别它们实现的应用软件分别有哪些

上传与下载恰恰是两个相反的操作方法。上传是将电脑中的文件、数据、图片、音乐、视频上传到指定的网站、信箱、博客、微薄等网上的地址；下载是将网上的文件、数据、图片、音乐、视频等下载到自己的电脑硬盘。由于上传和下载有专门的程序比如FlashFXP等。有的网络硬盘或网站有自己专用的下载和上传工具。像115网盘、DBank 数据银行等，下载工具比较多，像IE、迅雷、快车等。

② 有没有不限速的网盘上传下载软件，支持上传大文件的

没有的，网盘公司也是要花钱去租网线和存储空间，不可能一直倒贴钱在上面，只会有2种情况要么倒闭要么通过会员收取去补支出的费用。

③ 百度知道的文件上传和下载功能怎样使用

第一步：登录
网络的用户可以直接登录网络文库，如果您还没有网络id，先注册一个。
请注意：被封禁用户将无上传文档和下载文档的权限。
--------------------------------------------------------------------------------
第二步：点击“分享我的文档”按钮
在首页和详细文档页等页面，有一个橘黄色的按钮，“分享我的文档”，点击后进入文档上传页面。整个文档上传操作简单快捷，主要包括两个部分：提交文档附件；填写文档简介。
--------------------------------------------------------------------------------
第三步：上传文档一——提交文档附件
A： 点击上传文档页面的“浏览”按钮上传文档
请从自己本地电脑上上传附件。
附件上传完成后，点击“开始上传”按钮，您提交的附件会进行自动上传。
B： 需要注意的是，目前文档支持的类型包括：
.doc/.docx；.ppt/.pptx/.pps；.xls/.xlsx；.pot；.pps；.vsd；.rtf
.wps；.et；.dps.pdf.txtC： 为了保证用户的上传速度，我们允许上传大小小于 10M 的文档。
若您的文档大小超过10M。我们建议您对文档进行分拆，例如将一份word文档中的内容，分拆为上下两部分进行上传。
--------------------------------------------------------------------------------
第四步：上传文档——填写文档简介
A： 文档标题默认为您上传的附件的名称。您也可以进行修改。文档标题不能为空，最长可以输入50个汉字。
B： 对文档进行简要的介绍，能够方便其他用户快速了解您文档中所包含的主要内容。
文档介绍不能为空，最长可以输入300个汉字。
C： 每一份文档都有所属的正确分类，我们建议您为自己的文档选择合适的分类，这能够让您的文档得到更多的浏览和下载。
D： 您可以在上传时，选择您的文档被下载时对方所需付出的财富值，也即文档的售价。
我们建议您将售价设定为免费，方便文档的快速分享，同时也会获得系统的财富值奖励。
知道财富值和网络文库财富值不能通用、
如果你的文库财富值足够还是不能下载的话，
1.IE浏览器：菜单栏——工具——管理加载项——“显示：IE中当前加载的加载项”下，在“已启用”项下，找到“迅雷下载支持”，将其禁用，确定，重启IE浏览器。
2. 360浏览器：菜单栏——工具——下载器——（右下方）设置——（在“常规”栏下）将“默认的下载工具”后的向下的小箭头点开，在下拉列表中，选“用IE下载”，确定。
或者这样【不要用迅雷下载，关闭迅雷监视，用IE流览器进入网络文库，登陆后，点击文档下边的“下载此文档”就可以下载了
如果你的IE默......余下全文>>

④ 有什么好用的手机传输软件传文件比较快的

1、AirDroid：文件传输与管理

使用平台：全平台（安卓&iOS、移动端&PC 端）。

传输属性：实时传输，不限文件大小，平均速度 3-5m/s。

AirDroid 是一款老牌跨平台的无线传输管理软件，不需安装软件，不需数据线，只需在手机上安装 AirDroid App，在 PC 端仅用网页即可实现对移动端的文件传输与管理。

2、Send Anywhere：全平台文件共享

使用平台：全平台（安卓&iOS、移动端&PC 端）。

传输属性：有限期 10 分钟至 48 小时，单次最高 300G，传输速度 1-3m/s。

Send Anywhere，正如它的名字，是一款专注于文件分享的软件。它的传输方式非常多样，包括密钥、二维码、链接、设备四大方式。Send Anywhere 的分享文件操作也很简单，不需要注册登录。

3、Cute Http File Server：局域网在线网盘

使用平台：PC 端（Windows，Mac 和 Linux），移动端支持下载文件。

传输属性：服务开启后文件实时显示，大小无限制，速度无限制。

这款软件下载后无需安装，双击点开即可使用。在同一网络下的设备都可以通过生成的网页，直接访问该文件夹，并且支持预览大部分常见格式的文件，包括视频、音频、图片和 TXT 文档等等。

在网页中，可以重命名、上传及删除文件，修改与本地同步。同样，在本地修改后，网页也可以同步。如果担心避免被他人误操作，可以在软件内建立账户，进行权限的管理。

4、Snapdrop：即点即用传输工具

使用平台：网页版，不限设备。

传输属性：实时分享，文件大小无限制，速度无限制。

Send Anywhere 可以直接使用网页版，大多数都需要安装应用。如果需要临时在第三方设备使用，再进行一次下载安装的操作会略显繁琐。

而 Snapdrop 就非常简单了，只需在同一 WIFI 下进入网页，它便会自动扫描周边的设备，点击设备图标，选中文件即可开始传输。

如果遇到分享文件无响应的情况，可以尝试更换浏览器，比如：谷歌、Edge 及手机内置浏览器，都是可以的。

没有广告、无需注册、不限设备、即点即用，这样一款仅需网页就能高效进行文件传输的轻量级工具，一定要加入你的收藏夹！

5、文叔叔：不限速多功能网盘

使用平台：网页版，不限设备。

传输属性：最长永不过期，单次文件 5G 上限，下载速度无限制。

文叔叔它是一款既能长期存储，又相对限制最少的网盘工具。如果使用文叔叔就完全不用担心，在各大网盘都在限速的时候，文叔叔反其道而行。

开发者承诺上传及下载永不限速，在实际测试过程中，3G 大小的文件上传仅需 1 分钟，下载也只花费 5 分钟左右

⑤ 上传和下载是什么意思怎样上传和下载文件

上传就是把本地的文件放到网络服务器上
下载相反，是把网络服务器上的文件复制回来
下载文件需要别人提供存放在网络服务器上的文件才行
下载还分服务器类和P2P类，如BT就算是P2P的，他下载的文件不在服务器上，而是在别的网络用户机子上
上传则需要网络空间，用WEB或FTP的方式将文件从本地传到网络空间上

⑥ 手机要上传wps文件,要下载什么软件

WPS即可。
手机上传WPS文件的方法与步骤：
首先打开WPS，打开后点击左上角进行登陆。
登录自己的账号后，再点击底部的"+"。
点击搜索按钮后，再点击右侧的【上传文件】。
进入上传文件页面后，选择文件，并点击【已选择】。
接着再选择上传位置，选择好位置后，点击【上传】即可。
WPS Office是由北京金山办公软件股份有限公司自主研发的一款办公软件套装，可以实现办公软件最常用的文字、表格、演示，PDF阅读等多种功能。具有内存占用低、运行速度快、云功能多、强大插件平台支持、免费提供在线存储空间及文档模板的优点。
支持阅读和输出PDF（.pdf）文件、具有全面兼容微软Office97-2010格式（doc/docx/xls/xlsx/ppt/pptx等）独特优势。覆盖Windows、Linux、Android、iOS等多个平台。WPS Office支持桌面和移动办公。且WPS移动版通过Google Play平台，已覆盖超50多个国家和地区。

⑦ 在一个局域网网内做ftp服务器来实现文件上传和下载，用什么好

软件用Xlight FTP server就可以的。我这边就用的这个，网上这个软件很多的，配置也非常简单。

⑧ 绝对高分求客户端向服务器上传与下载文件的程序

＝＝＝＝＝＝＝＝＝＝上传部分＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

一 WEB部分
1 首先把WEB页获得本地要上传的文件名
2 WEB通过脚本把本地文件名(绝对路径)给客户端组件
3 WEB脚本控制组件开始传送数据
4 最后判断是否传输成功

二 组件部分
1 建立INTERNET连接
2 连接FTP服务器
3 获得本地文件名(绝对路径)
4 返回远程即将保存的文件名
5 传送数据
6 判断是否传输成功,返回状态

WEB页获取本地文件

组件返回远程文件名

组件传送数据

返回

本例在VB6.0 +WIN2000+ IIS5.0 + SERV-U 5.0 下调试成功

VB部分
一、建立一个ActiveX DLL工程
二、更改工程名FtpConn
三、更改类名：clsPutFile
四、加入一个空模块到工程中，此模块主要对需要使用的函数进行声明，在此不多做解释，代码如下：
Option Explicit

Declare Function GetProcessHeap Lib "kernel32" () As Long
Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Public Const HEAP_ZERO_MEMORY = &H8
Public Const HEAP_GENERATE_EXCEPTIONS = &H4

Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Long, hpvSource As Any, ByVal cbCopy As Long)

Public Const MAX_PATH = 260
Public Const NO_ERROR = 0
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Const ERROR_NO_MORE_FILES = 18

Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long

Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
' Initializes an application's use of the Win32 Internet functions
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

' User agent constant.
Public Const scUserAgent = "vb wininet"

' Use registry access settings.
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_INVALID_PORT_NUMBER = 0

Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const FTP_TRANSFER_TYPE_BINARY = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000

' Opens a HTTP session for a given site.
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Const ERROR_INTERNET_EXTENDED_ERROR = 12003
Public Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" ( _
lpdwError As Long, _
ByVal lpszBuffer As String, _
lpdwBufferLength As Long) As Boolean

' Number of the TCP/IP port on the server to connect to.
Public Const INTERNET_DEFAULT_FTP_PORT = 21
Public Const INTERNET_DEFAULT_GOPHER_PORT = 70
Public Const INTERNET_DEFAULT_HTTP_PORT = 80
Public Const INTERNET_DEFAULT_HTTPS_PORT = 443
Public Const INTERNET_DEFAULT_SOCKS_PORT = 1080

Public Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
Public Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
Public Const INTERNET_OPTION_SEND_TIMEOUT = 5

Public Const INTERNET_OPTION_USERNAME = 28
Public Const INTERNET_OPTION_PASSWORD = 29
Public Const INTERNET_OPTION_PROXY_USERNAME = 43
Public Const INTERNET_OPTION_PROXY_PASSWORD = 44

' Type of service to access.
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_SERVICE_GOPHER = 2
Public Const INTERNET_SERVICE_HTTP = 3

' Opens an HTTP request handle.
Public Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" _
(ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, _
ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

' Brings the data across the wire even if it locally cached.
Public Const INTERNET_FLAG_RELOAD = &H80000000
Public Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
Public Const INTERNET_FLAG_MULTIPART = &H200000

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000

' Sends the specified request to the HTTP server.
Public Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal _
hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As _
String, ByVal lOptionalLength As Long) As Integer

' Queries for information about an HTTP request.
Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" _
(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, _
ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer

' The possible values for the lInfoLevel parameter include:
Public Const HTTP_QUERY_CONTENT_TYPE = 1
Public Const HTTP_QUERY_CONTENT_LENGTH = 5
Public Const HTTP_QUERY_EXPIRES = 10
Public Const HTTP_QUERY_LAST_MODIFIED = 11
Public Const HTTP_QUERY_PRAGMA = 17
Public Const HTTP_QUERY_VERSION = 18
Public Const HTTP_QUERY_STATUS_CODE = 19
Public Const HTTP_QUERY_STATUS_TEXT = 20
Public Const HTTP_QUERY_RAW_HEADERS = 21
Public Const HTTP_QUERY_RAW_HEADERS_CRLF = 22
Public Const HTTP_QUERY_FORWARDED = 30
Public Const HTTP_QUERY_SERVER = 37
Public Const HTTP_QUERY_USER_AGENT = 39
Public Const HTTP_QUERY_SET_COOKIE = 43
Public Const HTTP_QUERY_REQUEST_METHOD = 45
Public Const HTTP_STATUS_DENIED = 401
Public Const HTTP_STATUS_PROXY_AUTH_REQ = 407

' Add this flag to the about flags to get request header.
Public Const HTTP_QUERY_FLAG_REQUEST_HEADERS = &H80000000
Public Const HTTP_QUERY_FLAG_NUMBER = &H20000000
' Reads data from a handle opened by the HttpOpenRequest function.
Public Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetWriteFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function FtpOpenFile Lib "wininet.dll" Alias _
"FtpOpenFileA" (ByVal hFtpSession As Long, _
ByVal sFileName As String, ByVal lAccess As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpDeleteFile Lib "wininet.dll" _
Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _
ByVal lpszFileName As String) As Boolean
Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

' Closes a single Internet handle or a subtree of Internet handles.
Public Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer

' Queries an Internet option on the specified handle
Public Declare Function InternetQueryOption Lib "wininet.dll" Alias "InternetQueryOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long) As Integer

' Returns the version number of Wininet.dll.
Public Const INTERNET_OPTION_VERSION = 40

' Contains the version number of the DLL that contains the Windows Internet
' functions (Wininet.dll). This structure is used when passing the
' INTERNET_OPTION_VERSION flag to the InternetQueryOption function.
Public Type tWinInetDLLVersion
lMajorVersion As Long
lMinorVersion As Long
End Type

' Adds one or more HTTP request headers to the HTTP request handle.
Public Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias "HttpAddRequestHeadersA" _
(ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lModifiers As Long) As Integer

' Flags to modify the semantics of this function. Can be a combination of these values:

' Adds the header only if it does not already exist; otherwise, an error is returned.
Public Const HTTP_ADDREQ_FLAG_ADD_IF_NEW = &H10000000

' Adds the header if it does not exist. Used with REPLACE.
Public Const HTTP_ADDREQ_FLAG_ADD = &H20000000

' Replaces or removes a header. If the header value is empty and the header is found,
' it is removed. If not empty, the header value is replaced
Public Const HTTP_ADDREQ_FLAG_REPLACE = &H80000000

五、输入类代码，代码如下：

Option Explicit
Dim bActiveSession As Boolean
Dim hOpen As Long
Dim hConnection As Long
Dim scUserAgent As String
Dim strServer As String
Dim strUser As String
Dim strPassword As String
Dim nFlag As Long
Dim bRet As Boolean
Dim szFileLocal As String
Dim szFileRemote As String
Dim dwType As Integer

Public Function PUTFILE() As Boolean
On Error Resume Next
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, strServer, INTERNET_INVALID_PORT_NUMBER, strUser, strPassword, INTERNET_SERVICE_FTP, nFlag, 0)
bRet = FtpPutFile(hConnection, szFileLocal, szFileRemote, _
dwType, 0)
Call CloseConn
PUTFILE = bRet
End Function

Sub CloseConn()
If hConnection <> 0 Then InternetCloseHandle hConnection
hConnection = 0
End Sub

Function getRemoteName(filename)
Dim arrName() As String
arrName = Split(filename, ".")
Randomize
getRemoteName = Date & CInt(Rnd * 1000) & "." & arrName(UBound(arrName))
End Function

Private Sub Class_Initialize()
scUserAgent = "My FTP"
strServer = "www.XXX.cn"
strUser = "Username"
strPassword = "Password"
nFlag = INTERNET_FLAG_PASSIVE
szFileLocal = "DefultLocalFileName"
szFileRemote = "DefultRemoteFileName"
dwType = 1
End Sub

Public Property Get connServer() As Variant
connServer = strServer
End Property

Public Property Let connServer(ByVal vNewValue As Variant)
strServer = vNewValue
End Property

Public Property Get connUser() As Variant
connUser = strUser
End Property

Public Property Let connUser(ByVal vNewValue As Variant)
strUser = vNewValue
End Property

Public Property Get connPassword() As Variant
connPassword = strPassword
End Property

Public Property Let connPassword(ByVal vNewValue As Variant)
strPassword = vNewValue
End Property

Public Property Let LocalFileName(ByVal vNewValue As Variant)
szFileLocal = vNewValue
szFileRemote = getRemoteName(vNewValue)
End Property

Public Property Get RemoteFileName() As Variant
RemoteFileName = szFileRemote
End Property

六、生成DLL
七、使用VB6的打包工具打包成“Internet ActiveX 安装包”,这是，VB打包后，还会给一个例子的HTML文件
八、建立HTML文件
<HTML>
<HEAD>
<TITLE>FtpConn.CAB</TITLE>
</HEAD>
<BODY>
<OBJECT ID="clsPutFile"
CLASSID="CLSID:D9BACC8F-0A99-46DA-ADA3-F1C25A48AA78"
CODEBASE="FtpConn.CAB#version=1,0,0,0">
</OBJECT>
<INPUT type="file" name="FileName"><button onclick="go()">GO~!</button>
<SCRIPT LANGUAGE="JavaScript">
<!-- by Newrocky 2004-12-7 QQ:1936234
function go()
{
if (FileName.value!='')
{
clsPutFile.LocalFileName=FileName.value;
alert(clsPutFile.RemoteFileName);//查看远程文件名
if (clsPutFile.PutFile()) //开始传送文件，如果返回true则成功，反之失败
{
alert('上传文件成功!');
}
else
{
alert('上传文件失败!')
}
}
else
{
alert('请选择您要上传的文件');
}
}
//-->
</SCRIPT>
</BODY>
</HTML>

ok~!

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝下载部分＝＝＝＝＝＝＝＝＝＝＝＝＝
首先，声明一些变量
Dim strCommand As String

Dim strWebPage As String

为了动态设置Winsock控件的一些属性，在“开始”按钮的Click事件加入以下代码。

Winsock1.RemoteHost="192.168.100.101" '设置连接的IP地址

Winsock1.RemotePort = 80 '设置连接的远程端口号

Winsock1.Connect '开始连接远程计算机。

当Winsock控件连接操作完成，就可以传送FTP命令给服务器了，因此在Winsock控件的Connect事件中加入以下代码：

On Error Resume Next '在错误处理程序结束后，恢复原有的运行

strWebPage= " 192.168.100.101/main.htm" '设置要下载的文件'添加FTP中取得文件的命令(GET)

strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf

strCommand = strCommand + "Accept: */*" + vbCrLf

strCommand = strCommand + "Accept: text/html" + vbCrLf

strCommand = strCommand + vbCrLf '必须以vbCrLf结束命令

Winsock1.SendData strCommand '向远程计算机发送命令

当Winsock控件获取到数据时，需要对数据进行处理，本例中将获取的内容显示在文本框控件中，因此在Winsock控件的DataArrival事件加入以下代码：

On Error Resume Next '在错误处理程序结束后，恢复原有的运行

Dim webData As String

Winsock1.GetData webData,vbString '获取当前的数据块

Text1.Text = Text1.Text + webData '显示接收到的数据