100分求解WebBrowser控件问题

Question

大家好，没有办法，只能放100分，若解决可加分。谢谢。
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As mainform
Set frmWB = New mainform
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
'frmWB.Caption = WebBrowser1.LocationName 
End Sub
这样打开新窗口后，标题不会动态改变，似乎在新窗口中
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
mainform.Caption = Text 
End Sub
这个过程没有执行了
请问为什么？如何解决？
另外用上面的代码，若出现的弹出广告，则显示不正常，如何判断是否是弹出广告？若是就不显示。
以上问题，真诚求教，不知道是否有诀。
多谢！

Answer 1

或者在WebBrowser1_NewWindow2里面如何获得URL？

Answer 2

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Debug.Print URL, InStr(1, URL, "popup")
If InStr(1, URL, "popup") <> 0 Then Cancel = True
End Sub为什么Cancel = True还是会打开新窗口？

Answer 3

再NewWindow2种是无法获得新的浏览的URL的。而在BeforeNavigate2事件中新窗口已经打开了，所以你需要用下面的方法自己处理弹出窗口，使新的连接在自己的窗口而不是IE中打开。然后在自己窗口的webbrowser的BeforeNavigate2事件中判断窗口是否可以关闭。http://blog.csdn.net/technofantasy/archive/2005/08/04/445493.aspx

Answer 4

handle newwindow3 event？我的XPSP2，为什么提示函数的接口标记为限制的？
在自己窗口的webbrowser的BeforeNavigate2事件中判断窗口是否可以关闭？请问我如何判断这个窗口是自动弹出的？
多谢！
有人告诉我捕获webbrowser的单击事件和URL，这个方法看起来不错，但如何实现？

Answer 5

可以的，论坛上有，思路是设置
with event doc as htmldocumentdoc = webbrowser.body.documentsub doc_onclick()
    ...
end sub
现在没空只提供思路，论坛上有相关帖子。

Answer 6

http://forums.microsoft.com/msdn/ShowPost.aspx?PostID=7228

Answer 7

按照上面的指点
Dim WithEvents WBDoc As HTMLDocument
……
Private Function WBdoc_onclick() As Boolean
    'MsgBox "Clicked the document!"
    ' Tell IE to continue processing the event.
    WBdoc_onclick = True
    AllowPop = True
End Function
判断AllowPop = True而决定是否打开新窗口，我在打开新窗口后，必须AllowPop = False，但是这样一来
的确可以实现。但对于有些网页无法打开。比如本站论坛的帖子，就无法打开……。其他的新闻啊什么的都没问题而楼上的代码是VB.NET的，还看不懂啊……
请继续帮助！

Answer 8

也就是说上面的Dim WithEvents WBDoc As HTMLDocument无法捕捉到所有单击事件，怎么办啊。
希望高手指点！