求教一段代码
在NetworkAddressChanged事件中如何用代码控制
当指定的服务地址不通的时候，禁止任何程序操作，只能等待，必须等网络通后才能继续程序操作？
比如
If TryConnectHost("192.168.152.102") = False Then '如果服务器的地址不可以解析
If Network.Ping("192.168.152.102") = False Then '如果服务器不可以连接
Dim Result As DialogResult
Result = MessageBox.Show("与服务器的链接已断开! 是否退出系统? 点击【确定】,关闭正在进行的工作并退出系统; 点击【取消】,则继续等待服务器恢复链接.", "运行错误", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
If Result = DialogResult.OK Then
MessageBox.Show("关闭项目退出","提示")
Syscmd.Project.Exit()
Return
Else
forms("某模式窗口").open
End If
End If
End If
请教，
NetworkAddressChanged事件是不是只有在客户端本地电脑IP地址发生变化时才触发？
如果是外部网络或服务端程序问题（比如服务程序崩溃异常退出）导致的服务连接不上，客户端应该如何及时得检测到并且控制此时不可以进行任何操作，直至与服务联通？
是滴，NetworkAddressChanged事件只有在客户端本地电脑IP地址发生变化时才触发
考虑定时ping一下服务器的IP，如果不通就提示