VBSCRIPT - verification URL

Bonjour,

Je souhaiterais vérifier les url en cours de consultation sur la machine d'un user.
J'utilise donc un script dont voici un échantillon du code :

Code:

---

1 2 3 4 5 6 7

For Each Fen in Shellwindows If (InStr(Fen.LocationURL,"www.google.com") > 0) Then wscript.echo "google consulté" lance=1 exit For End If Next

---

Ceci fonctionne si l'utilisateur consulte la page www.google.com mais plus dès lors que l'url est du type www.google.com/fr ou www.google.com/search=?recherche.

J'ai cherché du coté de la fonction filter mais je ne m'en sors pas.

Merci de votre aide

Bienvenue sur DVP
Peut être que le LocationName serait plus pratique.

Code:

---

If (InStr(Fen.LocationName,"Google") > 0) Then

---

où alors tu utilises toutes les fonctions de chaines de cractères pour décomposer l'url et la traiter.
Genre dans ton exemple un split sur . te retourne un tableau de chaine de caractère donc le deuxième élément est "google".
Tu as d'autre fonction (voir FAQ) et selon ton besoin tu peux faire plus compliqué.
Une url n'est pas compliqué :
http ou https
www ou non
plein de chose
...
un point
l'extension
un / ou non
et si un / des fois des trucs derrière.

Bref en consevant un petit algo tu peux affiné ta recherche et stockée cela où tu veux.
Tu pourrais ainsi savoir si sur tel ou tel site l'utilisateur à était sur un page php, dans quel sous menu si ceci sont mis dans l'url comme des répertoires, ...

Bref c'est du texte, tu peux le décomposer comme tu veux et faire ce que tu veux avec.

totalement d'accord avec ced600 sur le principe, tu peux en tirer plus d'informations...


par contre comme les URL ont des fois des sous-domaines (plusieurs . avant le vrai nom de domaine) je te suggère de partir de la fin pour analyser.

en combinant un right et un substr(".")

genre Right(url,InStr(url,".")) donnerait l'extension du site...

qui donne la taille de l'extension avec un len, qui donne avec un left(url,"tailleDeLextension") le reste de l'url a laquelle on applique a nouveau le Right(url,InStr(url,"."))...

'fin bon je m'enflamme mais c'est l'idée :P