vbs之下载文件

Set post=CreateObject("Msxml2.XMLHTTP")
post.Open "GET","https://blog.csdn.net/xianda9133/article/details/51200034"
'发送请求
post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
'等待3秒，等文件下载
wscript.sleep 3000 
aGet.Write(post.responseBody)'写数据
aGet.SaveToFile "csdn.html",2