Tag & name d'un page HTML en VB6 - VB/VBA/VBS - Programmation
MarshPosté le 01-04-2005 à 08:18:17
Bonjour, J'utilise VB6 pour piloter IE mais je ne sais pas à accéder aux frames. Je débute dans ce genre de programmation et je dois avouer que la structure des objet iHTML m'est peu familière. Je voudrais trouver une frame de la page chargée, en récupérer le code HTML et simuler un click sur un lien contenu dans la frame. Quelqu'un peut-il m'aider ?
Ce qui marche dans la page mais pas dans les frames Exemple de code pour un login :
Private WithEvents IE As InternetExplorer Private HTML_In(1) As HTMLInputElement Private HTML_Btn As HTMLButtonElement
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
if URL= "http://www.site.com/login" then
Dim Doc As IHTMLDocument2 Set Doc = IE.document
Chaine$= Doc.body.innerHTML 'Récupération du code HTML de la page
Set HTML_In(0) = Doc.All.Item("Login" ) Set HTML_In(1) = Doc.All.Item("Pwd" ) Set HTML_Btn = Doc.All.Item(Bouton)
HTML_In(0).Value = TxtOut("MonLogin" ) HTML_In(1).Value = TxtOut("MonPwd" ) HTML_Btn.Click End if
End Sub 'Liste de tous les tags de la page Sub ReportElementProperties() Dim objDoc As IHTMLDocument2 'FPHTMLDocument Dim lngElement As Long
Set objDoc = IE.document
With objDoc.All For lngElement = 1 To (.length) - 1 EcritFile "Index: " & lngElement EcritFile "Name: " & .Item(lngElement).tagName EcritFile "Contents: " & .Item(lngElement).outerHTML EcritFile "******************************************" EcritFile " " Next lngElement End With End Sub Sub EcritFile(Txt) Dim F F = FreeFile Open App.Path & "\Pages\EcritFile.txt" For Append As #F Print #F, Txt Close #F End Sub
Marsh Posté le 01-04-2005 à 08:18:17
Bonjour,
J'utilise VB6 pour piloter IE mais je ne sais pas à accéder aux frames.
Je débute dans ce genre de programmation et je dois avouer que la structure des objet iHTML m'est peu familière.
Je voudrais trouver une frame de la page chargée, en récupérer le code HTML et simuler un click sur un lien contenu dans la frame.
Quelqu'un peut-il m'aider ?
Ce qui marche dans la page mais pas dans les frames
Exemple de code pour un login :
Private WithEvents IE As InternetExplorer
Private HTML_In(1) As HTMLInputElement
Private HTML_Btn As HTMLButtonElement
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
if URL= "http://www.site.com/login" then
Dim Doc As IHTMLDocument2
Set Doc = IE.document
Chaine$= Doc.body.innerHTML 'Récupération du code HTML de la page
Set HTML_In(0) = Doc.All.Item("Login" )
Set HTML_In(1) = Doc.All.Item("Pwd" )
Set HTML_Btn = Doc.All.Item(Bouton)
HTML_In(0).Value = TxtOut("MonLogin" )
HTML_In(1).Value = TxtOut("MonPwd" )
HTML_Btn.Click
End if
End Sub
'Liste de tous les tags de la page
Sub ReportElementProperties()
Dim objDoc As IHTMLDocument2 'FPHTMLDocument
Dim lngElement As Long
Set objDoc = IE.document
With objDoc.All
For lngElement = 1 To (.length) - 1
EcritFile "Index: " & lngElement
EcritFile "Name: " & .Item(lngElement).tagName
EcritFile "Contents: " & .Item(lngElement).outerHTML
EcritFile "******************************************"
EcritFile " "
Next lngElement
End With
End Sub
Sub EcritFile(Txt)
Dim F
F = FreeFile
Open App.Path & "\Pages\EcritFile.txt" For Append As #F
Print #F, Txt
Close #F
End Sub
---------------
Maurice