T.C.kimlik numarasına göre diğer bilgilerin aktarılması

[gezgin-49]

arkadaşlar ekte gönderdiğim tabloda L3 hücresine T.C.Kimlik numarasını yazdığım zaman şahsa ait diğer bilgilerin tabloda belirttiğim sıra üzerine diğer hücrelere aktarılması gerekiyor, bu konuda yardımlarınızı bekliyorum, ilgilenen arkadaşlara şimdiden minnet ve şükranlarımı iletirim. saygılar.

 

[Haluk]

internette hangi sayfadan bilgiler alınacak ?

 

[gezgin-49]

internette T.C.Kimlik numarası sorgulama ile ilgili sayfadan aldığı verileri excel sayfasına aktarılması gerekiyor, benim istediğim köprüleme usulü ile şahsa ait bilgilere ulaşma değil, bilakis buradaki bilgileri excel sayfasına sanki bu bilgileri manuel elle girilmiş gibi yazılmasını istiyorum. inşaallah yapmak istediğimi anlatabilmişimdir, saygılar sunuyorum.

 

[Haluk]

İlgi sitede yani ;

http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx

Bu sayfada "resimli güvenlik kodu" uygulaması olduğu için, bu istediğiniz yapılamaz.

Bunun haricinde bir link biliyorsanız buraya yazın, üzerinde çalışalım ...

 

[Merhum İdris SERDAR]

İlgi sitede yani ;

http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx

Bu sayfada "resimli güvenlik kodu" uygulaması olduğu için, bu istediğiniz yapılamaz.

Bunun haricinde bir link biliyorsanız buraya yazın, üzerinde çalışalım ...

İşte... Benim kafam da buna takılmıştı. Bu iş nasıl olacak diye? Resimli güvenlik kodunu görmemezlikten gelecek bir kod var mı diye?


Sayın Haluk, Teşekkürler.

..

 

[gezgin-49]

Sayın Haluk üstadım sabahtan beridir arıyorum, hepsinde resimli güvenlik kodu istiyor, baktığım sitelerin hemen hemen hepsi sizin gönderdiğiniz linkten veri alıyor, ben bulamadım, acaba forumdaki arkadaşların önerecekleri bir site varmı veya bu resimli güvenlik kodunu aşma ile ilgili bir bilgileri varmı, bu konuda şahsınızdan ve diğer üstad arkadaşlarımdan yardım bekliyor, saygılar sunuyorum.

 

[Haluk]

Sözkonusu sayfayı her güncellediğinizde güvenlik gereği sayfa üzerindeki dinamik resim değişmektedir.

Örneğin, resimdeki;

31941'in kodu JTiWuvbp3%2fo

41179'un kodu dYESNjbDXM8

55129'un kodu 3UrvNnZMPz

....
...

gibi.

Denemek için aşağıdaki linke tıklayabilirsiniz;

http://tckimlik.nvi.gov.tr/Web/KPSImages.axd?type=dynamicimage&Val=3UrvNnZMPzI=

Linki tıklarsanız, 55129 güvenlik resmini göreceksiniz.

Biz, alfanumerik karakterlerden oluşan kodları alabiliyoruz ama onların karşılığı olan nümerik değeri bulabilmek için, yukarıda verdiğim örnekler arasındaki algoritmayı çözmek gerekiyor.

Tahmin edeceğiniz gibi, bu algoritmanın çözülmesi yasal olmayıp tamamen hacker' lık kapsamında bir olaydır ve Devletimize ait bir sitedeki böyle bir konuya ise bu forumda çözüm aramak mümkün değildir, asla böyle birşey olamaz.

 

[gezgin-49]

Sayın Haluk üstadım ve sayın Yurttaş üstadım ilgi ve alakanızdan dolayı sizlere çok teşekkür ediyorum, Allah sizlerden razı olsun, bizde eski karadüzen devam ederiz, sağlık olsun, saygılar sunuyorum.

 

[halilsoft]

http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx
daki resimli kodu userforma aktarabilirmiyiz
yardımlarınız için teşekkürler...

 

[Haluk]

Bunun için ekli dosyadaki UserForm'u çalıştırın.

UserForm üzerindeki butona her tıkladığınızda, siteye yeniden bağlanacağı için yeni güvenlik resmi UserForm üzerinde görüntülenecektir...

 

[halilsoft]

saol eline sağlık çok işime yaradı

 

[halilsoft]

osym sonuc sayfasındaki buton

sayfadaki butona tıklatmayı beceremedim yardımcı olabilecek biti varsa sevinirim

 

[Haluk]

A1 hücresine öğrencinin TC Kimlik No' sunu yazdıktan sonra aşağıdaki kodu çalıştırın;

    Const URL As String = "[URL]http://oss.osym.gov.tr/[/URL]"
Sub Test()
    '
    ' OSYM - 2007
    ' Haluk ®
    '
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Forms As Object, MyForm As Object
    
    
    Set IE = CreateObject("InternetExplorer.Application")
    
        With IE
            .Navigate URL
            .Visible = True
        End With
        Do Until IE.ReadyState = 4: DoEvents: Loop
        With IE.Document.all
            On Error Resume Next
                .tckimlikno.Value = Range("A1").Text
            On Error GoTo 0
            
        End With
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop
        
        On Error GoTo ErrHandler:
        Set HTML_Body = IE.Document.Body
        Set HTML_Forms = HTML_Body.GetElementsByTagName("Form")
        Set MyForm = HTML_Forms(0)
        
        MyForm.submit
    GoTo SafeExit:
ErrHandler:
    MsgBox "Bilgi bulunamadi veya internet erisimi yetersiz ...", vbCritical, "Kullanicinin dikkatine..."
SafeExit:
    Set MyForm = Nothing
    Set HTML_Forms = Nothing
    Set MyTable = Nothing
    Set HTML_Body = Nothing
    Set IE = Nothing
End Sub