从网页浏览器中拦截网站

Question

在网站实际加载之前是否可以阻止使用visual basic构建网站？

例如：

如果我尝试加载www.google.co.uk，打去它不会加载该网站，但给出错误信息。我试过搜索，但找不到我在找什么。

Answer 1

' 
    ' 
Dim MyURL As String 
    ' 
    ' 
Private Sub Command1_Click() 
MyURL = "http://www.website.com" 
WebBrowser1.Navigate2 MyURL 
End Sub 

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) 
If Instr(URL, MyURL) > 0 Then 
    Cancel = True ' Do not allow 
End If 
End Sub 

Answer 2

这是一个很容易的事情，你问。它看起来像这样。您基本上会挂接导航和任何加载之前发生的导航事件。然后，您可以检查任何您想要的网址，然后取消导航或重新路由到已批准的网站。

Public Class Form1 
    Public Sub New() 
     ' This call is required by the designer. 
     InitializeComponent() 
    End Sub 
    Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating 
     If e.Url.ToString.Contains("www.badwebsite.com") Then 
      e.Cancel = True 
      'WebBrowser1.Navigate("http://www.goodwebsite.com") 
     End If 
    End Sub 
End Class