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 sites: Tstringlist;
sites:=Tstringlist.create;sites.sorted:=true;
sites.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 une liste de sites webs.');
Showmessage('Entrez le nom du fichier contenant la liste des sites');
filename:=OpenDialog('*.txt','*.txt');
sites.loadfromFile(filename);
for j:=0 to sites.count-1 do begin;
navigate(sites[j],1);
liens.commatext:=extractinternalurlsfrombrowser(1);
source:=getpagehtml(1,TRUE);
temp.commatext:=extractemails(source);
emails.addstrings(temp);
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);
end;
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;