zzxxbb112的日志

使用自动化技术打造迷你下载工具

标签: 自动化技术工具下载 2010-02-05 09:44

这两天在看ADVANCEDQTP时发现了一段很有意思的代码，这段代码主要是通过WINHTTP,ADO流,FSO等来使我们能够实现可以自由的下载网络上的文件，使用此方法可以免去我们在GUI上的一些操作，并且非常可以非常快捷的下载完我们需要下载的文件。我把此方法修改了下封装成了一个函数。

Function webFileDownLoad(download_http,Local_path)

   'WEB文件下载地址
    Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")
    WinHttp.Open "GET", download_http, False
    WinHttp.Send
   '获取返回数据
    arrArray = WinHttp.ResponseBody
    Set WinHttp = Nothing
    '写数据
    On Error Resume Next
        Set oADO = CreateObject("ADODB.Stream")
        If oADO Is Nothing Then
           '创建 FSO
            Set oFSO = CreateObject("Scripting.FileSystemObject")
            Set oTextFile = oFSO.OpenTextFile(Local_path, 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 Local_path, 2
            oADO.Close
        End If