vba selenium ile eokuldan fotoğraf alma hk.

merhaba arkadaşlar aşağıdaki kodla vba kendi webbrowseri üzerinden alıyorum fakat vba selenium üzerinden fotoğraf alamıyorum bu konuda yardım edebilirmisiniz nerede hata var
'---------------KULLANDIĞIM KODLAR-----------
Dim i, tmp2, yol, okulno As String
okulno = TextBox1.Text
tmp2 = Sheets("Sayfa1").Range("D" & abc).Value
sınıf = Replace(tmp2, "/", "-")
yol = "C:\okul\"
If Len(Dir(yol, vbDirectory)) = 0 Then
MkDir (yol)
End If
Dim indirildi As Long
indirildi = URLDownloadToFile(0, "https://e-okul.meb.gov.tr/OrtaOgretim/OOMResimGoster.aspx", yol & "\" & okulno & ".jpg", 0, 0)
If indirildi = 0 Then
textAlınan = "Kaydedildi"
Else
textAlınan = "Başarısız"
End If

'----------------------ÜSTTE BULUNAN KODLAR-------------------------------
#If VBA7 Then
Private Declare PtrSafe 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
#Else
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
#End If

.

tamam

merhaba arkadaşlar konu güncel yardımcı olabilecek kimse varmı

tmp2 = baglan.FindElementByXPath("//*[@id='IOMPageHeader1_lblSinif']").Attribute("innerHTML")
sınıf = Left(tmp2, 1) & "-" & Mid(tmp2, 10, 1)
yol = ActiveWorkbook.Path & "\" & sınıf


foto = yol & "\" & (Cells(i, 1)) & ".jpg"

Set screenShot = baglan.FindElementById("IOMPageHeader1_imgOgrenciResim").TakeScreenshot(1000)

screenShot.SaveAs foto

Teşekkür ederim