使用PB调用API自动更新（非FTP模式）（七、下载代码）

发布: 2007-7-02 11:08 | 作者: admin | 来源: | 查看: 34次 | 进入软件测试论坛讨论

七、下载代码

STRING GS_COPYSERVER1
STRING GS_COPYSERVER2
STRING GS_COPYSERVER3
string ls_path
string ls_mypath
long ll_count = 0

GS_COPYSERVER1    = ProfileString("autodown.ini","downpath","COPYSERVER1","")
GS_COPYSERVER2    = ProfileString("autodown.ini","downpath","COPYSERVER2","")
GS_COPYSERVER3    = ProfileString("autodown.ini","downpath","COPYSERVER3","")

st_ts.text = @#正在检查需要更新软件的数量...@#
ls_path = GS_COPYSERVER1
ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
if ll_count = -1 then
ls_path = GS_COPYSERVER2
ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
if ll_count = -1 then
  ls_path = GS_COPYSERVER3
  ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
  if ll_count = -1 then
   st_ts.text = @#正在检查是否需要更新软件版本...@#
   ls_path = f_connect_copyserver()
   if ls_path = @#@# then
    messagebox(@#连接错误！@#,@#无法连接服务器！软件不能运行！@#,stopsign!)
    //close(this)
    return
   end if
  end if
end if
end if

//messagebox(@#@#,ls_path)ls_path<> @#@#
if ll_count = -1 then
st_ts.text = @#正在检查需要更新软件的数量...@#
ll_count = f_connect_copycount(ls_path,lb_files1,lb_files2,lb_files3)
end if
if ll_count = -1 then
messagebox(@#连接错误！@#,@#无法连接服务器！软件不能运行！@#,stopsign!)
close(this)
return
end if
if ll_count = 0 then
st_ts.text = @#正在启动主程序...@#

else
st_ts.text = @#正在更新软件版本...@#
choose case f_connect_copyfile(ls_path,hpb_1,ll_count,lb_files1,lb_files2,lb_files3)
  case 1
   st_ts.text = @#正在启动主程序...@#

  case 2 //启动参数不同，以便赋值更新程序
   st_ts.text = @#正在启动主程序...@#

end choose
end if
string ls_file
ls_file = gs_application_path + @#\xxxxx.exe qqaazzwwss@#
run(ls_file)
//close(this)