主题：网络不通提示

老师，我看了您以前的一个回帖，关于网络不通的时候显示不通的提示，我试了下面的代码，没有什么效果，和没有代码一个样。请您指导。 代码放到：BeforeOpenProject事件 If TryConnectHost("www.baidu.com") =False     e.Cancel = True     e.HideSplashForm = True     messagebox.Show("网络不通,请检查网络配置情况") End If

应该不是这个原因，因为到最后还是和没有代码一样提示数据库不能连接，联系管理员等。

老师，我找到原因了，我有两根网线，一个通阿里云，一个是内部网，如果两根线都断了，就按代码执行；如果只断一根阿里云的，代码就不执行了，看来是判断是否有网络的代码不是很完美。如何改进一下呢？只要阿里云的不通就提示。