PB使用WININET的FTP方式自动更新(二、判断是否可以连接)

发表于:2007-05-25来源:作者:点击数: 标签:
global type f_connect_ftpserver from function_object end type forward prototypes global function integer f_connect_ftpserver () end prototypes global function integer f_connect_ftpserver (); long ll_hret long ll_hftp integer li_ret = -1 do

global type f_connect_ftpserver from function_object
end type

forward prototypes
global function integer f_connect_ftpserver ()
end prototypes

global function integer f_connect_ftpserver ();
long ll_hret
long ll_hftp
integer li_ret = -1

do while yield()
loop

ll_hret = Inte.netOpenA(gs_application_name,0,',',0)
if ll_hret = 0 or isnull(ll_hret) then
  //messagebox('错误!','缺少动态连接库WinInet.Dll!',stopsign!)
 return li_ret
end if
ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER1,GL_FTPLOGINPORT1,GS_FTPLOGINUSER1,GS_FTPLOGINPASS1,1,0,0)
if ll_hftp = 0 then
  ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER2,GL_FTPLOGINPORT2,GS_FTPLOGINUSER2,GS_FTPLOGINPASS2,1,0,0)
 if ll_hftp = 0 then
  ll_hftp = InternetConnectA(ll_hret,GS_FTPSERVER3,GL_FTPLOGINPORT3,GS_FTPLOGINUSER3,GS_FTPLOGINPASS3,1,0,0)
  if ll_hftp = 0 then
   InternetCloseHandle(ll_hret)
   return li_ret
  ELSE
   li_ret = 3
  END IF
 ELSE
  li_ret = 2
 END IF
else
 li_ret = 1
end if
InternetCloseHandle(ll_hret)
InternetCloseHandle(ll_hftp)
return li_ret

end function

 


原文转自:http://www.ltesting.net