[ad_1]
インターネット接続が 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
これには 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)
偽を返す
エンドトライ
終了機能
[ad_2]
コメント