Açılan web sayfasında görüntülenen belirli resmi indirmek

[tigiy]

Merhaba,

https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap bu linkteki doğrulama kodunu aşağıdaki kodlar ile indiriyorum. Ancak benim amacım doğrulama kodunu çözmek için o an açık olan sayfadaki doğrulama kodunu indirmek.

Konu hakkında yardımlarınızı rica ediyorum

Teşkkürler

Sub test()

Dim url As String, FileName As String

url = "https://uyg.sgk.gov.tr/SigortaliTescil/PG?"

FileName = ThisWorkbook.Path & "\guvenlik_kodu.jpg"

Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
    If lngRetVal <> 0 Then
    MsgBox "resim şu adresten indirilemedi " & url & " to " & FileName
    End If

End sub