Skip to main content

AccessTr.neT


webden bilgi alma

webden bilgi alma

Çözüldü #1
sayınsledgeab;
yeni konu açıyorum.
aşağıdkai linkte konunun öncesi var.
https://accesstr.net/konu-web-uzerinden-...0#pid47510


Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1
Me.Metin29 = IE.Document.All.tags("table").Item(9).Rows(0).Cells(1).innerText
Me.Metin31 = IE.Document.All.tags("table").Item(9).Rows(1).Cells(1).innerText
Me.Metin33 = IE.Document.All.tags("table").Item(9).Rows(2).Cells(1).innerText
Me.Metin35 = IE.Document.All.tags("table").Item(9).Rows(3).Cells(1).innerText
WebBrowser3.Navigate2 "http://iski.gov.tr/Web/Swfs/BarajDolu_Oran.swf"
Call ResimGetir
End Sub


buradaki Item rows cells kısımlarını nerden buldunuz. kaynak kodlara bakıyorum bulamadım.
.rar ISKIDENEME.rar (Dosya Boyutu: 21,33 KB | İndirme Sayısı: 67)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #2
web sayfasından veri çektiğimiz alan aşağıdaki resimdeki gibi tablo şeklinde.
Resme row ve cell değerlerini gösterdim.
item değerini bulmak için sayfa kaynağını aç, yukarıdan aşağıya kaçıncı "<table" olduğunu say.

[Resim: ekranalntsjb.jpg]
Cevapla
Çözüldü #3
ilgilendiğiniz için teşekkür ederim. uğraşıp sonuç almaya çalışacağım.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #4
ben hala sizin iyiliğiniz için ısrar etmek zorundayım. Uzak duruun Img-grin
Cevapla
Çözüldü #5
uzak durun deme sebebiniz nedir?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #6
sayın sledgeab;

peki kendi formumuzdan bir checbox ve komut tuşuyla sogulatmayı nasıl yaparız, internetten otomatik bir şekilde..


diyelim bu sayfatan,
http://www.diyanet.gov.tr/turkish/dy/Diy...ri-80.aspx


örnek dosya ektedir..
tek satırlık bilgi alsakta olur
öğrenmemiz açısından..

teşekkür ederim bilgi ve paylaşımınızdan dolayı..
.rar örnek.rar (Dosya Boyutu: 13,89 KB | İndirme Sayısı: 42)
.rar örnek2003.rar (Dosya Boyutu: 11,59 KB | İndirme Sayısı: 43)
Son Düzenleme: 18/06/2010, 12:08, Düzenleyen: jon206.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da