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

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

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

作者：zzxxbb112

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

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

FunctionwebFileDownLoad(download_http,Local_path) 'WEB文件下载地址 SetWinHttp =CreateObject("WinHttp.WinHttpRequest.5.1") IfWinHttp IsNothingThen SetWinHttp =CreateObject("WinHttp.WinHttpRequest") WinHttp.Open "GET", download_http,False WinHttp.Send '获取返回数据 arrArray = WinHttp.ResponseBody SetWinHttp =Nothing '写数据 On Error Resume Next SetoADO =CreateObject("ADODB.Stream") IfoADO IsNothing Then '创建 FSO SetoFSO =CreateObject("Scripting.FileSystemObject") SetoTextFile = oFSO.OpenTextFile(Local_path, 2,True) sData = "" sBuffer = "" ForiCount = 0toUBound(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 '释放对象 SetoADO =Nothing SetoTextFile =Nothing SetoFSO =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文件呢？