PB使用WININET的FTP方式自動更新（一、API和全局變量）

2024-07-21 02:09:55

字體：大中小

來源：轉載

供稿：網友

一些結構和api在非ftp方式文檔中有了定義就不再說明。
一、api聲明
function ulong internetopena(string lpszagent, ulong dwaccesstype,string lpszproxyname,string lpszproxybypass, ulong dwflags) library "wininet.dll"
function ulong internetconnecta(ulong hinternet,string lpszservername,ulong nserverport,string lpszusername,string lpszpassword,ulong dwservice,ulong dwflags,ulong dwcontext) library "wininet.dll"
function boolean internetclosehandle(ulong hinternet) library "wininet.dll"
function boolean ftpsetcurrentdirectorya(ulong hconnect,string lpszdirectory) library "wininet.dll"
function ulong ftpfindfirstfilea(ulong hconnect,string lpszsearchfile,ref s_win32_find_data lpfindfiledata,ulong dwflags,ulong dwcontext) library "wininet.dll"
function boolean internetfindnextfilea(ulong hfind,ref s_win32_find_data lpvfinddata) library "wininet.dll"
function boolean ftpgetfilea(ulong hconnect, string lpszremotefile,string lpsznewfile,boolean ffailifexists,ulong dwflagsandattributes,ulong dwflags,ulong dwcontext) library "wininet.dll"
二、全局變量
string gs_application_name
string gs_ftpserver1
string gs_ftpserver2
string gs_ftpserver3
string gs_ftploginuser1
string gs_ftploginuser2
string gs_ftploginuser3
string gs_ftploginpass1
string gs_ftploginpass2
string gs_ftploginpass3
string gs_ftploginport1
string gs_ftploginport2
string gs_ftploginport3
long   gl_ftploginport1
long   gl_ftploginport2
long   gl_ftploginport3
string gs_ftpdir1
string gs_ftpdir2
string gs_ftpdir3

gs_ftpserver1    = profilestring("autodown.ini","downpath","ftpserver1","")
gs_ftpserver2    = profilestring("autodown.ini","downpath","ftpserver2","")
gs_ftpserver3    = profilestring("autodown.ini","downpath","ftpserver3","")
gs_ftploginuser1 = profilestring("autodown.ini","downpath","ftploginuser1","")
gs_ftploginuser2 = profilestring("autodown.ini","downpath","ftploginuser2","")
gs_ftploginuser3 = profilestring("autodown.ini","downpath","ftploginuser3","")
gs_ftploginpass1 = profilestring("autodown.ini","downpath","ftploginpass1","")
gs_ftploginpass2 = profilestring("autodown.ini","downpath","ftploginpass2","")
gs_ftploginpass3 = profilestring("autodown.ini","downpath","ftploginpass3","")
gs_ftploginport1 = profilestring("autodown.ini","downpath","ftploginport1","")
gs_ftploginport2 = profilestring("autodown.ini","downpath","ftploginport2","")
gs_ftploginport3 = profilestring("autodown.ini","downpath","ftploginport3","")
gs_ftpdir1        = profilestring("autodown.ini","downpath","ftpdir1","")
gs_ftpdir2        = profilestring("autodown.ini","downpath","ftpdir2","")
gs_ftpdir3        = profilestring("autodown.ini","downpath","ftpdir3","")

商業源碼熱門下載www.html.org.cn

上一篇：在Visual FoxPro 5.0中激活Internet Explorer

下一篇：PB使用WININET的FTP方式自動更新（二、判斷是否可以連接）