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

七、下载代码

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)