2024年6月15日发(作者：)

Long ll_hOpen, ll_hFTPSession

String pbNullString, Is_CurrentPath

//CONSTANT Long MAX_PATH = 260

SetNull(pbNullString)

ll_hOpen = InternetOpen ("建立FTP演示程序",

INTERNET_OPEN_TYPE_PRECONFIG, pbNullString, pbNullString,

INTERNET_FLAG_ASYNC);

ll_hFTPSession = InternetConnect ( ll_hOpen, "ftp://",

INTERNET_DEFAULT_FTP_PORT, "anonymous", "maguian@",

INTERNET_SERVICE_FTP, 0, 0 )

//ll_hFTPSession = InternetConnect

( ll_hOpen,"ftp://28.113.32.66",INTERNET_DEFAULT_FTP_PORT,"zhugc","tracert66",

INTERNET_SERVICE_FTP,0,0);

Is_CurrentPath = Space(MAX_PATH)

FtpGetCurrentDirectory(ll_hFTPSession, Is_CurrentPath, MAX_PATH)

FtpGetFile(ll_hFTPSession,"", "c:", 0, 0,

FTP_TRANSFER_TYPE_UNKNOWN, 0)

InternetCloseHandle( ll_hFTPSession)

InternetCloseHandle(ll_hOpen)

FUNCTION Long InternetOpen (String lpszAgent, Long dwAccessType, String

lpszProxy, String lpszProxyBypass, Long dwFlags) LIBRARY "" ALIAS FOR

"InternetOpenA"

FUNCTION Long InternetConnect ( Long hInternet, String lpszServerName,

Long nServerPort, String lpszUserName, String lpszPassword, Long dwService,

Long dwFlags, Long dwContext) LIBRARY "" ALIAS FOR

"InternetConnectA"

FUNCTION Long FtpGetCurrentDirectory (Long hConnect, REF String

lpszCurrentDirectory, Long lpdwCurrentDirectory) LIBRARY "" ALIAS

FOR "FtpGetCurrentDirectoryA"

FUNCTION Long InternetCloseHandle (Long hInternet) LIBRARY ""

FUNCTION Long FtpGetFile (Long hConnect, String lpszRemoteFile, String

lpszNewFile, Long fFailIfExists, Long dwFlagsAndAttributes, Long dwFlags, Long

dwContext) LIBRARY "" ALIAS FOR "FtpGetFileA"

CONSTANT Long INTERNET_OPEN_TYPE_PRECONFIG = 0

CONSTANT Long INTERNET_FLAG_ASYNC = 268435456