İnternet explorerlerin açılması için bir threat kullanılmıştır.Umarım programı dahada geliştirirsiniz. 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;
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.