Webbrowser Olmadan Resim Kaydetmek

Forma ekledigim webbrowserda gorunen resmi @ozanakkaya hocanin yardimiyla bilgisayarima kaydedebilyorum resimi webbrowser olmadan nasıl kaydedebilirim

Merhaba,

Dim myURL As String

Dim WinHttpReq As Object



myURL = "https://accesstr.net/images/logo-amp-buyuk.png"





Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")



WinHttpReq.Open "GET", myURL, False, "username", "password"

WinHttpReq.send



myURL = WinHttpReq.responseBody

If WinHttpReq.Status = 200 Then

    Set oStream = CreateObject("ADODB.Stream")

    oStream.Open

    oStream.Type = 1

    oStream.Write WinHttpReq.responseBody

    oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwrite

    oStream.Close

End If

şeklinde kod kullanabilirsin. resimadi.png yerine resmin kaydedileceği adı veya değişkeni yazabilirsin.

---

Sayın @"accessdelisi" çözüm işinize yaradı mı acaba?

merhaba @ozanakkaya hocam verdigin kodu yeni uyguladım ancak tum resimleri resimadi.png seklinde kaydediyor, formdaki tc_kimlik isimli metin kutusundaki isim olmasi için ne yapmaliyim?

Sayın @"accessdelisi", 

oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwrite

kodunu aşağıdaki ile değiştirerek deneyiniz.

oStream.SaveToFile CurrentProject.Path & "\" & tc_kimlik , 2 ' 1 = no overwrite, 2 = overwrite

kodun son hali icin tesekkur ederim. konu cozulmustur