Блог

Главная - Вопросы по программированию - Получить форму изображения на веб-сайте

Получить форму изображения на веб-сайте

#vba #image #xmlhttprequest

Вопрос:

Пожалуйста, помогите дать несколько советов, если я хочу получить фотографию с веб-сайта. Был написан некоторый код, но он не может получить правильную картину.

 Sub get_pic()

With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https://igtb.bochk.com/index_tc.html"
    Do While .busy
        DoEvents
    Loop
    Do Until .readystate = 4
        DoEvents
        Sleep 2000
    Loop

    Set aaa = .document.all.tags("iframe")(1).contentwindow.document.all.tags("img")
    For j = 0 To aaa.Length - 1
        With CreateObject("MSXML2.XMLHTTP.6.0")
            [a1] = aaa(j).href
            .Open "GET", aaa(j).href, False
            .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            .Send
            strFilename = "C:test.png"
            ByteToFile .responsebody, strFilename
        End With
        Exit For
    Next

End With

End Sub
Function ByteToFile(arrByte, strFilename)
    With CreateObject("Adodb.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .Write arrByte
        .SaveToFile strFilename, 2 'adSaveCreateOverWrite
        .Close
    End With
End Function

я знаю, что это изменится, когда вы откроете любой новый запрос, но есть ли какой-либо способ получить исходную картинку, когда вы откроете эту страницу?

Комментарии:

1. какая фотография? Рисунок вверху выглядит так, как будто он меняется.

2. Пожалуйста, отредактируйте вопрос, чтобы ограничить его конкретной проблемой с достаточной детализацией для определения адекватного ответа.

Метки: