[求助]NetworkAddressChanged - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]NetworkAddressChanged

共有1492人关注过本帖树形打印复制链接主题：[求助]NetworkAddressChanged

xubing051018

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00

[求助]NetworkAddressChanged 发帖心情

Post By：2023/12/22 9:48:00 [只看该作者]

求教一段代码

在NetworkAddressChanged事件中如何用代码控制

当指定的服务地址不通的时候，禁止任何程序操作，只能等待，必须等网络通后才能继续程序操作？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110624 积分：563022 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/12/22 10:35:00 [只看该作者]

比如

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

xubing051018

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00

Post By：2023/12/27 11:10:00 [只看该作者]

请教，NetworkAddressChanged事件是不是只有在客户端本地电脑IP地址发生变化时才触发？

如果是外部网络或服务端程序问题（比如服务程序崩溃异常退出）导致的服务连接不上，客户端应该如何及时得检测到并且控制此时不可以进行任何操作，直至与服务联通？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110624 积分：563022 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/12/27 11:16:00 [只看该作者]

是滴，NetworkAddressChanged事件只有在客户端本地电脑IP地址发生变化时才触发

考虑定时ping一下服务器的IP，如果不通就提示

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110624 积分：563022 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/12/27 11:18:00 [只看该作者]

如果使用OpenQQ就比较好办，服务器断开后，客户端的Disconnected事件会触发：http://www.foxtable.com/webhelp/topics/2996.htm

下一主题 >> << 上一主题

主题：[求助]NetworkAddressChanged