Google Rank Programı

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
kelaynak2
Üye
Mesajlar: 135
Kayıt: 30 Haz 2003 02:18

Google Rank Programı

Mesaj gönderen kelaynak2 »

Program amacı varsayımsal olarak bir dizi kelimeyi google.de aradığınızda sizin web sayfanızın ön sıralarda sıralanmasını sağlamaktır.Googlenin bulduğu sonuçları URL listesinden inceleyip sizin sitenizin yer aldığı linkleri listede tutup, diğerlerini sildikten sonra vereceğiniz saniye aralığında internet explorerde belirlediğiniz sayıda listedeki URL.lerin açılmasını sağlar. Açılan int. explererlerlerin hepsinini bir tıklamayla kapatılabilir.

İnternet explorerlerin açılması için bir threat kullanılmıştır.Umarım programı dahada geliştirirsiniz.
rank.jpg
rank.jpg (7.88 KiB) 1362 kere görüntülendi
Forma bir adet WebBrowser nesnesi koydum.OnDocument Complete olayına

Kod: Tümünü seç

DOM := app.Document;
  if app.LocationURL <> '' then begin
   Memo1.Text := DOM.Body.OuterHTML;
   strRead:= DOM.Body.OuterHTML;
  end
  else begin
   ShowMessage('No page available!');
  end;
kodunu ekledim.

Google arama sonuçlarından linkleri nBegin := Pos ('url?url=http', strRead); ve nBegin := Pos ( 'href="/url?q=http://', strRead); kodlarıyla
aldım.Tahminim bu bölümler Google tarafından robot kullanılmasını engellemek için sürekli değiştiriliyor.

Program aracılığıyla Googlede aynı kelimeyi 20 defa beşer saniye aralıkla aradığınızda Google ipiniz banlıyor ve bir resimdeki karekteri girmenizi istiyor. Yani sizin bir program kullandığınızı anlıyor. Buna çözüm bulamadım.
Programdaki kodların çoğunu delphi sitelerinden alıntı yaptım.Delphi 7 ile yazılmış kaynak kodu ektedir.
Dosya ekleri
rank.zip
(9.15 KiB) 134 kere indirildi
Cevapla