Third, the connection function f_connect_copyserver return path global type f_connect_copyserver from function_object type
Forward PrototypeSGlobal Function String f_connect_copyserver () end prototypes
global function string f_connect_copyserver (); STRING GS_COPYSERVER1STRING GS_COPYSERVER2STRING GS_COPYSERVER3STRING GS_COPYLOGINUSER1STRING GS_COPYLOGINUSER2STRING GS_COPYLOGINUSER3STRING GS_COPYLOGINPASS1STRING GS_COPYLOGINPASS2STRING GS_COPYLOGINPASS3
GS_COPYSERVER1 = ProfileString ( "autodown.ini", "downpath", "COPYSERVER1", "") GS_COPYSERVER2 = ProfileString ( "autodown.ini", "downpath", "COPYSERVER2", "") GS_COPYSERVER3 = ProfileString ( "autodown.ini "," downpath "," COPYSERVER3 "," ") GS_COPYLOGINUSER1 = ProfileString (" autodown.ini "," downpath "," COPYLOGINUSER1 "," ") GS_COPYLOGINUSER2 = ProfileString (" autodown.ini "," downpath "," COPYLOGINUSER2 "," ") GS_COPYLOGINUSER3 = ProfileString (" autodown.ini "," downpath "," COPYLOGINUSER3 "," ") GS_COPYLOGINPASS1 = ProfileString (" autodown.ini "," downpath "," COPYLOGINPASS1 "," ") GS_COPYLOGINPASS2 = ProfileString ("Autodown.ini", "DownPath", "Copyloginpass2", "") GS_COPYLOGINPASS3 = ProfileString ("Autodown.ini", "DownPath", "Copyloginpass3", "" "
S_NetResource SS_NET
ss_net.dwScope = 0ss_net.dwType = 0 // ss_net.dwDisplayType = 0ss_net.dwUsage = 0ss_net.lpLocalName = '' //ss_net.lpRemoteName = GS_COPYSERVER1 // ss_net.lpComment = '' ss_net.lpProvider = '' //
long ll_retstring ls_pathls_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 ifelse return GS_COPYSERVER1end if // gl_handle, ll_ret = WNetAddConnection2A (ss_net, GS_COPYLOGINPASS1, GS_COPYLOGINUSER1,1) if ll_ret <> 0 then ss_net.dwScope = 0 ss_net.dwType = 0 // ss_net.dwDisplayType = 0 ss_net.dwUsage = 0 ss_net.lpLocalName = '' // ss_net.lpRemoteName = GS_COPYSERVER2 // ss_net.lpComment = '' ss_net.lpProvider = '' // ll_ret = WNetAddConnection2A (ss_net, GS_COPYLOGINPASS2, GS_COPYLOGINUSER2 , 1) if ll_ret <> 0 then ss_net.dwScope = 0 ss_net.dwType = 0 // ss_net.dwDisplayType = 0 ss_net.dwUsage = 0 ss_net.lpLocalName = '' // ss_net.lpRemoteName = GS_COPYSERVER3 // ss_net.lpComment = '' S_net.lpprovider = '' // ll_ret = WnetdConnection2a (SS_NET, G S_copyloginpass3, gs_copyloginuser3, 1) IF ll_ret <> 0 THEN // MessageBox ('error! ',' Connect the server error! ', Stopsign!) Return ls_path end if ls_path = GS_COPYSERVER3 else ls_path = GS_COPYSERVER2 end ifelse ls_path = GS_COPYSERVER1end ifif isnull (ls_path) then ls_path =' '// messagebox (' ', ls_path) return ls_pathend function
