Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3278 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Tag & name d'un page HTML en VB6

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Tag & name d'un page HTML en VB6

n°1032051
mchurlet
Posté le 01-04-2005 à 08:18:17  profilanswer
 

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
mood
Publicité
Posté le 01-04-2005 à 08:18:17  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Tag & name d'un page HTML en VB6

 

Sujets relatifs
Tableau en HTML ?!lien html special fichiers datés
Arborescence page persotable ou pas table pour la mise en page?
empêcher un visiteur de rafraîchir la pagepied de page qui voit double
[sessions et easyphp 1.7] probleme page à pagenew souris HTML
Recupération de la valeur du formulaire html "select"[HTML/CSS/JS] Probleme de priorité d'affichage
Plus de sujets relatifs à : Tag & name d'un page HTML en VB6


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR