Foxtable(狐表)用户栏目专家坐堂 → 自动更新判断状态实现不了


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

主题:自动更新判断状态实现不了

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


加好友 发短信
等级:婴狐 帖子:1 积分:70 威望:0 精华:0 注册:2017/10/19 11:40:00
自动更新判断状态实现不了  发帖心情 Post By:2017/10/19 13:09:00 [只看该作者]

Dim XMLUpdateHost As String="http://192.168.1.191:8901/"
Dim XMLObject As Object
Dim StateTXT As Integer, StateU1 As Integer, StateU2 As Integer

XMLObject = CreateObject("Microsoft.XMLHTTP")

XMLObject .Open("GET", XMLUpdateHost+"update.txt", False)
XMLObject .send("")
StateTXT = XMLObject .Status

XMLObject .Open("GET", XMLUpdateHost+"update1.zip", False)
XMLObject .send("")
StateU1 = XMLObject .Status

XMLObject .Open("GET", XMLUpdateHost+"update2.zip", False)
XMLObject .send("")
StateU2 = XMLObject .Status


If StateTXT=200 And StateU1=200 And StateU2 =200
    If Syscmd.Project.Update(False,True) = True  Then
        MessageBox.Show("系统已更新完毕!", "温馨提示")
        Application.restart
    End If
Else
    MessageBox.Show("404","温馨提示")
End If

我是用计划管理定时判断的,望解答。


提示错误:
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2017.10.16.1
错误所在事件:计划在线更新
详细错误信息:
系统未找到指定的资源。
[此贴子已经被作者于2017/10/19 13:11:20编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/19 15:58:00 [只看该作者]

提示这个错误,说明你电脑无法访问这个地址 http://192.168.1.191:8901/

 

请先在ie浏览器那里测试能否正确下载文件。

 

如果不想弹出错误提示,可以加入ping、try catch等

 

http://www.foxtable.com/webhelp/scr/2709.htm

 

http://www.foxtable.com/webhelp/scr/2070.htm

 


 回到顶部