UYAP tan bilgi alma.

[vardar07]

Merhaba arkadaşlar. Aşağıdaki linkten veri alabilmek için değerli ustaların çalışmalarından esinlenerek bir şeyler yapmaya çalıştım. Ancak site java olduğu için beceremedim. Gelecekte java dan veriye örnek açısından yardımlarınızı rica ediyorum.

https://vatandas.uyap.gov.tr/vatandasportal/index.jsp

 

[Murat OSMA]

Giriş yapmak kolay.
Sonrasında ne yapılacak ?

 

[vardar07]

Giriş yapmak kolay.
Sonrasında ne yapılacak ?

Merhaba Murat Bey. Amaç siteye bilgi girişlerini otomatik yapmak.

Yukardaki girişler tamamlanıp bilgi alınacak sayfalar adımına geçilip resimlerde görüldüğü gibi alınacak verilere ulaşarak (userform yada sayfa üzerine ) siteden alma.

 

[Murat OSMA]

Anladım Mustafa Bey, üzerinde çalışıp sonucu size iletirim.

 

[vardar07]

Anladım Mustafa Bey, üzerinde çalışıp sonucu size iletirim.

Şimdiden çok teşekkürler.

 

[Murat OSMA]

Genellikle hangi adliyelerle işiniz oluyor ?

 

[vardar07]

Genellikle hangi adliyelerle işiniz oluyor ?

Antalya adliyesi.

 

[Murat OSMA]

Hangi Adliyelerle işiniz oluyor derken: sadece ANTALYA ile ilgili Adliyeler mi yoksa diğer illerdeki Adliyelerle de işiniz oluyor mu demek istedim.

Neyse.. Başlangıç olarak bir şeyler hazırladım ama henüz sorgulama yapmıyor.. Sanırım yapacak gibi de değil.
Mevcut dosyayı ekliyorum. Belki uğraşmak isteyen arkadaş olabilir, dosyam da başlangıç için burada dursun.

Private Sub CommandButton1_Click()
    ie.Document.all.tckn.Value = TextBox1.Value
    ie.Document.all.Value.Value = TextBox2.Value
    ie.Document.forms(0).submit
    Do While Not ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
    MsgBox "Giriş Yapıldı"
End Sub

Private Sub CommandButton2_Click()
    ie.SetFocus: Application.SendKeys "{F5}"
    URL$ = "https://vatandas.uyap.gov.tr/captcha"
    dosya$ = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\resim.gif"
    DownloadFile URL$, dosya$
    Image1.Picture = LoadPicture(dosya$)
End Sub

Private Sub Image1_Click()
    With Me.Frame1
        If .ScrollBars = fmScrollBarsNone Then
            .ScrollBars = fmScrollBarsBoth
            Me.Image1.AutoSize = True
            .ScrollHeight = Image1.Height
            .ScrollWidth = Image1.Width
            Else
            .ScrollTop = 0
            .ScrollLeft = 0
            .ScrollWidth = .Width
            .ScrollHeight = .Height
            .ScrollBars = fmScrollBarsNone
            Me.Image1.AutoSize = False
            Me.Image1.Height = .InsideHeight
            Me.Image1.Width = .InsideWidth
        End If
    End With
End Sub


Private Sub UserForm_Activate()
    adres = "https://vatandas.uyap.gov.tr/"
    adres = adres & "portal_baslangic.uyap?param=user&value=v&login_type=a"
    ie.Navigate adres
    Do Until ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
    ie.SetFocus: Application.SendKeys "{F5}"
    Do Until ie.ReadyState = 4: DoEvents: Loop
    Do While ie.Busy: DoEvents: Loop
    TextBox1.Value = "TC KİMLİK NO YAZIN"
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Adli Yargı"
    ComboBox1.AddItem "İdari Yargı"
    ComboBox1.AddItem "Adli Tip"
    ComboBox2.RowSource = "Sayfa1!A1:A81"
    With Me.Frame1
        .ScrollBars = fmScrollBarsNone
        .KeepScrollBarsVisible = fmScrollBarsNone
        End With
    With Me.Image1
        .Top = 0
        .Left = 0
        .Height = Me.Frame1.InsideHeight
        .Width = Me.Frame1.InsideWidth
        .PictureSizeMode = fmPictureSizeModeZoom
    End With
End Sub

Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next: Kill LocalPath$
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.StatusText = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
            Else
        MsgBox "Bağlantı sağlanamadı", vbInformation, "Hata !"
    End If
    Set XMLHTTP = Nothing
End Function

 

[vardar07]

Hangi Adliyelerle işiniz oluyor derken: sadece ANTALYA ile ilgili Adliyeler mi yoksa diğer illerdeki Adliyelerle de işiniz oluyor mu demek istedim.
Neyse.. Başlangıç olarak bir şeyler hazırladım ama henüz sorgulama yapmıyor.. Sanırım yapacak gibi de değil.
Mevcut dosyayı ekliyorum. Belki uğraşmak isteyen arkadaş olabilir, dosyam da başlangıç için burada dursun.

Murat Bey emeğiniz teşekkürle ödenmez. Ama şuan elimizden gelen bu. Umarım bu konu diğer uzman arkadaşların dikkatini çeker ve tamamlanınca örnek olur. Sağ olun var olun.

Not: Diğer uzman arkadaşların özel mesajı kapalı olduğu için size mesaj göndermiştim. Rahatsız ettiysem özür dilerim.

 

[dogkan75]

Murat Bey, acaba webbrowser i excel makrolarında nasıl kulllanılabileceğimizi ile ilgili elinizde bir döküman var mı ? yada önerebileceğiniz herhangi bir kaynak ?

Şimdiden Teşekkürler

 

[vardar07]

Murat Bey, acaba webbrowser i excel makrolarında nasıl kulllanılabileceğimizi ile ilgili elinizde bir döküman var mı ? yada önerebileceğiniz herhangi bir kaynak ?
Şimdiden Teşekkürler

Arkadaşım öncelikle aramıza hoş geldiniz. Konunuzla ilgili sitede bir çok örnek mevcut. Sizin konunuzla bu konu alakasız. Konunuza uygun site içi arama kullanarak konuları incelemenizi tavsiye ederim. Yoksa sorununuza ilgili konu başlıkları altında konu açarak yardım bekleyebilirsiniz. Kolay kolay bir sorun altına açılmış diğer bir sorunla kimse ilgilenmez. Çünki diğer arkadaşın sorunu özelliğini yitirir.

 

[vardar07]

Merhaba arkadaşlar konu günceldir.

Uzman arkadaşların ilgilenmesi dileğimle.