通过xmlhttp下载图片

Question

我正在尝试获取页面上图片的 src 属性，然后下载该图片，这是我的代码

picURL = "https://iofferman.x.yupoo.com/33269655?uid=1"

Set htmlPic = GetHTML(picURL)
Debug.Print Replace(htmlPic.querySelector(".viewer__imgwrap img").getAttribute("src"), "about:", "https:")
Dim myPic As String
myPic = Replace(htmlPic.querySelector(".viewer__imgwrap img").getAttribute("src"), "about:", "https:")
'URLDownloadToFile 0, myPic, ThisWorkbook.Path & "\" & picID & ".jpg", 0, 0
Call SaveWebFile(myPic, ThisWorkbook.Path & "\" & picID & ".jpg")

这个和代码有关

Function GetHTML(ByVal sURL As String) As HTMLDocument
    Dim http As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument
    Set http = New MSXML2.XMLHTTP60
    Set html = New MSHTML.HTMLDocument
    With http
        .Open "Get", sURL, False
        .send
        html.body.innerHTML = .responseText
    End With
    Set GetHTML = html
End Function

这是下载图片的UDF

Function SaveWebFile(ByVal sFile$, ByVal sPath$) As Boolean
    Dim f&, oResp() As Byte
    With CreateObject("MSXML2.ServerXMLHTTP")
        .Open "GET", sFile, False
        .send
        Do While (.readyState <> 4): DoEvents: Loop
        oResp = .responseBody
    End With
    f = FreeFile
    If Dir(sPath) <> "" Then Kill sPath
    Open sPath For Binary As #f
    Put #f, , oResp
    Close #f
End Function

我可以获取图片的链接，例如：https://photo.yupoo.com/iofferman/2d03c9b8/326e8e47.jpg，但是当导航到它时，有时我可以正确获取图片，有时会给出不正确的输出，例如http://adc.yupoo.com/res/703.gif。如何正确下载图片？

Answer 1

您可以通过 ADODB.Stream 下载图片：

Sub DownloadFile(ImageURL, SavePath)

    Dim WinHttpReq As Object

    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", ImageURL, False
    WinHttpReq.send
    
    If WinHttpReq.Status = 200 Then
        Set MyStream = CreateObject("ADODB.Stream")
        MyStream.Open
        MyStream.Type = 1
        MyStream.Write WinHttpReq.responseBody
        MyStream.SaveToFile SavePath, 2 ' 1: Don't overwrite, 2: Overwrite
        MyStream.Close
    End If

End Sub