创建
基本步骤：
1、用一个InternetOpen调用设置环境。
2、调用InternetConnect 函数与主机连接。
3、调用FtpGetFile 达到文件。
4、关闭第1、2步创建的句柄，用InternetCloseHandle 函数。
现在来仔细看看每一步：
1、通过调用InternetOpen 函数设置环境。下面是VB特定调用这一函数的声明：
Private 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
参数sAgent 用来指定调用WinINet 函数的应用程序或实体。为了达到目的，可以设置FTP控制。
参数lAccessType 指定我们是直接与某一主机相连还是使用代理服务器相连。如果传递值1，就直接与主机连接。如果传递3，就通过代理服务器。如果传递0，连接时就要基于
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings下的注册表数值
ProxyEnable、ProxyServer和 ProxyOverride 。
我们可以使用参数sProxyName和 sProxyBypass，而不是注册设置来提供代理服务器和不使用代理服务器的IP地址和名字。列出代理的基本格式是rotocol=protocol://proxy_name:access_port？。例如，要指定Proxy1 上的端口21为代理服务器，用Ftp=ftp://Proxy1:21?作为sProxyName。要饶过以ov? 开始的任何主机，sProxyBypass 字符串应为ov*? 。
最后，lFlags 用来显示影响函数结果的不同选择。在我们的例子中，我们传递0。
所以，不使用代理而打开一个Internet session 时，我们的调用是这样的：
lngINet = InternetOpen(“FTP Control”, 1, vbNullString, vbNullString, 0)
如果函数调用失败，lngINet 为0。不然，lngINet 就保存在下一步中将要传递给InternetConnect
函数的句柄的值。
2、通过调用InternetConnect 函数与主机连接。VB特定调用这一函数的声明是：
Private 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
第一个参数hInternetSession 是InternetOpen 调用返回的句柄值。
sServerName 是我们即将连接的FTP服务器的IP地址或主机名。
nServerPort 指示与哪一个端口连接。在我们的例子中使用的值为0，它指示的是默认的端口21。
sUsername 和 sPassword 分别传递用户名和口令。
lService 用来指示使用的服务类型，如HTTP, FTP等。通常传递值为1，表示FTP服务。
如果将x8000000传递到 lFlags 参数，连接将使用被动FTP语义。或者，在我们的例子中，传递0来使用非被动语义。
最后，当使用回叫信号时，lContext 用来识别应用程序的前后关系。因为在我们的例子中不使用回叫信号，所以这个值为0。
现在使用匿名的电子邮件用户名与主机FTP.MICROSOFT.COM 相连接：
lngINetConn = InternetConnect(lngINet, “ftp.microsoft.com”, 0, _
“anonymous”,”ally@wallyworld.com”, 1, 0, 0)
如果函数调用失败，则lngINetConn 为0。反之，lngINetConn 就保存在下一步中将传递给FtpGetFile 的句柄的值。
3、现在我们已经实现了连接，然后就需要调用FtpGetFile 。这个函数完成从一个FTP服务器上读取文件并在本地存储时有关的所有管理功能。VB特定调用这一函数的声明是：
Private 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
第一个参数hFtpSession 是InternetConnect 调用返回的句柄值。
lpszRemoteFile和lpszNewFile 分别是FTP服务器上的文件名和将在本地机上创建的文件名。
fFailIfExists 标志是0（替换本地文件）或1 （如果本地文件已经存在则取消）。
dwFlagsAndAttributes 用来指定本地文件的文件属性。在我们的例子中忽略，只传递0。
dwFlags 参数指定为1是用ASCII 传输文件（A类传输方法），指定为2是用二进制传输文件（1类传输方法）。由于DIRMAP.TXT 是ASCII 文本文件，我们传递值1。
最后，当使用回叫信号时，lContext 用来识别应用程序前后关系。因为在我们的例子中不使用回叫信号，所以这个值为0。
所以，以下是得到DIRMAP.TXT文件并将其存在 C:\DIRMAP.TXT的调用。如果本地文件已经存在，就覆盖它。
blnRC = FtpGetFile(lngINetConn, “dirmap.txt”,”c:\dirmap.txt”, 0, 0, 1, 0)
如果函数调用成功，blnRC为 True, 反之为False。
4、现在文件已经被接收，使用InternetCloseHandle 调用来关闭连接和session 句柄。VB特定调用这一函数的声明是：
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer.
如同指明的一样，此函数只有一个参数hInet，是要关闭或抛弃的句柄的值。因为InternetConnection 和InternetOpen 中有句柄，就需要调用这个关闭函数两次。另外因为InternetConnection 句柄是由InternetOpen 句柄决定的，关闭他们时的顺序与创建时相反。
以下是调用函数：
InternetCloseHandle lngINetConn
InternetCloseHandle lngINet
用这短短的四步就完成了FTP GET。