用VBS下载文件

标签： , , ,

标题: 用VBS下载文件
作者: Demon
链接: https://demon.tw/programming/vbs-download-file.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

Google一下关键词“VBS 下载文件”出来也是一堆一样的，你复制我的，我复制你的，复制来复制去最后不知道是谁的。不过基本都是对的了，原理都一样，使用msxml2.xmlhttp和adodb.stream对象。至于他们所说的第二种方法，使用internet.application对象下载文件，我没有测试过，不知道效果怎么样。

Sub download(url,target)
	Const adTypeBinary = 1
	Const adSaveCreateOverWrite = 2
	Dim http,ado
	Set http = CreateObject("Msxml2.XMLHTTP")
	http.open "GET",url,False
	http.send
	Set ado = createobject("Adodb.Stream")
	ado.Type = adTypeBinary
	ado.Open
	ado.Write http.responseBody
	ado.SaveToFile target
	ado.Close
End Sub

download "https://demon.tw/foo.gif","foo.gif"

代码很简单，我就不多说什么了。我好奇的是他们说这段代码杀毒软件会报毒，我没有测试过不知道会不会报毒，但是这句话表明了他们的不良企图。呵呵，原来大家都喜欢编病毒啊。

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. 用VBS读写二进制文件的另一种方法
  2. 用VBS处理二进制文件的实例
  3. VBS调用CAPICOM对象实现SHA1&MD5加密
  4. VBS模拟POST上传文件
  5. 用VBS发送邮件

随机文章:

  1. 用Tiny C Compiler编译Lua
  2. VbsEdit 5.6.1新增功能
  3. md5sum for windows
  4. VBS监控网络流量
  5. 在WordPress中使用jQuery库

这篇文章发布于 2010年06月17日，星期四，14:07，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

11 条评论 发表在“用VBS下载文件”上

  1. tim说道：
    2011年03月30日 23:31

    好厉害 学习了

    回复
  2. Ming Wai说道：
    2011年03月31日 15:41

    存取被拒

    回复
  3. l4ever说道：
    2011年12月13日 14:36

    没有返回值,不知道下载是否成功啊.

    回复
  4. Karter说道：
    2012年01月26日 03:03

    你好，拜读了你博客的几乎所有文章——我也一直在用VBS做些东西，升级到64位系统后，就没办法用vbsedit了，你能给我些帮助吗？非常感谢！

    回复
  5. RawsonKwei说道：
    2012年05月15日 09:16

    错误8007005 msxml3.dll拒绝访问，何故?

    回复
  6. fireflyoo说道：
    2013年05月23日 14:09

    可以下http协议上的东东..但下不了https上的..

    回复
  7. fireflyoo说道：
    2013年05月23日 16:05

    Sub download(url,target)
    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Dim http,ado
    Set http = CreateObject(“Msxml2.ServerXMLHTTP”)
    http.SetOption 2,13056 ‘忽略https错误
    http.open “GET”,url,False
    http.send
    Set ado = createobject(“Adodb.Stream”)
    ado.Type = adTypeBinary
    ado.Open
    ado.Write http.responseBody
    ado.SaveToFile target
    ado.Close
    End Sub
    Const Example=”https://smarthosts.googlecode.com/svn/trunk/hosts”
    download Example,”hosts”

    回复
  8. fireflyoo说道：
    2013年05月23日 16:07

    求助狗狗大神后终于能下https上的东东了..
    试一下回复里能发代码不
    [code]
    MsgBox “Bingo!”
    [/code]

    回复
  9. T说道：
    2014年02月5日 03:51

    你有一个变量没有使用,adSaveCreateOverWrite

    回复
  10. 7qin说道：
    2020年12月8日 03:00

    保存文件时不是覆盖已存在的文件，adSaveCreateOverWrite没用到才这样的，
    ado.SaveToFile target, adSaveCreateOverWrite，

    回复

留下回复