文章关键字 ‘下载文件’

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"

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