Foxtable(狐表)用户栏目专家坐堂 → [求助]配置远程自动升级,检查不到升级文件启动特慢


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

主题:[求助]配置远程自动升级,检查不到升级文件启动特慢

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]配置远程自动升级,检查不到升级文件启动特慢  发帖心情 Post By:2020/6/11 9:49:00 [只看该作者]

老师我在“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编辑过]

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


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

ftp升级?还是http升级?

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)ftp升级?还是http升级?  发帖心情 Post By:2020/6/11 10:05:00 [只看该作者]

http升级

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


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/11 10:13:00 [只看该作者]

使用HttpClient判断文件是否存在

Dim htc As new HttpClient("http://www.foxtable.com/bbs/images/foxtable666.gif")
Dim s As String = htc.GetData(True)
Output.Show(s)
If s > "" Then
    msgbox("有文件")
Else
    msgbox("无文件")
End If


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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)使用HttpClient判断文件是否存在Dim ...  发帖心情 Post By:2020/6/11 10:25:00 [只看该作者]

知道了,蓝老师。

 

执行了以上代码,系统还是卡死了。

      

[此贴子已经被作者于2020/6/11 10:27:03编辑过]

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


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/11 10:28:00 [只看该作者]

AfterOpenProject事件完整代码发上来看看

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)AfterOpenProject事件完整代码发上来...  发帖心情 Post By:2020/6/11 10:31:00 [只看该作者]

命令窗口执行以下代码,卡死:

Dim htc As new HttpClient("http://www.ts1978.com/Update/update.txt")
Dim s As String = htc.GetData(True)
Output.Show(s)


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


加好友 发短信
等级:超级版主 帖子:106207 积分:540158 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/11 10:52:00 [只看该作者]

估计是这个原因导致的,
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


其它网站我测试都很快,比如
Dim htc As new HttpClient("http://www.baidu.com/Update/update.txt")
Dim s As String = htc.GetData(True)
Output.Show(s)

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)估计是这个原因导致的,[upload=png,...  发帖心情 Post By:2020/6/11 10:55:00 [只看该作者]

原来如此,知道了。我以为只要不通,就会立马返回值。

 

[此贴子已经被作者于2020/6/11 12:01:08编辑过]

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


加好友 发短信
等级:三尾狐 帖子:781 积分:6682 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)估计是这个原因导致的,[upload=png,...  发帖心情 Post By:2020/6/11 12:01:00 [只看该作者]

 

Dim htc As new HttpClient("http://www.baidu.com/Update/update.txt")
Dim s As String = htc.GetData(True)
 
执行了以上判断,下面的判断是否就没有必要了?
TryConnectHost("www.ts1978.com") Then '判断服务器的地址是否可以解析
Network.Ping("www.ts1978.com") Then '判断指定的地址服务器是否可以连通

 回到顶部
总数 12 1 2 下一页