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);