Skip to main content

AccessTr.neT


Web Üzerinden Tc Kimlik No Sorgulama

Web Üzerinden Tc Kimlik No Sorgulama

#13
Eline sağlık paylaşım için teşekürler
Daha Çok Çalışmam Lazım Çooook !!!!
Cevapla
#14
Lol Lol walla tebrikler süper yapmıssın ama
nasıl yağtığını ben hiç anlamadım mesala bu illeri nereden alıyor bağlanıp siteden mi alıyor hadi illeri aldın bu resmi nasıl aldın siteden bunların biraz anlatırsan bizde yapmaya çalışabiliriz . . .Img-crayImg-crayImg-cray
Son Düzenleme: 25/01/2009, 14:55, Düzenleyen: goodfalles.
Cevapla
#15
Uygulama açıldığı anda webbrowser1’de http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx sitesi açılıyor.

İl Açılır Kutusu’nun (txtil) satır kaynağı İLLER tablosu,


Kod:
WebBrowser1.Document.getElementById("ctlCity").Value = txtil.Value
Yukarıdaki kod il açılır kutusunun güncellenme sonrasında olayına yazılı. Koddaki ctlCity webbrowser1'deki il açılır kutusunun adı, siz il seçtiğinizde seçtiğiniz ile ait (İLLER tablosundaki) İLNO değerini ctlCity’e gönderiyor

Kod:
WebBrowser1.Document.getElementById("ctlQueryFromPersonalInfo").Click
ctlCity’e veri gönderildikten sonra sayfaya ilçeleri yüklemesi için webbrowser1deki ctlQueryFromPersonalInfo isimli isimli buton tıklanıyor ve sayfa yenileniyor. Sayfa yenilendiğinde Resim doğrulama kodu yazılmadı uyarısı webbrowser1’e yansıyor ama buradaki amaç ilçeleri getirmek. Ayrıca ctlCity alanına gönderilen İLNO 3 haneli boşluk02, boşluk09 gibi.

webbrowser1'de ilçeler yenilendiğinde her ilçe için farklı olan İLÇENO webbrowser1'deki ctlDistrict alanına aktarılmak üzere seçiliyor (sorgulama esnasında aktarılacak.) Her ilçeye ait bir numara var, mesela Gümüşhacıköy 1368

Formda il, ilçe, ad ve soyad yazıldıktan sonra resim doğrulama alanına girildiğinde

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(4)

        imgurl = MyImg.src
        
       WebBrowser2.Navigate2 imgurl
   Set HTML_Body = Nothing
   Set HTML_Img = Nothing
   Set MyImg = Nothing
   Set IE = Nothing


Kodu ile webbrowser1’deki resim webbrowser2’ye aktarılıyor.

Forma yazılması gereken diğer veriler yazıldıktan sonra sorgulama yapılması için sorgula1 veya sorgula2 butonunun tıklanması gerekli. Mesela sorgula1 butonunun kodları.


Kod:
Call Sorgu1
WebBrowser2.Visible = False
ProgressBar1.Visible = False
Etiket86.Visible = True
ProgressBar1.Visible = True
Etiket86.Visible = False
For A = 1 To 100
ProgressBar1.Value = A
       For B = 1 To 2000000
    Next B
Next A
  ProgressBar1.Visible = False
    MsgBox "Sorgulama Tamamlandı.", vbInformation, "B İ L G İ "
Call Aktar
If Metin138.Value = "Ad" Then MsgBox "TC KİMLİK NUMARASI BULUNAMADI. BİLGİLERİ VE RESİM DOĞRULAMAYI KONTROL EDEREK TEKRAR DENEYİNİZ", vbInformation, "TC KİMLİK"
DoCmd.GoToControl "RESİMDOĞRULAMA"
Call Aktar
WebBrowser2.Visible = False
WebBrowser3.Visible = False
WebBrowser4.Visible = False
WebBrowser5.Visible = False
WebBrowser6.Visible = False



Buton tıklandığında call Sorgu1 kodundaki

Kod:
WebBrowser1.Document.All("mnbxSecurityCode").Value = RESİMDOĞRULAMA.Value
WebBrowser1.Document.getElementById("ctlCity").Value = txtil.Value
WebBrowser1.Document.getElementById("ctlDistrict").Value = txtilçe.Value
WebBrowser1.Document.All("ctlFirstName").Value = ctlFirstName.Value
WebBrowser1.Document.All("ctlLastName").Value = ctlLastName.Value
WebBrowser1.Document.All("ctlCilt").Value = txtCiltNo.Value
WebBrowser1.Document.All("ctlAileSiraNo").Value = txtAileSıraNo.Value
WebBrowser1.Document.All("ctlSiraNo").Value = txtBireySıraNo.Value
IE.Document.Forms(0).Elements("ctlQueryFromData").Click

Kodları ile forma girilen veriler webbrowser1deki ilgili alanlara aktarılıp webbrowser1’deki ctlQueryFromData isimli sorgulama butonu tıklanıyor ve sorgulama işlemi başlıyor.




call Sorgu1 in hemen altındaki kodlar ile

Kod:
WebBrowser2.Visible = False
ProgressBar1.Visible = False
Etiket86.Visible = True
ProgressBar1.Visible = True
Etiket86.Visible = False
For A = 1 To 100
ProgressBar1.Value = A
       For B = 1 To 2000000
    Next B
Next A
  ProgressBar1.Visible = False
    MsgBox "Sorgulama Tamamlandı.", vbInformation, "B İ L G İ "

gizli olan “NÜFUS VE VATANDAŞLIK İŞLERİ WEB SAYFASINA BAĞLANILIYOR...” yazan etiket açılıyor ve Progressbar çalıştırılıyor, sorgulama sonucu yenilenen webbrowser1’e aktarılıyor.

bu işlem bitince formda “Sorgulama Tamamlandı” yazan mesaj kutusu açılıyor. Tamam tıklandığında

Kod:
Dim IE As Object
Set IE = Me.WebBrowser1
Me.Metin147 = IE.Document.All.tags("table").Item(17).Rows(0).Cells(1).innerText
Me.Metin148 = IE.Document.All.tags("table").Item(18).Rows(0).Cells(1).innerText
Me.Metin149 = IE.Document.All.tags("table").Item(18).Rows(0).Cells(3).innerText
Me.Metin159 = IE.Document.All.tags("table").Item(18).Rows(1).Cells(1).innerText
Me.Metin161 = IE.Document.All.tags("table").Item(18).Rows(1).Cells(3).innerText
Me.Metin163 = IE.Document.All.tags("table").Item(18).Rows(2).Cells(1).innerText
Me.Metin165 = IE.Document.All.tags("table").Item(18).Rows(2).Cells(3).innerText
Me.Metin167 = IE.Document.All.tags("table").Item(18).Rows(3).Cells(1).innerText
Me.Metin169 = IE.Document.All.tags("table").Item(18).Rows(3).Cells(3).innerText
Me.Metin171 = IE.Document.All.tags("table").Item(18).Rows(4).Cells(1).innerText
Me.Metin173 = IE.Document.All.tags("table").Item(18).Rows(4).Cells(3).innerText
Me.Metin175 = IE.Document.All.tags("table").Item(18).Rows(5).Cells(1).innerText
Me.Metin177 = IE.Document.All.tags("table").Item(18).Rows(5).Cells(3).innerText
Metin138.Value = Mid(WebBrowser1.Document.All.tags("table").Item(15).innerText, 18, 2)
Set IE = Nothing

Üstteki Call Aktar kodu çalışıyor. Bu Koddaki Metin147 formdaki tckimlikno’nun aktarılacağı alan,
Kod:
IE.Document.All.tags("table").Item(17).Rows(0).Cells(1).innerText
ise webbrowser1deki tablodaki tckimlikno’nun bulunduğu satır. Kod tamamlandığında webbrowser1’de bulunan veriler formda bulunan alanlara aktarılıyor. Bu aktarma işlemi sırasında call aktar kodunda bulunan

Kod:
Metin138.Value = Mid(WebBrowser1.Document.All.tags("table").Item(15).innerText, 18, 2)
Kodu ile, sorgulama işlemi gerçekleştikten sonra, kayıtlı kişi bulunamadıysa Metin138’e “Ad” harfleri aktarılıyor. Sorgulama sonucu kişi bulundu ise metin138 boş kalıyor

Kod:
If Metin138.Value = "Ad" Then MsgBox "TC KİMLİK NUMARASI BULUNAMADI. BİLGİLERİ VE RESİM DOĞRULAMAYI KONTROL EDEREK TEKRAR DENEYİNİZ", vbInformation, "TC KİMLİK"
Yukarıdaki kod ile tc kimlik numarasının bulunamadığı uyarısı yapılıyor, Eğer Metin138 boş ise call aktar kodu tamamlanıp webbrowser1deki alanlar forma aktarılıp sorgulama işlemi tamamlanıyor.

Ayrıca forma veri girilirken doğum yılı TARİHLER tablosundan alınıyor,
Kod:
If Me.txtCinsiyet.Value = "Erkek" Then Me.cboCinsiyet.Value = "E" Else Me.cboCinsiyet.Value = "K"
Kodu ile cinsiyet Erkek seçildiğinde webbrowser1'e "E" aktarılıyor.


Bu uygulama trafiğe kapalı alanda yapılmıştır, sağlığınız için evde denemeyiniz.
Cevapla
#16
Ellerinize sağlık çok teşekkürler
Cevapla
#17
sayın sledgeab,
elinize sağlık çok nefis bir program ayrıca sayın simendifer'inde eklemesi güzel olmuş.
bu bilgi girilip sonuç alabileceğimiz bir siteye yapılan bağlantı. biz meteoroloji sitesine (http://www.meteor.gov.tr/tahmin/il-ve-ilceler.aspx ) bağlanıp il ve ilçeler için hava tahminlerini ve oradaki ilgili resimleri nasıl alabiliriz?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#18
(08/06/2009, 07:54)kadirdursun yazdı: sayın sledgeab,
elinize sağlık çok nefis bir program ayrıca sayın simendifer'inde eklemesi güzel olmuş.
bu bilgi girilip sonuç alabileceğimiz bir siteye yapılan bağlantı. biz meteoroloji sitesine (http://www.meteor.gov.tr/tahmin/il-ve-ilceler.aspx ) bağlanıp il ve ilçeler için hava tahminlerini ve oradaki ilgili resimleri nasıl alabiliriz?


Aşağıdaki linki inceleyiniz.

https://accesstr.net/konu-web-uzerinden-...rgula.html
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task