【解決方法】VB.NET でインターネット接続を確認する方法

プログラミングQA

2023.04.24

インターネット接続が vb.net コードで利用可能であることを確認したい

私が試したこと：

Public Function isInternetConnected(Optional pUrl As String = "http://www.google.com") As Boolean

    Try
        Using client = New WebClient()
            Using stream = client.OpenRead(pUrl)
                Return True
            End Using
        End Using
        Return IsConnectedToInternet(pUrl)
    Catch ex As Exception
        Return IsConnectedToInternet(pUrl)

    End Try
End Function

このコードは、インターネット接続が利用可能な場合に false を返すことがあります。

解決策 1
解決策 2

解決策 1

これには 100% 有効な解決策はありませんが、次の方法を試すことができます。

'reference to System.Net and System.Net.NetworkInformation is required!
Function IsInternetConnected() AS Boolean

	Return New Ping().Send("www.google.com").Status = IPStatus.Success

ENd Function

ほとんどの場合、正しく動作します。

解決策 2

これを試してください:(注: System.Net と System.Net.NetworkInformation をインポートする必要があります)
My.Computer.Network.IsAvailable の場合
MsgBox(“コンピュータが接続されました。”)
それ以外
MsgBox(“コンピュータが接続されていません。”)
終了条件

また
Dim Connectivity As Integer = 0
パブリック関数 CheckForInternetConnection() ブール値として
試す
client = New WebClient() の使用
ストリームの使用 = client.OpenRead(“http://www.google.com”)
MessageBox.Show(“インターネット接続確立”, “インターネット接続チェック”, MessageBoxButtons.OK, MessageBoxIcon.Information)
接続性 = 1
True を返す
使用終了
使用終了
キャッチ
接続性 = 0
MessageBox.Show(“インターネット接続なし”, “インターネット接続チェック”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
偽を返す
エンドトライ
終了機能