Foxtable(狐表)用户栏目专家坐堂 → 根据情况在线升级


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

主题:根据情况在线升级

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


加好友 发短信
等级:婴狐 帖子:31 积分:369 威望:0 精华:0 注册:2018/12/14 20:38:00
根据情况在线升级  发帖心情 Post By:2022/2/24 15:25:00 [只看该作者]

发布项目,生成升级文件包,是放在内网上的,如果在内网中每次打开能自动升级成功,外网因找不到网络路径,有错误提示,所以我想如果在外网,打开项目不进行自动升级,如何设置

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/24 15:32:00 [只看该作者]

ping一下内网IP,如果通就调用升级代码

dim up as boolean
If Network.Ping("198.01.01.01") Then
  
up = Syscmd.Project.Update(False,False)
End If
if up = false then
    Forms("窗口1").open()
    
'后续其它代码
end if

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


加好友 发短信
等级:婴狐 帖子:31 积分:369 威望:0 精华:0 注册:2018/12/14 20:38:00
  发帖心情 Post By:2022/2/24 16:13:00 [只看该作者]

谢谢

 回到顶部