QTP 通过URL地址下载文件到本地(转）

While automation, you may come to situations where you need to need to download a file on clicking a link. This generally involves a lot of User Interface (GUI)overhead like syncing the download box, clicking the buttons, managing the Save As box, etc. This many a time causes sync issues. Moreover, we end up automating something that is not at all needed to be automated or tested. In this situation, all you need is a code snippet in Visual Basic for Quick Test Professional that automatically downloads the file in the background without the need of any GUI appearances. You just need to provide the download link and the file path in your system. The function "funcDownloadFile" below takes the file path and the download link as parameters in String and performs the download in the background. You just need to capture the download URL from the potential download link and call this function and you will find the download completed at the specified path.

 

The function supports authenticated downloads and proxy settings. The function is based onADODB STREAM object and WinHTTP API from Microsoft.

Sub utilDownloadFile(strFilePath, strURL)  

   Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")  

   'WinHttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "xxx.xxx.xxx.xxx:zzzz"
   'Required only if your internet routes through a proxy. Not required in 90% cases.
   'You can ignore this line for first attempt but add it if your download is hindered, X is IP and Z is Port  

   temp = WinHttpReq.Open("POST", strURL, false)  

   'WinHttpReq.SetCredentials "Username", "Password", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
   'Required only if the file download server required authentication. Not required in 90% cases. Change Username and Password wuth actuals.  

   WinHttpReq.Send()
   WinHttpReq.WaitForResponse  

   strResult = WinHttpReq.ResponseBody  

   Set oStream = createobject("Adodb.Stream")
   Const adTypeBinary =
   Const adSaveCreateOverWrite =   

   oStream.type = adTypeBinary
   oStream.open
   oStream.write strResult
   oStream.savetofile strFilePath, adSaveCreateOverWrite  

End Sub