Textboxlara internetten veri al

[omeryılmaz]

PHP ile yapılmış internet sitesinden Mernis bilgilerini Texboxlara nasıl alabiliriz....
Tüm konuları inceledim ancak çözemedim...
yardımlarınız için şimdiden şükranlarımı sunuyorum....

Private Sub CommandButton16_Click()

On Error Resume Next
Dim ie As Object
Label7.Visible = True
Set ie = CreateObject("internetexplorer.application")
With ie
.navigate "http://www.XXXXXX.gov.tr/MERNIS/MERNIS_001.php"
.Visible = True
Application.Wait Now + TimeSerial(0, 0, 2)
Do While .busy: Loop
With .document.all
.TCKIMLIKNO.Value = TextBox6.Value
.tamam.Click

'-----------------------İnternet sayfası alt kodları-----------------------------

'</tr>
'<tr><td>ADI</td><td class='etiket' colspan='2'>ÖMER</td></tr>
'<tr><td>SOYADI</td><td class='etiket' colspan='2'>YILMAZ</td></tr>

'-------------------------uygulanacak modül-----------------------------------------------------------

UserForm12.TextBox1.Value = .document.getElementsByTagName("ADI").Item(23).Value
UserForm12.TextBox2.Value = .document.getElementsByTagName("SOYADI").Item(26).Value

End With
Set ie = Nothing

Label7.Visible = False
End With

End Sub

 

[Zeki Gürsoy]

Merhaba,

<td>ADI</td>

Bu bir sütundur. Önce tabloyu değişkene almanızgerek.

set tbl = ie.document.getelementsbytagname("table").item(???) [COLOR=DarkGreen]'??? bir tamsayıdır.[/COLOR]

[COLOR=DarkGreen]'Nokta atışı için deneme yanılma yapmanız gerekiyor.(Listeyi bilmediğimiz için siz yapacaksınız)[/COLOR]
textbox1 = tbl.rows(???).cells(???).innertext [COLOR=DarkGreen]'??? bir tamsayıdır.[/COLOR]

 

[omeryılmaz]

Hocam İnternet sayfası kod kaynak görüntüsü ektedir.


UserForm1.Texbox1.Value = Bilgi almak istediğim satır 22
UserForm1.Texbox2.Value = Bilgi almak istediğim satır 24
UserForm1.Texbox3.Value = Bilgi almak istediğim satır 27 .......




Mevcut bu kodlarla

UserForm12.TextBox1.Value = .Item(22).innerText -------> TextBox1 e ADI yazıyor istediğim ömer yazması
UserForm12.TextBox2.Value = .Item(24).innerText -------> TextBox2 e SOYADI yazıyor Yılmaz yazması
UserForm12.TextBox5.Value = .Item(27).innerText

NÜFUS KAYIT BİLGİLERİ
TCKİMLİKNO :


ADI ÖMER
SOYADI YILMAZ
DOĞUM TARİHİ
DOĞUM YERİ
ANNE ADI
BABA ADI
CİNSİYETİ Erkek
MEDENİ HALİ Evli
NÜFUS KAYIT BİLGİLERİ
MAHALLE/KÖY ADI
AİLE SIRA NO
BİREY SIRA NO
CİLD NO
İL KODU
İL ADI Erzurum
İLÇE KODU
İLÇE ADI
ÖLMÜŞSE BİLGİLERİ
ÖLÜM TARİHİ 0.0.0
ÖLÜM YERİ
VARSA HATA

ADRES KAYIT BİLGİLERİ
ADRES No
İL KODU
İLİ İSTANBUL
İLÇE KODU
İLÇE ADI
BUCAK KODU
BUCAK ADI
MAHALLE KODU
MAHALLE .
CADDE/SOKAK KODU
CADDE/SOKAK ADI .
DIŞ KAPINO
İÇ KAPINO 6
KÖY KODU
KÖY ADI
KÖY KAYITNO
HATA



........


İlginiz için şükranlarımı sunuyorum....

 

[omeryılmaz]

Webden Textboxlara veri almak

PHP ile yapılmış internet sitesinden Mernis bilgilerini Texboxlara nasıl alabiliriz....
Tüm konuları inceledim ancak çözemedim...
yardımlarınız için şimdiden şükranlarımı sunuyorum....

Private Sub CommandButton16_Click()

On Error Resume Next
Dim ie As Object
Label7.Visible = True
Set ie = CreateObject("internetexplorer.application")
With ie
.navigate "http://www.XXXXXX.gov.tr/MERNIS/MERNIS_001.php"
.Visible = True
Application.Wait Now + TimeSerial(0, 0, 2)
Do While .busy: Loop
With .document.all
.TCKIMLIKNO.Value = TextBox6.Value
.tamam.Click

'-------------------------uygulanacak modül-----------------------------------------------------------

UserForm12.TextBox1.Value = .document.getElementsByTagName("ADI").Item(23).Value
UserForm12.TextBox2.Value = .document.getElementsByTagName("SOYADI").Item(26).Value
......
End With
Set ie = Nothing

Label7.Visible = False
End With

End Sub



'-----------------------İnternet sayfası alt kodları-----iÇERİK bİLGİLER sANALDIR------------------------
<form name="MERNIS_001" action="MERNIS_001.php" method="post"><table>

<tr><td>
<table class="tablo">
<caption>NÜFUS KAYIT BİLGİLERİ</caption>
<tr>
<td>TCKİMLİKNO</td>
<td>:<input type="text" name="TCKIMLIKNO" class="prtEdit" size="11" value="12345678901" maxlength="11"/></td>
<td><input type="submit" id="tamam" name="tamam" value="Sorgula"/></td>
</tr>
<tr><td>ADI</td><td class='etiket' colspan='2'>ÖMER</td></tr>
<tr><td>SOYADI</td><td class='etiket' colspan='2'>YILMAZ</td></tr>
<tr><td>DOĞUM TARİHİ</td><td class='etiket' colspan='2'>19.8.1973</td></tr>
<tr><td>DOĞUM YERİ</td><td class='etiket' colspan='2'>OLTU</td></tr>
<tr><td>ANNE ADI</td><td class='etiket' colspan='2'>AYŞE</td></tr>
<tr><td>BABA ADI</td><td class='etiket' colspan='2'>İRFAN</td></tr>
<tr><td>CİNSİYETİ</td><td class='etiket' colspan='2'>Erkek</td></tr>
<tr><td>MEDENİ HALİ</td><td class='etiket' colspan='2'>Evli</td></tr>
<tr style="border-bottom:solid; border-width: thin;border-top:solid; border-width: thin">
<td colspan="3" align="center">NÜFUS KAYIT BİLGİLERİ</td>
</tr>
<tr><td>MAHALLE/KÖY ADI</td><td class='etiket' colspan='2'>ELMALI </td></tr>
<tr><td>AİLE SIRA NO</td><td class='etiket' colspan='2'>47</td></tr>
<tr><td>BİREY SIRA NO</td><td class='etiket' colspan='2'>35</td></tr>
<tr><td>CİLD NO</td><td class='etiket' colspan='2'>28</td></tr>
<tr><td>İL KODU</td><td class='etiket' colspan='2'>25</td></tr>
<tr><td>İL ADI</td><td class='etiket' colspan='2'>Erzurum</td></tr>
<tr><td>İLÇE KODU</td><td class='etiket' colspan='2'></td></tr>
<tr><td>İLÇE ADI</td><td class='etiket' colspan='2'>Oltu</td></tr>
<tr style="border-bottom:solid; border-width: thin;border-top:solid; border-width: thin">
<td colspan="3" align="center">ÖLMÜŞSE BİLGİLERİ</td>
</tr>
<tr><td>ÖLÜM TARİHİ</td><td class='etiket' colspan='2'>0.0.0</td></tr>
<tr><td>ÖLÜM YERİ</td><td class='etiket' colspan='2'></td></tr>
<tr style="border-bottom:solid; border-width: thin;border-top:solid; border-width: thin">
<td colspan="3" align="center">VARSA HATA</td>
</tr>
<tr><td class='etiket' colspan='3' align="center"></td></tr>
</table>
</td>
<td valign="top">
<table class="tablo">
<caption>ADRES KAYIT BİLGİLERİ</caption>
<tr><td>ADRES No</td><td class='etiket' colspan='2'>2395316777</td></tr>
<tr><td>İL KODU</td><td class='etiket' colspan='2'>34</td></tr>
<tr><td>İLİ</td><td class='etiket' colspan='2'>İSTANBUL</td></tr>
<tr><td>İLÇE KODU</td><td class='etiket' colspan='2'>1522</td></tr>
<tr><td>İLÇE ADI</td><td class='etiket' colspan='2'>ELMALI</td></tr>
<tr><td>BUCAK KODU</td><td class='etiket' colspan='2'></td></tr>
<tr><td>BUCAK ADI</td><td class='etiket' colspan='2'></td></tr>

<tr><td>MAHALLE KODU</td><td class='etiket' colspan='2'>80933</td></tr>
<tr><td>MAHALLE</td><td class='etiket' colspan='2'>FEVZİPAŞA MAH.</td></tr>
<tr><td>CADDE/SOKAK KODU</td><td class='etiket' colspan='2'>611802</td></tr>
<tr><td>CADDE/SOKAK ADI</td><td class='etiket' colspan='2'>KULELİ SK.</td></tr>

<tr><td>DIŞ KAPINO</td><td class='etiket' colspan='2'>15</td></tr>
<tr><td>İÇ KAPINO</td><td class='etiket' colspan='2'>6</td></tr>

<tr><td>KÖY KODU</td><td class='etiket' colspan='2'></td></tr>
<tr><td>KÖY ADI</td><td class='etiket' colspan='2'></td></tr>
<tr><td>KÖY KAYITNO</td><td class='etiket' colspan='2'></td></tr>

<tr><td>HATA</td><td class='etiket' colspan='2'></td></tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>