主题：[求助]网络连通测试不准确

Dim FWdt As Date

If TryConnectHost("www.baidu.com") Then '判断网络是否正常

    Try  

        Network.Ping("www.baidu.com") 

        Dim htc As New HttpClient("http://www.baidu.com")

        If htc.GetInformation() Then

            htc.Close() '必须执行Close方法关闭连接

            FWdt = CDate(htc.ResponseHeaders("date")) '取得网页头部日期

        End If

        Output.Show("0") '网络不通的话将今天赋值 

    Catch ex As Exception 

        Output.Show("1") '网络不通的话将今天赋值 

    End Try 

Else

    Output.Show("2") '网络不通的话将今天赋值 

End If

FT运行错误假死大概2分钟左右，最后弹出以下错误：

此主题相关图片如下：微信截图_20220927180212.png

代码最后运行结果为0，不是也应该是2吗？

麻烦老师，帮忙解决一下，反反复复测试，始终不理想，谢谢！