检查Internet连接vb.net

Question

我正在尝试运行一些vb.net代码,表明我是否已连接到互联网

If My.Computer.Network.IsAvailable Then
    MsgBox("Computer is connected.")
Else
    MsgBox("Computer is not connected.")
End If

如果我连接到不需要登录的WiFi信号,这可以正常工作.如果我连接到公共WiFi信号,我需要登录/支付并在完成此步骤之前执行代码,它仍然告诉我我已连接(理论上是,但没有支付/登录我不是)

如何设置这个想法？

谢谢

Answer 1

您可以尝试阅读Google.com来检查互联网连接:

Public Shared Function CheckForInternetConnection() As Boolean
    Try
        Using client = New WebClient()
            Using stream = client.OpenRead("http://www.google.com")
                Return True
            End Using
        End Using
    Catch
        Return False
    End Try
End Function

取自:这里

Answer 2

我用这个

Public Function HaveInternetConnection() As Boolean

    Try
        Return My.Computer.Network.Ping("www.google.com")
    Catch
        Return False
    End Try

End Function