使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)

原创 2004年10月29日 12:21:00

三、连接函数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使用WININET的FTP方式自动更新(二、判断是否可以连接)

global type f_connect_ftpserver from function_objectend typeforward prototypesglobal function intege...
  • handycyw
  • handycyw
  • 2004年11月23日 19:11
  • 1288

使用PB调用API自动更新(非FTP模式)(二、API说明及定义(1))

一、WNetAddConnection2Afunction ulong WNetAddConnection2A(ref s_netresource lpNetResource, String lpPa...
  • handycyw
  • handycyw
  • 2004年10月29日 12:16
  • 1183

PB使用WININET的FTP方式自动更新(四、下载)

四、下载(只是处理二级目录)global type f_connect_ftpcopyfile from function_objectend typeforward prototypesglobal...
  • handycyw
  • handycyw
  • 2004年11月23日 19:18
  • 1349

PB使用WININET的FTP方式自动更新(一、API和全局变量)

一些结构和API在非FTP方式文档中有了定义就不再说明。一、API声明function uLong InternetOpenA(string lpszAgent, ulong dwAccessType...
  • handycyw
  • handycyw
  • 2004年11月23日 19:08
  • 1675

pb实现自动升级

SatRDA介绍 SatRDA是目前最高效的远程数据访问组件,大数据量测试比外网直连数据库速度提升10-200倍。使用它无需要改动原来的数据连接访问代码就可以支持外网访问远程数据库。能够为and...
  • pcwe2002
  • pcwe2002
  • 2017年03月17日 15:55
  • 1481

PB调用API函数来查找文件

PB语法:结构体定义:global type win32_find_data from structure unsignedlong  dwFileAttributes unsignedlong   ...
  • eastlife2008
  • eastlife2008
  • 2008年01月17日 18:11
  • 1994

使用PB调用API自动更新(非FTP模式)(四、统计复制文件数量函数F_CONNECT_COPYCOUNT)

四、统计复制文件数量函数F_CONNECT_COPYCOUNT需要控件:LISTBOX(3个)返回值:需要下载的文件个数。global type f_connect_copycount from fu...
  • handycyw
  • handycyw
  • 2004年10月29日 12:23
  • 1002

使用PB调用API自动更新(非FTP模式)(五、复制函数F_CONNECT_COPYFILE)

五、复制函数F_CONNECT_COPYFILE需要控件:LISTBOX(3个)需要INI文件:AUTODOWN.INIglobal type f_connect_copyfile from func...
  • handycyw
  • handycyw
  • 2004年10月29日 12:25
  • 992

使用PB调用API自动更新(非FTP模式)(二、API说明及定义(2))

5、CompareFileTimefunction ulong CompareFileTime( REF s_filetime lpFileTime1, REF s_filetime lpFileTi...
  • handycyw
  • handycyw
  • 2004年10月29日 12:19
  • 920

PB函数的调用

代码功能:已审核的不能修改,当用户点击菜单栏上的修改按钮时会弹出提示,未审核的则可以修改 //定义变量 long ll_row ,ll_check ll_row=dw_master.GetR...
  • qinyf2015
  • qinyf2015
  • 2016年08月09日 12:40
  • 1084
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用PB调用API自动更新(非FTP模式)(三、连接函数F_CONNECT_COPYSERVER)
举报原因:
原因补充:

(最多只允许输入30个字)