关闭

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

标签: vbapiinternetftp服务器string服务器
1479人阅读 评论(0) 收藏 举报

    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", "zym_123456@163.com", 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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:129613次
    • 积分:1625
    • 等级:
    • 排名:千里之外
    • 原创:31篇
    • 转载:0篇
    • 译文:0篇
    • 评论:52条
    文章分类
    最新评论