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编辑过]
加好友 
发短信
Post By：2017/10/19 13:09:00 [只看该作者]
