// ce scripte a pour but de vous montrer comment aspirer les emails à partir d'une liste de sites web
// créez une liste de site web dans un fichier Texte et executez le script

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;