Set post=CreateObject("Msxml2.XMLHTTP") post.Open "GET","https://blog.csdn.net/xianda9133/article/details/51200034" '發(fā)送請求 post.Send() Set aGet = CreateObject("ADODB.Stream") aGet.Mode = 3 aGet.Type = 1 aGet.Open() '等待3秒，等文件下載 wscript.sleep 3000 aGet.Write(post.responseBody)'寫數(shù)據(jù) aGet.SaveToFile "csdn.html",2

總結(jié)

以上是生活随笔為你收集整理的vbs之下载文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。