<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
