Webbrowserdaki Doğrulama Resmini Forma Aktarma

formdaki webbrowserdan açtığım

 
adresindeki güvenlik anahtarı resmini formdaki bir resimnesnesine aktarmak istiyorum. En hızlı ve basit yolu nedir?  Üstteki Örnek üzerinde  KBS sistemine giriş yapmaya çalıştım. Siteden GÜVENLİK Anahtarı resmini nasıl alıp uygulamaya eklenecek ve şifre girince açılacak bir uygulama tasarlamk istiyorum. Bu örnekten esinlenerek deneme yapıyorum ama olmadı. 
 Yardımlarınız için şimdiden teşekkürler..

---

(01/08/2016, 21:19)umutakkaya yazdı: formdaki webbrowserdan açtığım "https://www.kbs.gov.tr/gen/login.htm" adresindeki güvenlik anahtarı resmini formdaki bir resimnesnesine aktarmak istiyorum. En hızlı ve basit yolu nedir?  Üstteki Örnek üzerinde  KBS sistemine giriş yapmaya çalıştım. Siteden GÜVENLİK Anahtarı resmini nasıl alıp uygulamaya eklenecek ve şifre girince açılacak bir uygulama tasarlamk istiyorum. Bu örnekten esinlenerek deneme yapıyorum ama olmadı. 
 Yardımlarınız için şimdiden teşekkürler..

---

Option Compare Database



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 WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

If WebBrowser1.busy = False Then

Call ResimGetir

End If

DoEvents

End Sub

Private Sub Form_Load()

WebBrowser1.silent = True

WebBrowser1.Navigate2 "https://www.kbs.gov.tr/gen/login.htm"

End Sub



Private Sub Komut10_Click()



Dim Html As HTMLDocument

Dim btn As HTMLButtonElement

Set Html = Me.WebBrowser1.Document



'bu kısımlar çalışıyor sıkıntı yok

HTML.all("user_name").Value = Me.mtn_kullaniciadi.Value

 HTML.all("pass_word").Value = Me.mtn_sistemsifresi.Value

 HTML.all("kaptcha").Value = Me.mtn_guvenlikresmi.Value





DoEvents

HTML.Forms("formA").submit

End Sub



Sub ResimGetir()

'fakat aşağıdaki kodları nasıl ayarlamalıyım ki uyguluma çalışsın

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"

End Sub

sayın umutakkaya, cevaplanmış sorular bölümündeki sorunuzu sorular bölümüne aktardım ve yorumlarınızı birleştirdim.

Örnek uygulamanızı eklerseniz inceleyip yardımcı olabiliriz.

Örnek Dosya ekleyemiyorum. Unutmuşum bir hayli girmemiştim bu siteye. Deneme yapıyorum örnek dosya ekleme için.

---

Option Compare Database



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 WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

If WebBrowser1.busy = False Then

Call ResimGetir

End If

DoEvents

End Sub

Private Sub Form_Load()

WebBrowser1.silent = True

WebBrowser1.Navigate2 "https://www.kbs.gov.tr/gen/login.htm"

End Sub



Private Sub Komut10_Click()



Dim Html As HTMLDocument

Dim btn As HTMLButtonElement

Set Html = Me.WebBrowser1.Document



'bu kısımlar çalışıyor sıkıntı yok

HTML.all("user_name").Value = Me.mtn_kullaniciadi.Value

 HTML.all("pass_word").Value = Me.mtn_sistemsifresi.Value

 HTML.all("kaptcha").Value = Me.mtn_guvenlikresmi.Value





DoEvents

HTML.Forms("formA").submit

End Sub



Sub ResimGetir()

'fakat aşağıdaki kodları nasıl ayarlamalıyım ki uyguluma çalışsın

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"

End Sub

---

kodlar üstte.

Az önceki mesajlarınız Cevaplanmış Sorular bölümünde idi. Cevaplanmış sorular bölümündeki konulara örnek ekleyemezsiniz. 

Örneğinizi şu anda ekleyebilirsiniz. kod değil örnek uygulamanızın ilgili kısmını istiyorum.

[attachment=25357]

Dosyayı ekleyebildim. Cevaplarınızı bekliyorum. Saygılar.