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 = Nothingeğ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.
![[Resim: kod.jpg]](http://img217.imageshack.us/img217/2761/kod.jpg)
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").Clicksorglama 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).innerTextwebbrowser'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
RequeryMevzuyu 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"
