|
- Const DEFAULT_FTP_PORT =21
- Const SERVICE_FTP = 1
- Const OPEN_TYPE_DIRECT = 1
- Const FTP_TRANSFER_TYPE_ASCII = 1
- Extern.Declare micLong,"InternetOpen","wininet.dll","InternetOpenA",micString,micDWord,micString,micString,micDWord
- Extern.Declare micLong,"InternetConnect","wininet.dll","InternetConnectA",micLong,micString,micInteger,micString,micString,micDWord,micDWord,micDWord
- Extern.Declare micInteger,"FtpGetFile","wininet.dll","FtpGetFileA",micLong,micString,micString,micInteger,micDWord,micDWord,micDWord
- Extern.Declare micInteger,"FtpPutFile","wininet.dll","FtpPutFileA",micLong,micString,micString,micDWord
- Extern.Declare micInteger,"InternetCloseHandle","wininet.dll","InternetCloseHandle",micLong
- ' 打开
- hInternet = Extern.InternetOpen("QTP_FTP",OPEN_TYPE_DIRECT,vbNullChar,vbNullChar,0)
- If hInternet=0 Then Print("QTP_FTP:Failed to setup FTP environment.")
- ' 连接
- hConnection = Extern.InternetConnect(hInternet,"www.atstudy.com",DEFAULT_FTP_PORT,"user1","user1",1,0,0)
- If hConnection =0 Then Print("Failed to setup FTP environment")
- ' 上传
- ' bRetval = Extern.FtpPutFile(hConnection,sLocalFile,sRemoteFile,0)
- ' 下载
- bRetval = Extern.FtpGetFile(hConnection,"/Mercury/QuickTest/QTP crack.rar","D:\QTP crack.rar",0,0,1,0)
- If Not CBool(bRetVal) Then
- Reporter.ReportEvent micFail,"FTP:FtpGetFile function","Failed to open download file."
- else
- Print("FTP:File :QTP crack.rar downloaded successfully")
- 'Reporter.ReportEvent micPass,"FTP:FtpPutFile function","FTP:File"&sLocalFile&"upload successfully."
- End If
- ' 关闭
- Extern.InternetCloseHandle(hConnection)
- Extern.InternetCloseHandle(hInternet)
复制代码 |
|