如何实现浏览器文件下载自动保存？

wh1234567 · 发表于 2012-4-8 15:27:16

本帖最后由 wh1234567 于 2012-4-8 22:34 编辑

我们一般使用ie浏览器下载文件时，总会弹出打开和保存按钮的界面窗口，需要手动点击才能保存
哪位高手能够将下载的文件自动保存到指定目录，编写自动保存到文件夹的命令批处理或vbs即可，也就是无需手动点击即可全自动下载到指定目录

find · 发表于 2012-4-8 15:32:09

用curl或wget去下载吧

zuo99901 · 发表于 2012-4-8 16:13:43

浏览器上有设置的啊。自己编辑路径就好了嘛

gawk · 发表于 2012-4-8 18:02:47

回复 3# zuo99901

楼主一般会这样说：我能自己找到就不上来提问了

applba · 发表于 2012-4-8 18:39:23

本帖最后由 applba 于 2012-4-8 18:42 编辑

function download(sFileURL, sLocation)
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", sFileURL, false
objXMLHTTP.send()
do until objXMLHTTP.Status = 200 : wscript.sleep(1000) : loop
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
Set objFSO = Nothing
objADOStream.SaveToFile sLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
End function

复制代码

这个vbs范例是在网上找的，使用方法如下：
download "http://remote-location-of-file", "C:\name-of-file-and-extension"

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[系统相关] 如何实现浏览器文件下载自动保存？