方法 : Visual Basic でリモート コンピュータが利用可能かどうかを確認する

  • [アーティクル]

更新 : 2007 年 11 月

My.Computer.Network.Ping メソッドを使用すると、リモート コンピュータまたはホストを利用可能かどうかを判断できます。サーバーは、URL、コンピュータ名、または IP アドレスで指定できます。URL を指定するときには、http:// は含めません。

Ping メソッドは、リモート コンピュータが利用できるかどうかを判断するうえで、フェール セーフなメソッドではありません。ping 先のコンピュータで当該のポートが閉じている場合や、ファイアウォールやルーターによって ping 要求がブロックされる場合があるからです。

s9xkzk4s.alert_note(ja-jp,VS.90).gifメモ :

使用している設定またはエディションによっては、ダイアログ ボックスで使用可能なオプションや、メニュー コマンドの名前や位置が、ヘルプに記載されている内容と異なる場合があります。このヘルプ ページは、全般的な開発設定を考慮して記述されています。設定を変更するには、[ツール] メニューの [設定のインポートとエクスポート] をクリックします。詳細については、「Visual Studio の設定」を参照してください。

サーバーを ping するには

  • Ping メソッドが True を返すかどうかを確認します。この例では、Ping メソッドが True を返すかどうかを確認することにより、サーバーを ping できるかどうかを報告します。198.01.01.01 は、ping するサーバーの IP アドレス、URL、またはコンピュータ名に置き換えます。

    If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

タイムアウトを指定してサーバーを ping するには

  • タイムアウト間隔をミリ秒単位で指定して、Ping メソッドが True を返すかどうかを確認します。タイムアウト値を指定しなかった場合には、500 が既定値として使用されます。この例では、Ping メソッドが True を返すかどうかを確認することにより、サーバーを ping できるかどうかを報告します。タイムアウト間隔は 1000 ミリ秒に設定しています。www.cohowinery.com は、ping するサーバーの IP アドレス、URL、またはコンピュータ名に置き換えます。

    If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

参照

処理手順

方法 : Visual Basic で接続ステータスをチェックする

参照

My.Computer.Network オブジェクト

My.Computer.Network オブジェクトのメンバ

My.Computer.Network.Ping メソッド