vb.net - 检查互联网可用性

Question

如果有互联网连接，我正在尝试 ping a，因此我决定按以下方式 ping google：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Try
        If My.Computer.Network.Ping("www.google.com", 500) Then
            TextBox4.Text = "Internet Available"
        Else
            TextBox4.Text = "No Internet avilable"
        End If
    Catch ex As Exception
        TextBox4.Text = "Cable disconnected"
    End Try

End Sub

它工作正常，但挑战是当我断开电缆时，应用程序似乎冻结了，这可能是由于 wch 使系统持续 ping 的时间。我的定时器延迟时间是2000。有没有更好的方法来解决这个问题。如果您提供代码或链接，我将不胜感激

Answer 1

1. 您的计时器在哪个线程中运行？这些类型的诊断需要放在一个工作线程中，与运行你的 UI 的工作线程分开。如果您还没有使用线程，那么现在就为您的股票计时器这样做。

2. 您也可以使用公开的 Win 7 / XP API 来检查 Internet 连接，以防万一。

我希望这能指引你走上正确的道路。