VB6一行代码下载文件（Post，基于Curl库）

HTTPClient_DownFile_ByPost

说明

基于Curl库,用Post方法下载文件。
支持http和https协议。
支持返回响应头
支持设置超时时间
支持重定向

参数

URL:网址，支持http和https
PostDatas:请求内容
SaveFilePath:文件保存路径
RequestHeaders:向网址发起的请求头
ResponseHeaders:请求后得到的响应头
IsUTF8:是否是UTF8编码。0-非UTF8编码，1-UTF8字符
ConnectTimeOut:连接超时时间，单位秒
TimeOut:总超时时间，单位秒
PostDataAutoEncode:是否自动编码请求内容。比如IsUTF8=1时，自动将Ansi请求字符转码为UTF8字符
RedirectNumber:允许重定向次数

引用

Public Declare Function HTTPClient_DownFile_ByPost Lib "VB6Net.dll" (ByRef URL As String, ByRef PostDatas As String, ByRef SaveFilePath As String, Optional ByRef RequestHeaders As String = "", Optional ByRef ResponseHeaders As String = "", Optional ByVal IsUTF8 As Integer = 1, Optional ByVal ConnectTimeOut As Integer = 5, Optional ByVal TimeOut As Integer = 60, Optional ByVal PostDataAutoEncode As Integer = 1, Optional ByVal RedirectNumber As Integer = 1) As String

示例

Text2.text=HTTPClient_DownFile_ByPost("https://xxxxxx/api/login", "{""account"": ""123456@123.com"",""password"": ""123456""}", App.Path & "\LoginResult.txt")

示例工程

txtLog.Text = "下载文件" & vbCrLf & HTTPClient_DownFile_ByPost("https://xxxxxx/api/login", "{""account"": ""123456@123.com"",""password"": ""123456""}", App.Path & "\LoginResult.txt")

运行结果