// ce scripte a pour but de vous montrer comment rechercher votre site web sur le moteur Google pour vérifier son positionnement
var j,i,k:integer;
var liens:Tstringlist;
var ts: Tstringlist;
ts:=Tstringlist.create;
ts.sorted:=true;
ts.Duplicates:=dupIgnore;
var s:string;
var nombre_pages:variant;
var votre_site:string;

var mots_cles: Tstringlist;mots_cles:=Tstringlist.create;mots_cles.sorted:=true;mots_cles.Duplicates:=dupIgnore;
var rapport: Tstringlist;rapport:=Tstringlist.create;


maxbrowsers(1);

showmessage('Ce script a pour but de vous montrer la recherche de votre site dans Google.');
showmessage('Il permet de tester votre positionnement sur Google');

s:=trim(inputbox('Entrez votre ou vos mot(s) clé (séparés par des virgule)','Entrez votre ou vos mot(s) clé (séparés par des virgule',''));
replaceS(s,' ','+',true);
mots_cles.commatext:=s;

nombre_pages:=inputbox('Sur combien de pages de Google souhaitez vous rechercher votre site ?','Sur combien de pages de Google souhaitez vous rechercher votre site ?','3');
votre_site:=inputbox('Entrez url de votre site web','Entrez url de votre site web','www.');


for k:=0 to mots_cles.count-1 do begin;
    rapport.add('Mot clé:'+mots_cles[k]);
    navigate('http://www.google.com',1);
    fillform('INPUT(2)/TD(1)/TR(0)/TBODY(0)/TABLE(0)/FORM(0)/CENTER(0)/BODY(0)/HTML(0)/',mots_cles[k],1);
    clickform('INPUT(1)/TD(1)/TR(0)/TBODY(0)/TABLE(0)/FORM(0)/CENTER(0)/BODY(0)/HTML(0)/',1);

    liens:=Tstringlist.create;
    ts.commatext:=extracturlsfrombrowser(1);


    for j:=1 to nombre_pages do begin;
        for i:=0 to ts.count-1 do begin;
         if (pos(votre_site,ts[i])>0)  then begin;
             rapport.add('Trouvé sur la page:'+inttostr(j));break;
         end;
        end;
        clickForm('SPAN(0)/A(0)/TD(0)/TR(0)/TBODY(0)/TABLE(0)/DIV(0)/BODY(0)/HTML(0)/',1);
        clickForm('SPAN(0)/A(0)/TD(0)/TR(0)/TBODY(0)/TABLE(0)/DIV(0)/DIV(0)/BODY(0)/HTML(0)/',1);
        liens:=Tstringlist.create;
        ts.commatext:=extracturlsfrombrowser(1);
    end;
end;



var filename:string;
filename:=savedialog('rapport.txt','*.txt');
rapport.savetofile(filename);