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

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

(转)VB WinInet 函数用法详解

WinInet WinInet(「Windows Internet」)API帮助程序员使用三个常见的Internet协议,这三个协议是:用于World Wide Web万维网的超文本传输协议(H...
  • Joe_wang
  • Joe_wang
  • 2010年10月27日 12:41
  • 3364

用WinINet Api 开发FTP客户端 (二)

FTP WinApi 函数详解FTP 各函数间的关系 各FTP函数工作时需要用到InternetConnect创建的FTP会话句柄。而InternetConnect函数需要用到由InternetOpe...
  • bobo1394
  • bobo1394
  • 2005年08月06日 11:37
  • 8734

wininet 实现ftp上传

wininet 实现ftp上传
  • hellochenlian
  • hellochenlian
  • 2015年02月28日 16:48
  • 1416

VC++利用WinInet技术开发FTP客户端程序

摘要:WinInet是微软MFC类库提供的Win32Internet扩展接口,利用WinInet开发人员可以方便地编写出Internet客户端程序。本文主要阐述利用WinInet在VC 2005中实现...
  • educast
  • educast
  • 2014年09月10日 08:58
  • 3165

用WinINet Api 开发FTP客户端 (一)

FTP Sessions FTP 会话The Win32 Internet functions can be used to provide applications with the ability...
  • bobo1394
  • bobo1394
  • 2005年08月05日 17:15
  • 3619

用WinINet Api 开发FTP客户端 (三) ------ 完整代码

Option ExplicitPublic Const MAX_PATH = 260                            是由MFC定义的不要更改Public Const INTE...
  • bobo1394
  • bobo1394
  • 2005年08月07日 12:03
  • 4416

[Visual Basic]vb调用winInet API接口post数据到指定的url

『vb调用winInet API接口post数据到指定的url』This module is called modWinInet.bas. Use the SplitAddr() function t...
  • shines
  • shines
  • 2000年12月20日 02:16
  • 2543

用wininet实现ftp协议

#include #include #include #pragma comment(lib, "WinInet.lib") int main() {      // 建立会话  ...
  • wljlwyq
  • wljlwyq
  • 2014年10月12日 17:37
  • 713

通过WinInet API来实现表单提交并设置获取COOKIE

     可以尝试通过 HttpAddRequestHeaders 来添加自已的COOKIE:char * lpszHeaders = "Cookie: Key=somevalue";DWORD dw...
  • lbird
  • lbird
  • 2007年03月13日 14:45
  • 7881

用WinINet Api 开发FTP客户端

 Option ExplicitPublic Const MAX_PATH = 260                            是由MFC定义的不要更改Public Const INT...
  • Torrice
  • Torrice
  • 2006年01月20日 14:18
  • 2585
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB使用WinInet API创建简单FTP客户端
举报原因:
原因补充:

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