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 :

Click sur un lien


Sujet :

VBScript

  1. #1
    Membre actif
    Profil pro
    Inscrit en
    février 2003
    Messages
    896
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 896
    Points : 267
    Points
    267
    Par défaut Click sur un lien
    Bonjour,

    Voici une page html, maPage.html, qui contient une deuxième page html, page1.html :

    Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    <!DOCTYPE html>
    <html>
    <head>
    <title> partage avec hiérarchie imbriquée</title>
    </head>
    <frameset cols="20%,80%">
    <frame src="page1.html" name="zone2">
    <frameset rows="20%,80%">
    <frame src="page2.html" name="zone1">
    <frame src="page3.html" name="zone3">
    </frameset>
    </frameset>
    </html>

    Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    <!DOCTYPE html>
    <html>
    <head>
    <ul id="menu-vertical">
    	<li><a href="https://www.google.fr">GOOGLE</a>
        </li>
    </ul>
    </html>

    Je voudrais faire un clic sur le lien situé sur page1.html.

    Sauriez-vous me dire ce que je dois taper en vbs pour accomplir cette action, svp?

    Code VBA : 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
    Option Explicit
    Dim objApp, Window, monURL, count
     
    Set objApp = CreateObject("Shell.Application")
     
    count = -1
    For Each Window In objApp.Windows
      If Window = "Internet Explorer" Then
        count = count+1
        monURL = objApp.Windows(count).locationUrl  
    	msgbox monURL
        if monURL = "file:///C:/Users/username/Desktop/maPage.html" then
    	   'window.top.frames(1).Document.getElementsById("menu-vertical")(0).Click  
    	   'window.frames().Document.getElementsByTagName("a").item(0).innerHTML
     
    	   'CODE POUR FAIRE LE CLIC"	   
     
        end if    
      End If
     
    Next

    Merci d'avance de votre aide.
    Arsene

  2. #2
    Membre actif
    Profil pro
    Inscrit en
    février 2003
    Messages
    896
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 896
    Points : 267
    Points
    267
    Par défaut
    Voici la réponse :

    Je dois auparavant rajouter une id dans le code HTML de maPage.html:

    Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
    <frame src="page1.html" name="zone2" id="zone2">

    Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
    Window.document.getElementById("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click

    Si je fais :

    Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
    Window.document.getElementByName("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click

    ça marche pas.



    Code VBA : 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
    Option Explicit
    Dim objApp, Window, monURL, count
     
    Set objApp = CreateObject("Shell.Application")
     
    count = -1
    For Each Window In objApp.Windows
      If Window = "Internet Explorer" Then
        count = count+1
        monURL = objApp.Windows(count).locationUrl  
    	msgbox monURL
        if monURL = "file:///C:/Users/username/Desktop/maPage.html" then
     
           Window.document.getElementById("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click
     
        end if    
      End If
     
    Next

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 26/09/2007, 16h07
  2. Catch un click sur un lien dans un ie
    Par krakoss dans le forum Windows
    Réponses: 1
    Dernier message: 06/07/2007, 15h38
  3. Réponses: 4
    Dernier message: 28/04/2007, 14h50
  4. Réponses: 4
    Dernier message: 04/07/2006, 14h07
  5. Réponses: 7
    Dernier message: 20/10/2005, 20h51

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