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
'---------------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