VB使用WinInet API创建简单FTP客户端

    Option Explicit
   
'************************************************************************************
'打开连接Internet的会话
'************************************************************************************
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--要调用Internet对话的应用程序名
'    lAccessType--请求的网络访问的类型，包括：
'************************************************************************************
'        常量                                                          值         说明
'        INTERNET_OPEN_TYPE_PRECONFIG        0          预配置（缺省）
'        INTERNET_OPEN_TYPE_DIRECT               1          直接连接到Internet
'        INTERNET_OPEN_TYPE_PROXY                3          通过代理服务器连接
'************************************************************************************
'    备注：如果lAccessType设置为INTERNET_OPEN_TYPE_PRECONFIG，连接时就要基于
'    HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings
'    注册表路径下的注册表数值ProxyEnable、ProxyServer和 ProxyOverride
'************************************************************************************
'    sProxyName--指定代理服务器的名字，访问类型设置为INTERNET_OPEN_TYPE_PROXY才有效
'    sProxyBypass--指定代理服务器的名字或地址，有设置此项时lpszProxyName指定的将失效
'    lFlags--会话的选项，可包括下列值：
'************************************************************************************
'        常量                                                         值          说明
'        INTERNET_FLAG_DONT_CACHE                           不对数据进行本地缓冲或通过网关服务器缓冲
'        INTERNET_FLAG_ASYNC                                      使用异步连接
'        INTERNET_FLAG_OFFLINE                                   只通过永久缓冲进行下载操作
'************************************************************************************
'函数返回值：如果函数调用失败，lngINet 为0。
'************************************************************************************

'************************************************************************************
'建立Internet连接，打开FTP会话
'************************************************************************************
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返回的Internet会话句柄
'    sServerName--要连接的服务器的名称或IP
'    nServerPort--要连接的Internet端口
'    sUsername--登录的用户帐号
'    sPassword--登录的口令
'    lService--要连接的服务器类型（这里是连接FTP服务器，连接的类型为常数INTERNET_SERVICE_FTP）
'    lFlags--如果传递x8000000，连接将使用被动FTP语义，传递0使用非被动语义
'    lContext--当使用回调函数时使用该参数，不使用回调服务传递0
'************************************************************************************
'函数返回值：如果函数调用失败，lngINetConn 为0
'************************************************************************************

'************************************************************************************
'从FTP服务器上下载一个文件
'************************************************************************************
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返回的Internet连接句柄
'    lpszRemoteFile--想要获得的FTP服务器上的文件名
'    lpszNewFile--要保存在本地机器中的文件名
'    fFailIfExists--0（替换本地文件）或1 （如果本地文件已经存在则调用失败）。
'    dwFlagsAndAttributes--用来指定本地文件的文件属性，传递0忽略
'    dwFlags--文件的传输方式可能包括下列值：
'************************************************************************************
'        常量                                                         值          说明
'        FTP_TRANSFER_TYPE_ASCII                   1           用ASCII 传输文件（A类传输方法）
'        FTP_TRANSFER_TYPE_BINARY                 2           用二进制传输文件（B类传输方法）
'************************************************************************************
'    dwContext--要取回的文件的描述表标识符
'************************************************************************************
'函数返回值：如果函数调用失败，blnRC 为FALSE
'************************************************************************************

'************************************************************************************
'关闭Internet连接
'************************************************************************************
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
'************************************************************************************
'说明：
'************************************************************************************
'hInet--要关闭的会话（InternetOpen）或连接（InternetConnect）句柄
'************************************************************************************
'函数返回值：
'************************************************************************************

'************************************************************************************
'常量定义
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_SERVICE_FTP = 1
Const FTP_TRANSFER_TYPE_BINARY = &H2
Const FTP_TRANSFER_TYPE_ASCII = &H1
'************************************************************************************

   
Private Sub Command1_Click()
    Dim lngINet As Long, lngINetConn As Long, blnRC As Boolean
   
    '打开连接Internet的会话
    lngINet = InternetOpen("FTP Control", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    If lngINet Then MsgBox "OK1"
   
    '建立Internet连接，打开FTP会话
    lngINetConn = InternetConnect(lngINet, "ftp.cdut.edu.cn", 0, "anonymous", "[e-mail]", INTERNET_SERVICE_FTP, 0, 0)
    If lngINetConn Then MsgBox "OK2"
   
    '从FTP服务器上下载一个文件
    blnRC = FtpGetFile(lngINetConn, "welcome.txt", "d:/1.txt", False, 0, FTP_TRANSFER_TYPE_ASCII, 0)
    If blnRC Then MsgBox "OK3"
   
    InternetCloseHandle lngINetConn
    InternetCloseHandle lngINet
End Sub