AUTORUN;
var j,i:integer;
var filename:string;
var site,s:string;
var nombre_pages:variant;
var tete:integer;
var source:string;
var liens: Tstringlist;
liens:=Tstringlist.create;liens.sorted:=true;
liens.Duplicates:=dupIgnore;
var emails: Tstringlist;
emails:=Tstringlist.create;emails.sorted:=true;
emails.Duplicates:=dupIgnore;
var temp: Tstringlist;
temp:=Tstringlist.create;
maxbrowsers(1);
showmessage('Ce script a pour but de vous montrer la capture des emails dans un site particulier.');
site:=inputbox('Entrez le nom du site web','Entrez le nom du site web','http://www.0pop.com');
navigate(site,1);
liens.commatext:=extractinternalurlsfrombrowser(1);
source:=getpagehtml(1,TRUE);
emails.commatext:=extractemails(source);
println(liens.text);
tete:=0;
repeat;
navigate(liens[tete]);
source:=getpagehtml(1,TRUE);
temp.commatext:=extractemails(source);
emails.addstrings(temp);
temp.commatext:=extractinternalurlsfrombrowser(1);
liens.addstrings(temp);
inc(tete,1);
until (tete>=liens.count);
ShowMessage('Nombre emails capturés:'+inttostr(emails.count));
if (emails.count>0) then begin;
if questiondlg('sauver les emails capturés ?')=true then begin;
filename:=SaveDialog('resultat.txt','*.*');
emails.savetofile(filename);
end;
end;