Skip to main content

AccessTr.neT


Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma

access_delisi
access_delisi
3
2940

Web Browserdaki Resmi Kaydetme ve Resim Kutusuna Aktarma

Çözüldü #1
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.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #2
örnek uygulama veya link ekleyebilir misin?
Cevapla
Çözüldü #3
örnek uygulama diger makinada kaldi. http://www.captcha.net/ linkindeki resim alınabilirmi?
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
Çözüldü #4
İ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
.rar webbrowser.rar (Dosya Boyutu: 94,57 KB | İndirme Sayısı: 83)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task