Tag & name d'un page HTML en VB6

Tag & name d'un page HTML en VB6 - VB/VBA/VBS - Programmation

Marsh Posté le 01-04-2005 à 08:18:17    

Bonjour, :hello:  
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
Reply

Marsh Posté le 01-04-2005 à 08:18:17   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed