pingネットワークで例外をチェックする方法

Question

例外処理の仕組みに関する多くのドキュメントを見てきましたが、構造化されていない例外処理を使用する必要があると思いますが、残念ながらそれを動作させることはできません。

コード：

If e.KeyCode = Keys.Enter Then 
    If My.Computer.Network.Ping((TextBox1.Text), 1000) = False Then 
     WebBrowser1.Navigate(TextBox1.Text) 
    Else 
     On Error Resume Next 
     WebBrowser1.Navigate("http://www.google.com/webhp?hl=en&tab=ww#hl=en&tbo=d&output=search&sclient=psy-ab&q=" & TextBox1.Text) 
    End If 
End If 

エラー：基本的に

An unhandled exception of type 'System.Net.NetworkInformation.PingException' occurred in System.dll 

が、私はそれがテキストボックスに置かれているウェブサイトにpingを実行したいと、それはそれに対してpingを実行できない場合、Google検索を実行します。これが最善の方法であるかどうかはわかりません。

Answer 1

明らかに、従来のOn Errorアプローチを廃止しました。

はここにあなたのシナリオでTry/Catch/Finallyを使用することが可能な方法です：

If e.KeyCode = Keys.Enter Then 
    Dim result As Boolean = True 
    Try 
     result = My.Computer.Network.Ping(TextBox1.Text, 1000) 
    Catch ex As Exception 
    Finally 
     If result = False Then 
      WebBrowser1.Navigate(TextBox1.Text) 
     Else 
      WebBrowser1.Navigate("http://www.google.com/webhp?hl=en&tab=ww#hl=en&tbo=d&output=search&sclient=psy-ab&q=" & TextBox1.Text) 
     End If 
    End Try 
End If