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")
Kalın ve altı çizili kelime, sitedeki alanı belirliyor. "Bunu nasıl bulacağız?" dediğinizi duydum sanki. :)End If
Ö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.
1 Haftadır arıyordum gerçekden çok sağolun. :)
YanıtlaSilIf Browser.WebBrowser1.Document.GetElementById("yui-gen1").InnerText = "Bildirileriniz" Then
YanıtlaSilBu kodda hata veriyor!
Sorunu çözdüm. :) WebBrowser'ı form2 ye eklemişim. :)
YanıtlaSilIf Form2.WebBrowser1.Document.GetElementById("yui-gen1").InnerText = "Bildirileriniz" Then
Yazınca düzeldi teşekkürler. :)
Gercekden isime cok yaradi. Tesukkerler....
YanıtlaSil