Открыть веб-страницы и сохранить изображение

-1

настоящее время я использую следующий код VBA, чтобы открыть веб-сайт в IE:Открыть веб-страницы и сохранить изображение

Set IE = CreateObject("internetexplorer.application") 
    IE.Visible = True 
    IE.Navigate "http://test.com"

Теперь мне нужно, чтобы загрузить изображение с веб-сайта в формате .gif, который имеет следующий источник (от использования контрольного элемента):

<img src="test.php" align="left">

Любой совет, как я мог это сделать, пожалуйста?

источник

2015-10-14 Rahul

использование URLDownloadToFile функция URLMON, слишком много уроков о том, что функции – milevyo

мне нужно изображение на странице в данный момент времени, это анимированный GIF и сбрасывает каждый раз, когда вы повторно загрузить страницу. – Rahul

После ответа @ milevyo, [Googling around] (https://www.google.com/search?q=URLDownloadToFile&oq=URLDownloadToFile+&aqs=chrome..69i57&sourceid=chrome&es_sm=93&ie=UTF-8#q=urldownloadtofile+vba) находит много перспективных страниц. Вы пробовали смотреть на это? Кроме того, см. Страницу [Chip Pearson's] (http://www.cpearson.com/excel/downloadfile.aspx) при загрузке файлов. – BruceWayne

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (_ 
ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 





Private Sub Command1_Click() 
    Dim sin As String 
    Dim sout As String 

    Dim ret As Long 

    sin = "https://upload.wikimedia.org/wikipedia/commons/0/0e/Balle.gif" 
    sout = Environ("HOMEPATH") & "\Desktop\" & "image.gif" 

    ret = URLDownloadToFile(0, sin, sout, 0, 0) 
    If (ret = 0) Then MsgBox "Succedded" Else MsgBox "failed" 
End Sub

источник

2015-10-14 19:41:32 milevyo

Открыть веб-страницы и сохранить изображение

ответ

Смежные вопросы