Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma

Herkese merhabalar.
https://accesstr.net/konu-access-vba-kod...silme.html linkindeki konu ile klasör ekleme ve silme olayını hallettim. Şimdi yapamadığım bir probleme geldi sıra.

Webbrowser üzerindeki resmi uygulama ile aynı dizinde bulunan resimlerim klasörüne kaydedilmesini ve bu resmin formdaki resim kutusuna yansımasını istiyorum. Sayın üstadlarımızdan bu olayın çözümünü rica ediyorum.

Nette aramadığım yer kalmadı, webbrowser ile ilgili bu sitedeki arkadaşlardan başka anlayan bulamadım. Teşekkür ederim.

örnek uygulama veya link ekleyebilir misin?

örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?

İnceleyiniz.

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



Private Sub Komut1_Click()

 Dim HTML_Body, HTML_Img As Object, AlinanResim As Object

        

        Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)

        Set HTML_Img = HTML_Body.getElementsByTagName("img")

        Set AlinanResim = HTML_Img(0)

        

        URLDownloadToFile 0, AlinanResim.src, CurrentProject.Path & "\resimlerim\1.png", 0, 0

        Me.resim1.Picture = CurrentProject.Path & "\resimlerim\1.png"

End Sub

Private Sub Form_Load()

    WebBrowser1.silent = True

    WebBrowser1.Navigate2 "http://www.captcha.net/"

End Sub