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

原创 2007年09月28日 13:44:00

    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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

简单WinInet FTP客户端编程

  • 2012年04月23日 23:02
  • 134KB
  • 下载

基于WinInet 的FTP客户端实现

  • 2012年05月23日 15:20
  • 4.44MB
  • 下载

最简单的FTP客户端、服务器端

最简单的FTP客户端、服务器端

基于qt实现的简单FTP客户端

  • 2015年07月06日 22:48
  • 32KB
  • 下载

java简单的FTP客户端

[Java]简单的FTP客户端 sun.net.ftp.FtpClient 某些数据交换,我们需要通过ftp来完成。 sun.net.ftp.FtpClient 可以帮助我们进行一...

2012.06.12写一个简单的FTP客户端

从一本书上抄写关于FTP的一个上传文件的时候出现了不少问题,下面出现的各问题和从网上那个找到的解决方案。 1.不能将参数1 从“const char [3]”转换为“LPCTSTR” ...

FTP客户端简单例程

这一次我自己在Linux下写了一个简单的FTP客户端,支持的操作只有那些最常用的,以后如果有必要,这个程序可以移植到POS机下面。这个程序已经通过简单的一些测试,目前实现的操作有:ls, dir, p...

c#实现的一个简单的FTP客户端

前段时间完成的网络编程的大作业,附上源码,课程报告. 附件里面含有:ftpclient源代码,一个简易的FTP服务器,用于测试,课程报告. 网络编程大作业报告 一.设计题目:基于Socket...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB使用WinInet API创建简单FTP客户端
举报原因:
原因补充:

(最多只允许输入30个字)