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
