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

Windows Discussion :

WSH : Ouvrir des URLs dans des instances IE uniques et valider le "OK" d'authentification


Sujet :

Windows

  1. #1
    Membre actif
    Homme Profil pro
    Consultant communication & réseaux
    Inscrit en
    octobre 2013
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Consultant communication & réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : octobre 2013
    Messages : 86
    Points : 206
    Points
    206
    Par défaut WSH : Ouvrir des URLs dans des instances IE uniques et valider le "OK" d'authentification
    Bonjour

    Objectif
    Ouvrir des URLs dans des instances IE uniques et valider le "OK" d'authentification

    Langage choisi
    WSH

    Voici mon code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    Sub M1
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.run "URL1"
    MonShell.AppActivate "Connexion à IPURL1"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    End Sub
    
    Sub M2
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.Run "URL2"
    MonShell.AppActivate "Connexion à IPURL2"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    End Sub
    
    Sub M3
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.Run "URL3" 
    MonShell.AppActivate "Connexion à IPURL3"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    End Sub
    
    Sub M4
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.Run "URL4"
    MonShell.AppActivate "Connexion à IPURL4"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    End Sub
    
    Sub M5
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.Run "URL5"
    MonShell.AppActivate "Connexion à IPURL5"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    End Sub
    
    Sub M6
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.Run "URL6"
    MonShell.AppActivate "Connexion à IPURL6"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}"
    
    End Sub
    M1
    WScript.Sleep 1200
    M2
    WScript.Sleep 1200
    M3
    WScript.Sleep 1200
    M4
    WScript.Sleep 1200
    M5
    WScript.Sleep 1200
    M6
    Toutes les fenêtres s'ouvrent une par une et le bouton "OK" est validé à l'affichage de la boite de dialogue d'authentification.

    Mais la dernière fenêtre reste en arrière plan, et la gestion du sendkeys ne fonctionne pas.
    Si j'appuie moi même sur entrée cela valide la boite de dialogue par contre.

    Le code est pas top je pense.
    J'utilise des SendKeys {TAB} pour focus le bouton OK à coup sur, mais même sans cela ne change pas le comportement.
    J'ai paramétré de force IE pour ne pas gérer les onglets et le forcer à ouvrir des instances uniques.

    Faut il que je passe par un boucle en affectant un ID sur chaque instance ?!
    Merci pour vos suggestions/corrections/réponses

    Cordialement

  2. #2
    Membre actif
    Homme Profil pro
    Consultant communication & réseaux
    Inscrit en
    octobre 2013
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Consultant communication & réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : octobre 2013
    Messages : 86
    Points : 206
    Points
    206
    Par défaut
    Bon c'est résolu

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Sub M1
    Set MonShell = WSCript.createObject("wscript.shell")
    MonShell.run "URL1"
    MonShell.AppActivate "Connexion à IPURL1"
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{TAB}", False
    MonShell.SendKeys "{ENTER}", False
    WScript.Sleep 1000
    MonShell.AppActivate "Nom Fenetre IPURL1 "
    MonShell.SendKeys "%", False 'ALT KEY
    MonShell.SendKeys " ", False 'SPACE KEY
    MonShell.SendKeys "DOWN", False 'FLECHE BAS
    MonShell.SendKeys "ENTER", False
    End Sub
    ...
    Un peu lent, à voir côté timer mais cela fonctionne désormais.
    Il fallait juste demander une pause plus longue entre chaque action pour une meilleure interaction.

    Merci aux 24 lectures

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Appelez des url avec des variables dans BDD
    Par ricardcoca dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 11/08/2013, 18h58
  2. Comment ajouter des séries dans des graphes sur des feuilles variables
    Par Molomarcopolo dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/07/2012, 17h26
  3. Scripter IE7 pour ouvrir plusieurs url dans des onglets
    Par Ttienne dans le forum VBScript
    Réponses: 13
    Dernier message: 03/04/2008, 00h34

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