Önemli olan doğru elementi bulabilmek diye düşünüyorum. Aslında şöyle bir kodum var ama çalıştıramadım bi türlü..
Dim screenShot As Image
Set screenShot = x.FindElementByClass("g1-frame-inner").FindElementByTag("img").TakeScreenshot(1000)
screenShot.SaveAs (ThisWorkbook.Path & "\resim.jpg")
html_content = driver.page_source
soup = BeautifulSoup(html_content, 'html.parser')
src = soup.find('div', class_='g1-img-wrap mashsb-micro-wrapper').find('img')['src']
print(src)
burada src den sanırım şu şekilde yapman lazım bard öyle diyor
Bard!
' Resim URL'sini değişkene atayın
Dim resimUrl As String
resimUrl = "https://cdn.r10.net/image.php?u=130789&avatartime="
Bard!
' Dosya adını oluşturmak için StrMid fonksiyonunu kullanın
Dim dosyaAdi As String
dosyaAdi = StrMid(resimUrl, InStr(1, resimUrl, "/", vbTextCompare) + 1, _
InStrRev(resimUrl, ".", vbTextCompare) - InStr(1, resimUrl, "/", vbTextCompare) - 1)
' Dosya uzantısını ekleyin
dosyaAdi = dosyaAdi & ".jpg"
Sen resim url yerine yukarda src ye vericen ve print sc ile uğraşmadan net resmi alıyor olman lazım.