直接上代碼：

Set Post = CreateObject("Msxml2.XMLHTTP") Post.Open "GET","https://www.baidu.com",0 Post.Send() Set aGet = CreateObject("ADODB.Stream") aGet.Mode = 3 aGet.Type = 1 aGet.Open() aGet.Write(Post.responseBody) aGet.SaveToFile "x.html",2 wscript.sleep 1000

這段代碼保存到test.vbs，直接運行，同目錄下就會多一個x.html.

相關(guān)文檔：

XML DOM Methods | Microsoft Docs

Stream properties, methods, and events (ADO) | Microsoft Docs

一些vbs常用的對象:

Wscript.shell	讀寫刪注冊表，打開指定程序
Msxml2.XMLHTTP	HTTP GET POST請求
ADODB.Stream	讀寫文件
Scripting.FileSystemObject	文件相關(guān)對象，磁盤
Scripting.DictionAry	字典
MSScriptControl.ScriptControl	運行JAvaScript代碼
RegExp	正則表達(dá)式

相關(guān)參數(shù)就不解釋了，保存一份備用。

總結(jié)

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

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