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


  共有1553人关注过本帖树形打印复制链接

主题:[求助]NetworkAddressChanged

帅哥哟,离线,有人找我吗?
xubing051018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:553 积分:4545 威望:0 精华:0 注册:2012/12/2 16:53:00
[求助]NetworkAddressChanged  发帖心情 Post By:2023/12/22 9:48:00 [只看该作者]

求教一段代码

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望: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
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
xubing051018
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:553 积分:4545 威望:0 精华:0 注册:2012/12/2 16:53:00
  发帖心情 Post By:2023/12/27 11:10:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/27 11:16:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望: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

 回到顶部