以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]互联网自动升级:实现不能联网的电脑不报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176243)

--  作者:瑞峰
--  发布时间:2022/4/5 14:17:00
--  [求助]互联网自动升级:实现不能联网的电脑不报错
互联网自动升级:实现不能联网的电脑不报错,可以继续使用旧版本。

如何实现?


--  作者:有点蓝
--  发布时间:2022/4/5 21:50:00
--  
判断一下如果不能连接外网,就不调用升级代码:http://www.foxtable.com/webhelp/topics/2709.htm

dim up as boolean
If TryConnectHost("www.baidu.com") Then
  
up = Syscmd.Project.Update(False,False)
End If

If up  = False Then \'如果没有升级
    \'原AfterOpenProject事件代码
End
 If