Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Tc Kimlik No İle Veri Gösterme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

İki tarih arasındaki gün farkını bulma

Yazar: onur inan
İki tarih arasındaki gün farkını bulmak için yazdığım bu kod önce ayları sonra da yılları güne çevirip birbirinden çıkarıyorum... Tabii bu arada artık yıl meselesini de unutmamak gerek.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7504
Yayın Tar:12.08.2006
Yazar : murat4
Hit :3764

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

<%

Dim TCKimlikNo
TCKimlikNo = 111111111111 // KİMLİK NUMARAMIZI BURAYA YAZIYORUZ

Function XMLWebservices(ByVal KimlikNo)
Dim SOAP
SOAP = " < ?xml version=""1.0"" encoding=""utf-8""?> "&_
" < soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/""> "&_
" < soap:Body> "&_
" < TCKimlikNoDogrula xmlns=""http://kps.nvi.gov.tr/WS/Public""> "&_
" < tcKimlikNo> "& KimlikNo &" < /tcKimlikNo> "&_
" < /TCKimlikNoDogrula> "&_
" < /soap:Body> "&_
" < /soap:Envelope> "

Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP")
objWebServices.Open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx", False
objWebServices.setRequestHeader "Content-Type", "Text/xml; charset=utf-8"
objWebServices.setRequestHeader "soapAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula"
objWebServices.Send(SOAP)

Dim Text
If objWebServices.readyState = 4 Then
If objWebServices.Status = 200 Then
Text = objWebServices.responseText
End If
End If

Set objWebServices = Nothing

XMLWebservices = Text
End Function

Dim Sonuc
Sonuc = Trim(XMLWebservices(TCKimlikNo))

If (Len(Sonuc) <> 0) Then

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.loadxml(Sonuc)
Set objNODE = objXML.selectSingleNode("soap:Envelope/soap:Body/TCKimlikNoDogrulaResponse/TCKimlikNoDogrulaResult")
Response.Write " < b> Kimlik No : < /b> "& objNode.childNodes.item(0).Text &" < br /> < br /> "& vbCrlf
Response.Write " < b> Isim : < /b> "& objNode.childNodes.item(1).Text &" < br /> < br /> "& vbCrlf
Response.Write " < b> Soyad : < /b> "& objNode.childNodes.item(2).Text &" < br /> < br /> "& vbCrlf
Response.Write " < b> Doğum Tarihi : < /b> "& objNode.childNodes.item(3).Text &" < br /> "& vbCrlf

Set objNODE = Nothing
Set objXML = Nothing

Else
Response.Write "Girdiğiniz Bilgi Doğrulanamadı!"
End If %>
onaylayan: Webmaster




Yorumlar, eklemeler ve düşünceler
        aman bu da bişey mmi daha akıcı olmaya çalışsak daha ii olacak sanırım yinede teşekkürler

   cemildagli, 15.08.2006 12:57
   çalıştramadım yardımcı olursanız sevinirim



   eloxor334, 22.08.2006 18:15
   Merak ediyorum. Bu denenmiş bir kod mu?

   Poisson, 23.09.2006 18:06
   sanırım bu bir asp kodu ve,
bir serverda çalışır.

ayrıca biraz emeğe saygılı olun ya.
sizin işinize yaramıyor diye program kötü mü olacak yani.

   telefen117, 21.10.2006 23:20
   Bu Program Alıntı mı ?

   Bakteri, 15.11.2006 19:37
   güzel olmus

   azrail, 14.03.2007 10:25
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin