AccessTr.neT

Kodları bende merak ettim vallahi... api mi kullandın acaba ? Sakıncası yoksa yayınlarsan çok memnun olurum...

Uzun zamandır siteye giriş yapmıyordum. Burada Yayınlamış olduğum programda küçük bir şeydi.
İçişleri Bakanlığı 01.06.2011 tarihinde kullanmış olduğum servisi kapattığından dolayı programda artık çalışmayacakdır. Bilgilerinize.

Programın Kodları istenmiş. Programda Api ve benzeri nesneler kullanılmamışdır. Sadece İçişleri Bakanlığının Servisi kullanılarak yapılmışdır. Programı vb.net 2008 yazmışdım. Kodları şu şekildir:
Sadece doğrula butonunda olan kodlar başkada kod yok zaten.

Imports tcno.ServiceReference1

Try
Dim sonuc As Boolean
Dim servis As ServiceReference1.KPSPublicSoapClient = New ServiceReference1.KPSPublicSoapClient
sonuc = servis.TCKimlikNoDogrula(tc_no.Text, adi.Text, soyadi.Text, CInt(dogum_tarihi.Value))
If sonuc Then
durum.Text = "DOĞRU"
Else
durum.Text = "YANLIŞ"
End If
Catch ex As Exception
durum.Text = "HATA OLUŞTU!"
End Try