以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动更新判断状态实现不了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108276)
--  作者：icanbest
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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