IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

VBSCRIPT - verification URL


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 1
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Bienvenue sur DVP
    Peut être que le LocationName serait plus pratique.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If (InStr(Fen.LocationName,"Google") > 0) Then
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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.

  4. #4
    Membre expérimenté
    Inscrit en
    Mai 2008
    Messages
    189
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 189
    Par défaut
    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

Discussions similaires

  1. Réponses: 6
    Dernier message: 06/09/2012, 16h24
  2. Verification existance d'un lien url
    Par namstou3 dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 21/09/2007, 11h03
  3. [RegEx] Verification URL par expression regulière
    Par Yekhen dans le forum Langage
    Réponses: 2
    Dernier message: 11/06/2007, 15h57
  4. Verification de l'existance d'URL en javascript
    Par zoneg dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 28/11/2006, 18h55
  5. [PHP] Verification URL
    Par sirbaldur dans le forum Langage
    Réponses: 1
    Dernier message: 01/08/2006, 18h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo