Visual Basic ile Siteki Veriye Göre Komut Verme



Bu yazımızda "Visual Basic" ile sitedeki veriye göre komut verme mantığını öğreneceğiz. :)

Projeye Eklenmesi Gerekenler;

2 Adet Form (Komutlarımızı içeren Form1, WebBrowser'ımızı içeren Browser adında diğer form)

Browser adlı formumuza giriyoruz ve bir WebBrowser ekliyoruz. WebBrowser'ın özelliklerine gelip URL'ye, işlem yapacağınız sitenin adresini giriyoruz.

Browser'da işimiz bu kadar. :)

Tekrar Form1'e giriyoruz ve bir adet Timer ekliyoruz.
Bizim kodlarımızı çalıştıracak eleman Timer... Timer'ın özelliklerine gelip Enabled seçeneğini True yapıyoruz.
Interval seçeneğine gelip programın kaç saniyede bir kodları yürütmesini istiyorsak, salise cinsinden yazıyoruz.

Örnek; 20000

Form1'de boş bir yere tıklayarak, "Load" bölgesine şu kodları yazıyoruz;
Browser.Show

Şimdi Timer'ımıza çift tıklayıp kod bölmesine geliyoruz.
Programımıza hayat veren kodlar burada... :)

If Browser.WebBrowser1.Document.GetElementById("yui-gen1").InnerText = "Bildirileriniz" Then

        Else
         
           Msgbox("Yeni bir bildiriminiz var!",,"Bildiri")
           
        End If
 Kalın ve altı çizili kelime, sitedeki alanı belirliyor. "Bunu nasıl bulacağız?" dediğinizi duydum sanki. :)
Örnek olarak facebook'u inceleyelim...
Facebook.com'a girip "Facebook'a Hoş Geldin - Giriş Yap, Kaydol veya Daha Fazla Bilgi Al" yazısına sağ tıklayıp ögeyi denetleyelim. (Sayfa Kaynağını Görüntüle de Diyebilirsiniz.)

id="pageTitle" ile başlayan bir satır olacak. İşte buradaki id bizim bölgemizi belirtiyor.
.InnerText ise içerideki yazıyı belirtiyor. Siz kullanım amacınıza göre OuterText ya da InnerHtml yazabilirsiniz.


Yorumlar

  1. 1 Haftadır arıyordum gerçekden çok sağolun. :)

    YanıtlaSil
  2. If Browser.WebBrowser1.Document.GetElementById("yui-gen1").InnerText = "Bildirileriniz" Then

    Bu kodda hata veriyor!

    YanıtlaSil
  3. Sorunu çözdüm. :) WebBrowser'ı form2 ye eklemişim. :)
    If Form2.WebBrowser1.Document.GetElementById("yui-gen1").InnerText = "Bildirileriniz" Then
    Yazınca düzeldi teşekkürler. :)

    YanıtlaSil
  4. Gercekden isime cok yaradi. Tesukkerler....

    YanıtlaSil

Yorum Gönder