stopping popup windows in a web browser

王朝system·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

edward

(vbCity Leader)

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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航