AccessTr.neT

Sayfalar: 1 2 3 4 5

Eline sağlık paylaşım için teşekürler

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-cray

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.

Ellerinize sağlık çok teşekkürler

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?

(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

Sayfalar: 1 2 3 4 5

karam

goodfalles

ozanakkaya

kocivan

kadirdursun

ozanakkaya