.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
stopping popup windows in a web browser

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

edward

(vbCity Leader)


Show this authors profile  Email the author of this post


posts: 1481
since: Apr 8, 2001
from: Shropshire, England

http://www.vbcity.com/forums/topic.asp?tid=22075&highlight=beforenavigate&page=2

Hi,

As most 'unwanted' pop-ups occur during the 'OnLoad' event of the Body element, you can expand on cancelling the NewWindow by determining whether the document being loaded has completed:

Code:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  If WebBrowser1.Document.ReadyState = "interactive" Then
    ' Probable Script 'OnLoad'
    Cancel = True
    Debug.Print "New Window: Blocked"
  Else
    ' Check if an element has been activated
    If WebBrowser1.Document.activeElement Is Nothing Then
      ' Probable Script
      Cancel = True
      Debug.Print "New Window: Blocked"
    Else
      ' User selection likely
      Debug.Print "New Window: Allowed"
    End If
  End If
End Sub

Private Sub Form_Load()
  ' Ensure the WebBrowser is silent. Cancelled pop-ups often throw a script error:
  WebBrowser1.Silent = True
End Sub



Hope that helps smile

I'm not sure how you can get the NewWindow's target URL without allowing the new window to open.


One of the interesting things about the WebBrowser control is the number of ways you can achieve the same outcome. The expansion on the New Window routine is not elegant but hopefully it gives some indication of the range of possible reasons for a new window.

The code will redirect any Target="_blank" type navigation to the original window, but will allow user-activated links that are script based to open in a new window - this would probably be the point at which to implement a new form and RegisterAsBrowser code. An example is the 'Comment' link in a Microsoft KB article which uses javascript to open the target window.

Code:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim sLink As String
On Error Resume Next
If Not WebBrowser1.Document Is Nothing Then
  If Not WebBrowser1.Document.parentWindow.event Is Nothing Then
    If WebBrowser1.Document.parentWindow.event.Type = "MenuExtUnknown" Then
      
      ' CONTEXT MENU - NAVIGATE
      ' Get the URL of the source Element
      sLink = WebBrowser1.Document.parentWindow.event.srcElement.href
      Debug.Print "Context Menu: " & sLink
      If Len(sLink) > 0 Then
        ' Cancel New Window
        Cancel = True
        ' Force open in current window
        WebBrowser1.Navigate sLink
      End If
    End If
  Else
    If WebBrowser1.Document.activeElement Is Nothing Then
      ' PROBABLE OnLoad SCRIPT - BLOCK
      Debug.Print "Probable Script: Unknown"
      Cancel = True
    Else
    sLink = WebBrowser1.Document.activeElement.href
      If Len(sLink) > 0 Then
        If WebBrowser1.Document.activeElement.protocolLong = "Unknown Protocol" Then
          ' PROBABLE SCRIPTED LINK - ALLOW - *** SET NEW FORM
          Cancel = False
        Else
          ' LINK WITH EXTERNAL TARGET - NAVIGATE
          Debug.Print "External Link Target: " & sLink
          Cancel = True
          WebBrowser1.Navigate sLink
        End If
      Else
        ' UNKNOWN NEW WINDOW
        Debug.Print "Unknown Reason: -"
        Cancel = True
      End If
    End If
  End If
Else
  ' PROBABLE SCRIPT - BLOCK
  Cancel = True
End If
End Sub

The routine checks the protocol of the activeElement's link. Script based navigation will return 'Unknown Protocol'.

Hope that helps smile





相关文章

相关软件