使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)
来源:互联网 发布:芙蓉镇 知乎 编辑:程序博客网 时间:2024/06/15 18:49
三、连接函数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("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 = 0
ss_net.dwType = 0//
ss_net.dwDisplayType = 0
ss_net.dwUsage = 0
ss_net.lpLocalName = ''//
ss_net.lpRemoteName = GS_COPYSERVER1//
ss_net.lpComment = ''
ss_net.lpProvider = ''//
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_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 = ''
ss_net.lpProvider = ''//
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
- 使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)
- 使用PB调用API自动更新(非FTP模式)(五、复制函数F_CONNECT_COPYFILE)
- 使用PB调用API自动更新(非FTP模式)(四、统计复制文件数量函数F_CONNECT_COPYCOUNT)
- 使用PB调用API自动更新(非FTP模式)(一、STRUCTURE定义)
- 使用PB调用API自动更新(非FTP模式)(六、AUTODOWN.INI文件)
- 使用PB调用API自动更新(非FTP模式)(七、下载代码)
- 使用PB调用API自动更新(非FTP模式)(二、API说明及定义(1))
- 使用PB调用API自动更新(非FTP模式)(二、API说明及定义(2))
- PB使用WININET的FTP方式自动更新(一、API和全局变量)
- PB使用WININET的FTP方式自动更新(二、判断是否可以连接)
- PB使用WININET的FTP方式自动更新(三、获得要更新的文件数)
- PB使用WININET的FTP方式自动更新(四、下载)
- (三)TCP用select函数处理多个客户端连接(非阻塞模式)
- PB调用API函数来查找文件
- PB调用API函数来查找文件
- 自动更新系统(三)
- Windows自动更新API (三)
- pb中如何使用API 函数?
- [IT幽默]2004年IT人的通病
- 软件架构师之我见
- 在 ASP.NET中动态加载内容(用户控件和模板)
- 使用PB调用API自动更新(非FTP模式)(二、API说明及定义(2))
- 在 C# 中操作 XML
- 使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)
- C# 下用P2P技术实现点对点聊天
- 一种基于记录集查找特定行的方法
- 关于ComboBox的SelectedIndexChanged事件
- 使用PB调用API自动更新(非FTP模式)(四、统计复制文件数量函数F_CONNECT_COPYCOUNT)
- VB.NET 轻松操作注册表
- 各种播放器代码
- JavaScript 对象与数组参考大全
- 将一个更新划分为几个批次