Afficher code source page HTML

Version imprimable

Bonjour,
j'ai une page:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <!DOCTYPE html> <html> <head> <title> partage avec hiérarchie imbriquée</title> </head> <frameset cols="20%,80%"> <frame id="zone2" src="page1.html" name="zone2"> <frameset rows="20%,80%"> <frame name="zone1"> </frameset> </frameset> </html>
Lorsque j'ouvre cette page avec Internet explorer et que j'exécute le code ci-dessous :
Code:

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 If monURL = "file:///C:/Users/username/Desktop/maPage.html" then msgbox Window.Document.body.innerHTML End if End if Next
j'obtiens ceci :
Code:

1 2 3 4 <frame name="zone2" id="zone2" src="page1.html"> <frameset rows="20%,80%"> <frame name="zone1"> </frameset>
Je remarque au passage que le code source n'est pas entier. J'aimerais afficher le code source de la page page1.html qui se trouve dans la frame. Sauriez-vous ce que je dois mettre à la place de :

Code:

msgbox Window.Document.body.innerHTML

J'ai essayé :

Code:

msgbox Window.Document.Frames(0).innerHTML

ça marche pas.

Mettez comme ...

Code:

1
2
    'msgbox Window.Document.body.innerHTML
    msgbox window.document.getElementById("zone2").contentWindow.document.body.innerHTML

Citation:
Envoyé par tsuji
Mettez comme ...
Code:

1 2 'msgbox Window.Document.body.innerHTML msgbox window.document.getElementById("zone2").contentWindow.document.body.innerHTML
Merci beaucoup. Je viens de me rendre compte que VBS est extrêmement sensible à la casse. Si l'on met un D majuscule à .document, ça génère des erreurs.
La preuve :
Code:

1 2 3 msgbox Window.Document.body.innerHTML 'msgbox window.document.getElementById("zone2").contentWindow.document.body.innerHTML
ça marche
Code:

1 2 3 msgbox Window.Document.body.innerHTML msgbox window.document.getElementById("zone2").contentWindow.document.body.innerHTML
Erreur : Cet objet ne gère pa cette méthode 'Document.getElementById'
Code:

1 2 3 msgbox Window.document.body.innerHTML msgbox window.document.getElementById("zone2").contentWindow.document.body.innerHTML
ça marche.
Code:

1 2 3 msgbox Window.Document.body.innerHTML msgbox window.Document.getElementById("zone2").contentWindow.document.body.innerHTML
Erreur : Cet objet ne gère pa cette méthode 'Document.getElementById'

Grâce à votre aide, je vais peut-être enfin pouvoir arriver à faire un clic dans la frame secondaire.

07/06/2019, 11h19
tsuji

Citation:

Je viens de me rendre compte que VBS est extrêmement sensible à la casse.

Citation:

Erreur : Cet objet ne gère pa cette méthode 'Document.getElementById'

Là, je n'en suis pas sûr. Je ne pense pas que ce soit vrai, non.

Pour que l'erreur là-desus soit provoquée, l'écriture de l'id (ici, "zone2") devrait être fausse ou qu'elle ne devrait être pas là. Ce n'est pas à cause de document étant écrit comme Document.

Il y a effectivement un tout petit nombre de cas où la casse est important; mais, ici, "document", ce n'en 'est certainement pas un.

Citation:

Envoyé par tsuji

Là, je n'en suis pas sûr. Je ne pense pas que ce soit vrai, non.

Pour que l'erreur là-desus soit provoquée, l'écriture de l'id (ici, "zone2") devrait être fausse ou qu'elle ne devrait être pas là. Ce n'est pas à cause de document étant écrit comme Document.

Il y a effectivement un tout petit nombre de cas où la casse est important; mais, ici, "document", ce n'en 'est certainement pas un.

J'ai revérifié et je maintiens mes précédente déclarations pour ce qui concerne .document et .Document

Vous pouvez vérifier vous-même en mettant ces fichiers sur votre bureau :

page1.html :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <!DOCTYPE html> <html> <head> <title> partage avec hiérarchie imbriquée</title> </head> <frameset cols="20%,80%"> <frame id="zone2" src="page1.html" name="zone2"> <frameset rows="20%,80%"> <frame name="zone1"> </frameset> </frameset> </html>
maPage.html :
Code:

1 2 3 4 5 6 7 8 9 10 <!DOCTYPE html> <html> <head> <ul id="menu-vertical"> <li><a name="zone2" id="zone2" href="https://www.google.fr">GOOGLE</a> </li> </ul> </html>
test.vbs :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 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 If monURL = "file:///C:/Users/username/Desktop/maPage.html" then msgbox Window.document.body.innerHTML msgbox Window.document.getElementById("zone2").contentWindow.document.body.innerHTML 'msgbox Window.document.getElementById("zone2").contentWindow.document.getElementById("zone2").innerText 'Window.document.getElementById("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click End if End if Next

08/06/2019, 17h12
tsuji

D'abord, ce que vous postez comme maPage.html doit être au juste page1.html, et page1.html, maPage.html - si je ne me trompe !

Voyons, la page page1.html (postée comme maPage.html) est tellement mal écrite qu'on s'en réjouit ou s'en larmente que combien un browseur soit généreux et tout soit pardonné. On devrait au moins la réécrire page1.html d'une façon un peu plus correcte (<head>...</head><body>...</body>) ?

Et puis, je varie document en Document ou vice versa ... que se passe-t-il chez vous ? Chez moi, rien de changer.
09/06/2019, 10h07
Arsene12

Citation:

Envoyé par tsuji

D'abord, ce que vous postez comme maPage.html doit être au juste page1.html, et page1.html, maPage.html - si je ne me trompe !
Voyons, la page page1.html (postée comme maPage.html) est tellement mal écrite qu'on s'en réjouit ou s'en larmente que combien un browseur soit généreux et tout soit pardonné. On devrait au moins la réécrire page1.html d'une façon un peu plus correcte (<head>...</head><body>...</body>) ?

Et puis, je varie document en Document ou vice versa ... que se passe-t-il chez vous ? Chez moi, rien de changer.

Excusez-moi pour cette inversion de code page. Je sais pas pourquoi y'a ce bug chez moi. Il faudrait que je teste sur un autre pc. Quoi qu'il en soit, j'avais construit ce code html bancal pour pouvoir trouver la formule me permettant de récupérer le code source d'un(e) frame secondaire. J'ai réussi dans ce cas précis :

Code:

Window.document.getElementById("zone2").contentWindow.document.body.innerHTML

Pourriez-vous me dire si chez vous le code ci-dessous fonctionne (on remplace Id par Name) :

Code:

msgbox window.document.getElementByName("zone2").contentWindow.document.body.innerHTML

Chez moi, ça donne "VBS ne gère pas cette propriété", même en faisant varier les D majuscules et d minuscules".

En fait, j'ai un problème avec un frameset semblable sur une page html qui est elle bien construite et qui ne répond pas au code :

Code:

Window.document.getElementById("zone2").contentWindow.document.body.innerHTML

3 pièce(s) jointe(s)

Il ne faut sauter d'une chose à une autre sans rien établi une ou autre ... finalement on n'y comprend rien et en finit par dire n'importe quoi.

Une methode qui s'appelle getElementsByName() (avec un s ) qui sorte une liste qui puisse être de rien si la fonction ne trouve rien. Ce n'est pas getElementByName().

[0]
Code:

1 2 msgbox "window.document.getElementById(""zone2"").contentWindow.document.body.innerHTML" & vbcrlf & _ window.document.getElementById("zone2").contentWindow.document.body.innerHTML
Pièce jointe 482120

[1]
Code:

1 2 msgbox "window.Document.getElementById(""zone2"").contentWindow.Document.body.innerHTML" & vbcrlf & _ window.Document.getElementById("zone2").contentWindow.Document.body.innerHTML
Pièce jointe 482122

[2]
Code:

1 2 msgbox "window.document.getElementsByName(""zone2"")(0).contentWindow.document.body.innerHTML" & vbcrlf & _ window.document.getElementsByName("zone2")(0).contentWindow.document.body.innerHTML
Pièce jointe 482123

10/06/2019, 09h24
Arsene12

J'avais remarqué qu'un s se mettait parfois après getElement. Il faut pas oublier de rajouter le (0) contrairement à ById.
Merci beaucoup pour cette aide qui m'a permis avancer.
J'espère parvenir à résoudre le problème que je rencontre dans un frameset où la frame a un src de ce type : src="2-xxx.yy". Je n'arrive pas à y accéder.