// ce scripte a pour but de vous montrer comment aspirer d'un site web à partir de son URL


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;