<td class="dataGridActive" align="center">

<img id="dgListe_imgResim_0" src="OKLResimGosterListe.aspx?dataTC=13737636912" *****color:#0000C0;border-width:1px;border-style:Solid;height:171px;width:133px;">

</td>

Hocam; yukarıdaki kodda da gördüğünüz gibi src kodu içerisinde resmin uzantısı belirtilmiyor.


Şu kod ile alıyormuşum gibi oluyor ancak resimler bozuk ve hep aynı büyüklükte oluyor.

Sub OgrenciResimAl()



    Dim sinifObj, tarihObj, saatObj, subeObj, ogretmenObj  As Variant

    Dim doc As HTMLDocument

    Set objShell = CreateObject("Shell.Application")

    IE_count = objShell.Windows.Count

    For X = 0 To (IE_count - 1)

        On Error Resume Next

        my_url = objShell.Windows(X).document.Location

        my_title = objShell.Windows(X).document.Title

      If my_url Like "https://e-okul.meb.gov.tr/OrtaOgretim/OKL/OOK05002.aspx" Then

            Set IE = objShell.Windows(X)

            Set doc = IE.document

            Exit For

        Else

        End If

    Next





    Dim theTable As Object



    Dim t As Variant

    Dim k As Integer

    Dim A As Integer

    Dim HTML_Img As Object, AlinanResim As Object

    Dim TempDir As String

    Dim ResimYolu As Variant

    Dim Klasör, KlasörYolu As Variant, Buldum, Aranan, Devam As Variant





    k = 1

    Set theTable = doc.getElementById("dgListe").getElementsByTagName("img")

    

    For Each t In theTable

    

        Set Klasör = CreateObject("Scripting.FileSystemObject")

        KlasörYolu = ThisWorkbook.Path & "\" & "Resimler"

        Buldum = Klasör.folderexists(KlasörYolu)

        If Buldum = False Then

            Klasör.createfolder KlasörYolu

        Else

        End If

    

        TempDir = Environ("Temp")

       URLDownloadToFile 0, t.src, TempDir & "\" & "1.jpg", 0, 0

        URLDownloadToFile 0, t.src, KlasörYolu & "\" & Mid(t.src, InStr(1, t.src, "=") + 1, 11) & ".jpg", 0, 0



        k = k + 1

    Next t

    DoEvents

                

End Sub