以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据情况在线升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175233)
--  作者：殷建伟
--  发布时间：2022/2/24 15:25:00
--  根据情况在线升级
发布项目，生成升级文件包，是放在内网上的，如果在内网中每次打开能自动升级成功，外网因找不到网络路径，有错误提示，所以我想如果在外网，打开项目不进行自动升级，如何设置
--  作者：有点蓝
--  发布时间：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
--  作者：殷建伟
--  发布时间：2022/2/24 16:13:00
--  
谢谢