Horrid
Programmer
- May 20, 1999
- 373
I am using the webbrowser control to search web pages. It works fine on everything except pages using IFRAMES, they cause permission denied messages. Anyone had experience with this?
this is a cut down version of the code.
Private WithEvents m_ie As InternetExplorer
Private Sub SearchPage()
Dim pDoc As IHTMLDocument2
Dim pRootWnd As IHTMLWindow2
Dim pWnd As IHTMLWindow2
Dim pFrames As IHTMLFramesCollection2
Dim nFrames As Long
dim FrameContents as string
Set pDoc = m_ie.Document
Set pWnd = pDoc.parentWindow
Set pRootWnd = pWnd.Top
Set pFrames = pRootWnd.frames
nFrames = pFrames.length
If (nFrames > 1) Then
For i = 0 To nFrames - 1
Dim pFrameDoc As IHTMLDocument2
Dim pFrameWnd As IHTMLWindow2
Set pFrameWnd = pRootWnd.frames(i)
FrameContents = pFramewnd.document.body.innerHTML
next i
end if
end sub
this is a cut down version of the code.
Private WithEvents m_ie As InternetExplorer
Private Sub SearchPage()
Dim pDoc As IHTMLDocument2
Dim pRootWnd As IHTMLWindow2
Dim pWnd As IHTMLWindow2
Dim pFrames As IHTMLFramesCollection2
Dim nFrames As Long
dim FrameContents as string
Set pDoc = m_ie.Document
Set pWnd = pDoc.parentWindow
Set pRootWnd = pWnd.Top
Set pFrames = pRootWnd.frames
nFrames = pFrames.length
If (nFrames > 1) Then
For i = 0 To nFrames - 1
Dim pFrameDoc As IHTMLDocument2
Dim pFrameWnd As IHTMLWindow2
Set pFrameWnd = pRootWnd.frames(i)
FrameContents = pFramewnd.document.body.innerHTML
next i
end if
end sub