我试过换到XP,IE6,问题依然存在.而且换一个网站就能得到正确的结果,并不是所有的页面都不能触发这个事件.所以我想不是换一个mshtml.dll能解决的,我电脑里现在有5个大小不同的这个文件,从3M到17M不等.没能解决触发DocumentComplete的问题,所以我现在使用DownloadComplete事件,并且枚举窗口所有框架,找到我需要处理的页面进行处理.
附上枚举页面的代码,希望能帮助到有需要的人.至于DocumentComplete的问题,待项目完成后再研究吧.
谢谢各位.
'枚举页面中所有的frame
Private Sub EnumFrames(ByVal wb As SHDocVw.WebBrowser, wbs As Collection)
On Error GoTo ErrorHandle
Dim pContainer As olelib.IOleContainer
Dim pEnumerator As olelib.IEnumUnknown
Dim pUnk As olelib.IUnknown
Dim pBrowser As SHDocVw.WebBrowser
'If Not (TypeOf wb Is olelib.IOleContainer) Then Exit Sub
Set pContainer = wb.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
wbs.Add pBrowser
Call EnumFrames(pBrowser, wbs)
Else
'Debug.Print Err.Description
End If
Loop
Set pEnumerator = Nothing
End If
Exit Sub
ErrorHandle:
End Sub
