Webbrowserdaki Doğrulama Resmini Forma Aktarma

1 2 3
01/08/2016, 21:19

umutakkaya

formdaki webbrowserdan açtığım

 
Kod:
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..

(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
01/08/2016, 21:46

ozanakkaya

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.
01/08/2016, 21:48

umutakkaya

Ö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.
01/08/2016, 21:51

ozanakkaya

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.
01/08/2016, 21:56

umutakkaya

01/08/2016, 21:58

umutakkaya

Dosyayı ekleyebildim. Cevaplarınızı bekliyorum. Saygılar.
1 2 3