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

HTTPClient_DownFile

说明

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

参数

URL:网址，支持http和httpsSaveFilePath:文件保存路径RequestHeaders:向网址发起的请求头ResponseHeaders:请求后得到的响应头ConnectTimeOut:连接超时时间，单位秒TimeOut:总超时时间，单位秒RedirectNumber:允许重定向次数

引用

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

示例

Text2.text=HTTPClient_DownFile("https://www.baidu.com", App.Path & "\Baidu.txt")

示例工程

txtLog.Text = "*载下**文件" & vbCrLf & HTTPClient_DownFile("https://www.baidu.com/", App.Path & "\Baidu.txt")

运行结果

*载下**结果

*载下**文件的内容