ウェブサイトからウェブをブロックする

Question

ウェブサイトが実際に読み込まれる前に、ウェブサイトをビジュアルベーシックでブロックすることは可能ですか？例えば

：

私は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

これは非常に簡単なものです。それはこのように見えます。あなたは基本的に、ナビゲーションの前に発生しているナビゲートイベントに引っ掛かります。次に、あなたが望むものをURLで確認し、ナビゲーションをキャンセルするか、承認されたウェブサイトにリルートすることができます。

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