老师我在“AfterOpenProject”加入以下代码:
If TryConnectHost("www.ts1978.com") Then '判断服务器的地址是否可以解析
If Network.Ping("www.ts1978.com") Then '判断指定的地址服务器是否可以连通
Syscmd.Project.Update(False,True)'如果有可用升级提醒用户进行升级
End If
Else
End If
测试时故意在升级服务器上没有放置“升级包”文件。(假设服务器上文件丢失等极端事情发生)
启动系统时完全没有反应:
此主题相关图片如下:微信图片_20200611094811.png

等大概5分钟左右,弹出如下“升级失败”窗口,关闭此窗口,系统正常启动。
此主题相关图片如下:微信图片_20200611094941.png

如何修改一下代码?如果找不到升级文件,就直接启动系统。
[此贴子已经被作者于2020/6/11 9:52:00编辑过]