formun yüklendiğinde olayına
Kod:
WebBrowser1.Navigate2 "http://www.ysk.gov.tr/ysk/secmenBilgi.jsp"
sorgulama kısmı için 2 metin kutusu ve 1 buton ekliyoruz.
metin kutularının isimleri "RESİMDOĞRULAMA" ve "TcKimlik"
butonun adı "Komut22"
resim doğrulama kısmı için 2. webbrowser ekliyoruz. Adı "WebBrowser2"
formdaki resim doğrulama alanına girildiğinde olayına
Kod:
Dim HTML_Body As Object, HTML_Img As Object, MyImg As Object
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.GetElementsByTagName("img")
Set MyImg = HTML_Img(0)
imgurl = MyImg.src
WebBrowser2.Navigate2 imgurl
Set HTML_Body = Nothing
Set HTML_Img = Nothing
Set MyImg = Nothing
Set IE = Nothing
eğer formdaki doğrulama resmine (webbrowser2) farklı bir resim gösterirse koddaki 0'ı değiştireceksiniz. formdaki kaçıncı resim olduğunun bilinmesi zor, o yüzden deneme-yanılma ile buluyoruz. bizim web sayfamızda sadece 1 tane resim olduğu için 0 yazdık.
sorgulama sayfasını sağ tıklayıp "Sayfa Kaynağını Göster"i tıklayıp web sayfasının sayfa kaynağını açıyoruz.
Resimde de görüldüğü gibi bu sayfada "name" tanımlandığı için resim doğrulama alanının "bilmece", tckimlikno alanının "kimlikNo", sorgulama butonunun adını "sorguTipiTC" olduğunu görüyoruz.
formdaki sorgulama butonuna aşağıdaki kodu yazıyoruz.
Kod:
WebBrowser1.Document.All("kimlikNo").Value = TcKimlik.Value
WebBrowser1.Document.All("bilmece").Value = RESİMDOĞRULAMA.Value
WebBrowser1.Document.All("sorguTipiTC").Click
sorglama sonucunun gösterildiği web sayfasının kaynak kodunu açıyoruz.
kaynak koddaki <TABLE> ile </TABLE> arasını enot defterine veya frontpage'ye kopyalıyoruz. Buradaki sorgu sonucundaki ad, soyad, tckimlikno ve adres bilgilerinin yazıldığı satırlara göre aşağıdaki kodu yazıyoruz.
Kod:
Me.txtTcKimlik = IE.Document.All.tags("table").Item(0).Rows(0).Cells(1).innerText
Me.txtSoyadi = IE.Document.All.tags("table").Item(0).Rows(2).Cells(1).innerText
Me.txtAdi.Value = IE.Document.All.tags("table").Item(0).Rows(4).Cells(1).innerText
Me.txtAdres.Value = IE.Document.All.tags("table").Item(0).Rows(7).Cells(1).innerText
webbrowser'a veri göndermek ve aynı vebbrowserdaki sonuç verisini alırken çakışma olmaması için forma "ProgressBar" ekleyip Komut22'nin tıklandığında olayında
Kod:
WebBrowser1.Document.All("kimlikNo").Value = TcKimlik.Value
WebBrowser1.Document.All("bilmece").Value = RESİMDOĞRULAMA.Value
WebBrowser1.Document.All("sorguTipiTC").Click
Etiket86.Visible = False
ProgressBar1.Visible = True
For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 100000
Next B
Next A
MsgBox "Girdiğiniz TC Kimlik Numarası Sorgulansın mı?", 48, "UYARI"
ProgressBar1.Visible = False
Call Aktar
Requery
Mevzuyu anlatmaya çalıştım ama bu şekilde aydınlatıcı oldumu emin değilim.
web üzerinden sorgulama uygulaması yapacak arkadaşlara tek tavsiyem: "UZAK DURUN"