2024年4月2日发(作者：)
使用PB调用API自动更新
三、连接函数F_CONNECT_COPYSERVER
返回路径
global type f_connect_copyserver from function_object
end type
forward prototypes
global function string f_connect_copyserver ()
end prototypes
global function string f_connect_copyserver ();
STRING GS_COPYSERVER1
STRING GS_COPYSERVER2
STRING GS_COPYSERVER3
STRING GS_COPYLOGINUSER1
STRING GS_COPYLOGINUSER2
STRING GS_COPYLOGINUSER3
STRING GS_COPYLOGINPASS1
STRING GS_COPYLOGINPASS2
STRING GS_COPYLOGINPASS3
GS_COPYSERVER1 = ProfileString("","downpath","COPYSERVER1","")
GS_COPYSERVER2 = ProfileString("","downpath","COPYSERVER2","")
GS_COPYSERVER3 = ProfileString("","downpath","COPYSERVER3","")
GS_COPYLOGINUSER1 = ProfileString("","downpath","COPYLOGINUSER1","")
GS_COPYLOGINUSER2 = ProfileString("","downpath","COPYLOGINUSER2","")
GS_COPYLOGINUSER3 = ProfileString("","downpath","COPYLOGINUSER3","")
GS_COPYLOGINPASS1 = ProfileString("","downpath","COPYLOGINPASS1","")
GS_COPYLOGINPASS2 = ProfileString("","downpath","COPYLOGINPASS2","")
GS_COPYLOGINPASS3 = ProfileString("","downpath","COPYLOGINPASS3","")
s_netresource ss_net
ss_e = 0
ss_ = 0//
ss_layType = 0
ss_e = 0
ss_lName = ''//
ss_teName = GS_COPYSERVER1//
ss_ent = ''
ss_ider = ''//
long ll_ret
string ls_path
ls_path = ''
ll_ret = WNetGetConnectionA('',GS_COPYSERVER1,255)
if ll_ret <> 0 then
ll_ret = WNetGetConnectionA('',GS_COPYSERVER2,255)
if ll_ret <> 0 then
ll_ret = WNetGetConnectionA('',GS_COPYSERVER3,255)
if ll_ret = 0 then
return GS_COPYSERVER3
end if
else
return GS_COPYSERVER2
end if
else
return GS_COPYSERVER1
end if
//gl_handle,
ll_ret = WNetAddConnection2A(ss_net,GS_COPYLOGINPASS1,GS_COPYLOGINUSER1,1)
if ll_ret <> 0 then
ss_e = 0
ss_ = 0//
ss_layType = 0
ss_e = 0
ss_lName = ''//
ss_teName = GS_COPYSERVER2//
ss_ent = ''
ss_ider = ''//
ll_ret = WNetAddConnection2A(ss_net,GS_COPYLOGINPASS2,GS_COPYLOGINUSER2,1)
if ll_ret <> 0 then
ss_e = 0
ss_ = 0//
ss_layType = 0
ss_e = 0
ss_lName = ''//
ss_teName = GS_COPYSERVER3//
ss_ent = ''
ss_ider = ''//
ll_ret = WNetAddConnection2A(ss_net,GS_COPYLOGINPASS3,GS_COPYLOGINUSER3,1)
if ll_ret <> 0 then
//messagebox('错误！','连接服务器错误！',stopsign!)
return ls_path
end if
ls_path = GS_COPYSERVER3
else
ls_path = GS_COPYSERVER2
end if
else
ls_path = GS_COPYSERVER1
end if
if isnull(ls_path) then ls_path = ''
//messagebox('',ls_path)
return ls_path
end function
发布评论