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..
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.
Hocam teşekkür ederim... Yine çok yardımcı oldunuz..