Skip to main content

AccessTr.neT


Webbrowserdaki Resim

Webbrowserdaki Resim

Çözüldü #1
formdaki webbrowserdan açtığım "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap" adresindeki güvenlik anahtarı resmini formdaki bir resim nesnesine aktarmak istiyorum. En hızlı ve basit yolu nedir?
Yardımlarınız için şimdiden teşekkürler..
Cevapla
#2
En basit yol aşağıdaki örnek uygulamada mevcuttur.

Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
Dim TempDir As String     
       Set HTML_Body = WebBrowser1.Document.all.tags("Body").Item(0)
       Set HTML_Img = HTML_Body.getElementsByTagName("img")
       Set AlinanResim = HTML_Img(14)
       TempDir = Environ("Temp")
       
       URLDownloadToFile 0, AlinanResim.src, TempDir & "\1.png", 0, 0
       Me.resim1.Picture = TempDir & "\1.png"

option compare database
kodunun altındaki

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

kodunu da kendi uygulamanıza ekleyiniz. Bu kod ile webbrowserdaki resim temp klasörüne kaydedilir.

Ayrıca,giriş butonunu tıklamak için "HTML.Forms("formA").submit" kodunu kullanmalısınız, aksi takdirde yeni Html sayfası açılır.
.rar ssk giris_sld.rar (Dosya Boyutu: 30,73 KB | İndirme Sayısı: 7)
Cevapla
#3
Hocam teşekkür ederim... Yine çok yardımcı oldunuz..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task