webbrowser + iframe

Question

salut tous le monde,
pour recuperer le 5eme lien dans un webbrowser je fait  
webbrowser1.Document.links.Item(5)

et pour recuperer dans une iframe nomé ID11 comment faire 

merci d'avance

Renfield · Answer

voir site de edanmo
un mvp VB qui a fournit un TLB qui permet d'acceder aux interfaces

lesquelles te permettront de faire ce que tu cherche à faire

kelm_by · Answer

voilla j'ai trouver ca 


Sub EnumFrames(ByVal wb As WebBrowser)
Dim pContainer As olelib.IOleContainer
Dim pEnumerator As olelib.IEnumUnknown
Dim pUnk As olelib.IUnknown
Dim pBrowser As SHDocVw.IWebBrowser2

   Set pContainer = wb.Object.Document
   
   ' Get an enumerator for the frames
   If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
   
      Set pContainer = Nothing
      
      ' Enumerate and refresh all the frames
      Do While pEnumerator.Next(1, pUnk) = 0
         
         On Error Resume Next
         
         ' Clear errors
         Err.Clear
         
         ' Get the IWebBrowser2 interface
         Set pBrowser = pUnk
   
         If Err.Number = 0 Then
            Debug.Print "Frame: " & pBrowser.LocationURL
         End If
   
      Loop
      
      Set pEnumerator = Nothing

   End If
End Sub

mais il ya un probleme ici object requied

EnumFrames (WebBrowser1)

Renfield · Answer

faut peut etre sauter quelques lignes :p

kelm_by · Answer

oui c'est sur mais l'erreur et toujour la

Sub EnumFrames(ByVal wb As WebBrowser)
Dim pContainer As olelib.IOleContainer
Dim pEnumerator As olelib.IEnumUnknown
Dim pUnk As olelib.IUnknown
Dim pBrowser As SHDocVw.IWebBrowser2


Set pContainer = wb.Object.Document
If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
Set pContainer = Nothing
Do While pEnumerator.Next(1, pUnk) = 0
On Error Resume Next
Err.Clear
Set pBrowser = pUnk
If Err.Number = 0 Then
Debug.Print "Frame: " & pBrowser.LocationURL
End If
Loop
Set pEnumerator = Nothing
End If
End Sub

Renfield · Answer

pas mal, ce code, j'ignore si c'est du VB2005 bien codé, mais bon...

kelm_by · Answer

meme avec ce code j'ai acces refuser

Dim Frms As Object
Dim i As Integer
Set Frms = WebBrowser1.Document.frames
For i = 0 To Frms.Length - 1
    MsgBox WebBrowser1.Document.frames(i).Document.body.innerHTML
Next

Renfield · Answer

ah oui, ça, c'est interdit !

l'autre m'a l'air bien, pour du VB6, mais ca me plait moyen pour du VB2005 (nb, remarques, je connais pas grand chose au 2005)

NHenry · Answer

Bonjour

Renfield, C'est du VB6, en .NET, il n'y a pas de :
Set pContainer = wb.Object.Document

"Set" n'est plus utilisé.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Renfield · Answer

ok, je le sentais bien comme ça 
j'ai des element squi prouvent, desormais

Webbrowser + iframe

9 réponses

Votre réponse

Discussions similaires