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

 Rss订阅IQuickTest（关于如何订阅？）

订阅地址： http://blog.youkuaiyun.com/zzxxbb112/rss/list

作者：zzxxbb112

出处：http://blog.youkuaiyun.com/zzxxbb112

这两天在看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      '释放对象      Set oADO = Nothing      Set oTextFile = Nothing      Set oFSO = Nothing End Function

 

使用以上函数，我们可以自由的下载我们需要下载的文件，只需要设置好WEB路径和本地路径。

 

'*******************下载文件********************* download = "http://sobar.baidu.com/install/BaiduSearchTool.exe"  Local = "d:/BaiduSearchTool.exe" '调用函数  webFileDownLoad download,Local

 

执行以上脚本我们就可以在D盘中看到我们需要下载的这个文件。

使用此函数还有一个作用就是可以获取任意网页的源文件，并保存为文本。只需要把下载路径设置为网页，本地路径文件名改为TXT文件即可。

 

'*******************下载网页源代码********************* download = "http://www.baidu.com"  Local = "d:/1.txt" '调用函数  webFileDownLoad download,Local

 

快去查看下D盘里的文件吧~~~是不是多了个TXT文件呢？