检查在线状态,例如通过ping

时间:2015-10-04 18:27:17

标签: vb.net ping win-universal-app

我正在使用VB.NET开发适用于Windows 10 IoT的通用Windows应用程序。 我正在检查两件事 - 首先是,如果有任何网络的话。我正在使用

Imports System.Net
NetworkInformation.NetworkInterface.GetIsNetworkAvailable

为此。但这并没有告诉我,如果我真的有互联网接入,它只表明我是否连接到网络。

有没有办法ping一个地址(如8.8.8.8)?我找不到解决方案。 该设备仅用于私人用途,如果有必要,该应用程序将不会公开。

2 个答案:

答案 0 :(得分:1)

您可以使用:
My.Computer.Network.Ping(“192.168.1.1”)ping一个ip

My.Computer.Network.Ping(“www.google.com”)ping一个网址

\G(?:[^\\]|\\.)*?(\b[WwDdGgHhms]\b|\\[WwDdGgHhms])

答案 1 :(得分:1)

此提案文字向您展示如何确定地连接到互联网。 例如,如果google.com可以访问,则返回true。所以你不需要任何ping。

''' <summary>
''' check for a existing internet connection to www.google.com
''' </summary>
''' <returns>True if it's exist</returns>
Public Shared Function isConnected() As Boolean
    Try
        Dim addresslist As IPAddress() = Dns.GetHostAddresses("www.google.com")
        ' | ' addresslist holds a list of ipadresses to google
        ' | ' e.g  173.194.40.112                                       |
        ' | '                .116                                       |
        If addresslist(0).ToString().Length > 6 Then
            Return True
        Else
            Return False
        End If
    Catch ex As Sockets.SocketException
        ' | ' You are offline                   |
        ' | ' the host is unkonwn               |
        Return False
    Catch ex As Exception
        Return False
    End Try
End Function