资源描述:
《基于vb环境windowsapi的ftp上传服务的实现》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、基于vb的ftp上传下载服务的实现OptionExplicitPublicDeclareFunctionInternetOpenLib"wininet.dll"Alias"InternetOpenA”_(ByValsAgentAsString,ByValLAccessTypeAsLong,ByValsProxyNameAsString,ByValSProxyBypassAsString,ByValIFIagsAsLong)AsLongPublicDeclareFunctionInternetConnectLib"wininet
2、.dll"Alias"InternetConnectA"(ByValhlntemetSessionAsLong,ByValsServerNameAsString,_ByValnServerPortAsInteger,ByValsUsernameAsString,_ByValsPasswordAsString,ByValIServiceAsLong,_ByValIFIagsAsLong,ByValIContextAsLong)AsLongPublicDeclareFunctionFtpGetFileLib"wininet.dll
3、"Alias"FtpGetFileA"_(ByValhFtpSessionAsLong,ByValIpszRemoteFileAsString,_ByValIpszNewFileAsString,ByValfFaillfExistsAsBoolean,_ByValdwFlagsAndAttributesAsLong,ByValdwFlagsAsLong,_ByValdwContextAsLong)AsBooleanPublicDeclareFunctionFtpPutFileLib"wininet.dll"Alias"FtpP
4、utFileA"_(ByValhFtpSessionAsLong,ByValIpszLocalFileAsString,_ByValIpszRemoteFileAsString,ByValdwFlagsAsLong,—ByValdwContextAsLong)AsBooleanPublicDeclareFunctionFtpDeleteFileLib"wininet.dll"Alias"FtpDeleteFileA"(ByValhFtpSessionAsLong,ByValIpszFileNameAsString)AsBool
5、eanPublicDeclareFunctionFtpRenameFileLib"wininet.dll"Alias"FtpRenameFileA1'_(ByValhFtpSessionAsLong,ByValIpszExsitingAsString,ByValIpszNewAsString)AsBooleanPublicDeclareFunctionInternetCloseHandleLib"wininet.dll"(ByValhlnetAsLong)AsIntegerPublicDeclareFunctionFtpFin
6、dFirstFileLib"wininet.dll"Alias"FtpFindFirstFileA"_(ByValhFtpSessionAsLong,ByValIpszSearchFileAsString,_IpFindFileDataAsWIN32_FIND_DATA,ByValdwFlagsAsLong,_ByValdwContentAsLong)AsLongPublicDeclareFunctionInternetFindNextFileLib"wininet.dll"Alias"InternetFindNextFile
7、A"_(ByValhFindAsLong,IpvFndDataAsWIN32_FIND_DATA)AsLongPublicTypeFILETIMEdwLowDateTimeAsLongdwHighDateTimeAsLongEndTypePublicTypeWIN32_FIND_DATAdwFilAttributesAsLongftCreationTimeAsFILETIMEftLastAccessTimeAsFILETIMEftLastWriteTimeAsFILETIMEnFileSizeHighAsLongnFileSi
8、zeLowAsLongdwReservedOAsLongdwReservedlAsLongcFileNameAsString*260〔AlternateAsString*14EndTypePublicDeclareFunctionGetOpenFileNameLib"comd