老婆测试工具培训记 - QTP Scripting - 实践6

   write a program to Saving a file from IE?

   思路: 利用MSXML4里面提供了一个可用的新的组件：WinHttp.WinHttpRequest.5.1

   技术主要利用在下载文件验证方面。下面是我做个下载我上传的一个文件的测试，除了WinHttp.WinHttpRequest.5.1对象还利用到了ado.stream对象，进行保存文件处理。

   代码如下：

Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")
WinHttp.Open "GET", "http://www.51testing.com/batch.download.php?aid=10479", False
WinHttp.Send
 
arrArray = WinHttp.ResponseBody
Set WinHttp = Nothing
 

On Error Resume Next
    Set ōADO = CreateObject("ADODB.Stream")
    If oADO Is Nothing Then
        Set ōFSO = CreateObject("scrīpting.FileSystemObject")
        Set ōTextFile = oFSO.OpenTextFile("c:\a.rar", 2, True)
        sData = ""
        sBuffer = ""
        For iCount = 0 to UBound(arrArray)
            oTextFile.Write Chr(255 And Ascb(Midb(arrArray,iCount + 1, 1)))
        Next
        oTextFile.Close
    Else
        oADO.Type = 1
        oADO.Open
        oADO.Write arrArray
        oADO.SaveToFile "c:\a.rar", 2
        oADO.Close
    End If
 
    Set ōADO = Nothing
    Set ōTextFile = Nothing
    Set ōFSO = Nothing