+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Webbrowserdaki Doğrulama Resmini Forma Aktarma (/konu-webbrowserdaki-dogrulama-resmini-forma-aktarma.html)
Webbrowserdaki Doğrulama Resmini Forma Aktarma - umutakkaya - 01/08/2016
formdaki webbrowserdan açtığım
Kod:
https://www.kbs.gov.tr/gen/login.htmYardı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
Cvp: Webbrowserdaki Doğrulama Resmini Forma Aktarma - ozanakkaya - 01/08/2016
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.
Cvp: Webbrowserdaki Doğrulama Resmini Forma Aktarma - umutakkaya - 01/08/2016
Ö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.
Cvp: Webbrowserdaki Doğrulama Resmini Forma Aktarma - ozanakkaya - 01/08/2016
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.
Cvp: Webbrowserdaki Doğrulama Resmini Forma Aktarma - umutakkaya - 01/08/2016
KBS_Giris.rar
(Dosya Boyutu: 33,91 KB | İndirme Sayısı: 18)
Cvp: Webbrowserdaki Doğrulama Resmini Forma Aktarma - umutakkaya - 01/08/2016
Dosyayı ekleyebildim. Cevaplarınızı bekliyorum. Saygılar.