申明部分
function long internetopen(string lpszAgent,long dwAccessType,string lpszProxyName,string lpszProxyBypass,long dwFlags)library "wininet.dll" Alias for "InternetOpenA"
function long InternetConnect ( ref long hinternet, string lpszservername, long nserverport,string lpszusername,string lpszpassword,long dwservice,long dwflags, long dwcontext) LIBRARY "WinInet.dll" ALIAS FOR "InternetConnectA"
function ulong GetLastError () library "kernel32.dll"
handle=internetopen("pb70",0,"","",0) //这个handel=133693848 ,getlasterror 返回0
handle_connect=InternetConnect(handle,"61.145.69.26",21,"anonymous","",1,0,0)
//这个handle_connect=0 ,getlasterror 返回6:无效句柄
这个FTP地址确认可以匿名登陆,但是连接怎么老是出错呢?
------解决方案--------------------
Function Long InternetOpen(String sAgent, Long lAccessType, String sProxyName,String sProxyBypass, Long lFlags) Library "wininet.dll" Alias For "InternetOpenA"
Function Long InternetConnect(Long hInternetSession, String sServerName, Integer nServerPort, String sUsername,String sPassword, Long lService, Long lFlags, Long lContext) Library "wininet.dll" Alias For "InternetConnectA"
用这个试下