Web Adresindeki Tüm Resim Adreslerini Listeleme

Bir Web adresindeki tüm resim adreslerini listelemek için bu kodları kullanabilirsiniz.

'*******************************************
'**                ¯/ /¯/ / ¯/              **
'** MuratOSMA ©  /¯  / / / ¯/  ExcelVBA.Net  **
'**              ¯   ¯    ¯                 **
'*******************************************
Sub Tüm_Resim_Adreslerini_Al()
    Dim ie As Object, doc As Object, i As Integer
    Set ie = CreateObject("InternetExplorer.Application")
    Set doc = CreateObject("MSXML2.XMLHTTP")
    ie.navigate "http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=istanbul"
    Do While ie.ReadyState <> 4: DoEvents: Loop
    Set doc = ie.document: a = 1
    For i = 1 To doc.images.Length
        If doc.images(i - 1).nodeName = "IMG" And _
           doc.images(i - 1).fileSize > 0 Then
           Cells(a, "A") = doc.images(i - 1).href
           a = a + 1
        End If
    Next i: ie.Quit
    Set doc = Nothing: Set ie = Nothing: i = Empty
End Sub

Hoşça kalın !