// ce scripte a pour but de vous montrer comment aspirer les résultats du moteur de recherche google et les stocker dans un tableau excel
AUTORUN;
var j,i:integer;
var liens:Tstringlist;
var ts: Tstringlist;
ts:=Tstringlist.create;
ts.sorted:=true;
ts.Duplicates:=dupIgnore;
var s:string;
var nombre_pages:variant;


showmessage('Ce script a pour but de vous montrer la capture des résultats de google.');

navigate('http://www.google.com',1);

s:=inputbox('Entrez votre mot clé','Entrez votre mot clé','');
nombre_pages:=inputbox('Combien de pages souhaitez vous capturer','Combien de pages souhaitez vous capturer','5');
fillform('INPUT(2)/TD(1)/TR(0)/TBODY(0)/TABLE(0)/FORM(0)/CENTER(0)/BODY(0)/HTML(0)/',s,1);
clickform('INPUT(1)/TD(1)/TR(0)/TBODY(0)/TABLE(0)/FORM(0)/CENTER(0)/BODY(0)/HTML(0)/',1);


liens:=Tstringlist.create;
s:=extracturlsfrombrowser(1);
ts.commatext:=s;

for j:=1 to nombre_pages do begin;
    for i:=0 to ts.count-1 do begin;
     if (pos('cache',ts[i])=0) and (pos('google',ts[i])=0)  then liens.add(ts[i]);
    end;
    clickForm('SPAN(0)/A(0)/TD(0)/TR(0)/TBODY(0)/TABLE(0)/DIV(0)/BODY(0)/HTML(0)/',1)
end;

var filename:string;
filename:=savedialog('links.txt','*.txt');
liens.savetofile(filename);