VBScript保存需要登录的网页

我正在寻找一个vbscript，可以得到一个网页，并将其作为文件保存到我的电脑。我已经找到了一个代码，该网站的问题是，你需要登录例如yahoomail.com。代码不应打开web浏览器。我只需要将网页保存到一个文件中

以下是我找到的代码：

---

提前谢谢大家

你试过运行这个代码吗？当您这样做/您遇到了什么问题时会发生什么？它将生成一个test.xml文件，其中包含页面源html代码。但是，xml文件仅包含网页登录。我需要的是通过登录页面，我似乎找不到任何脚本或命令来做这件事。如上所述，该脚本不需要打开任何web浏览器。或者，我如何在行Strm的某处插入。打开所需的用户名和密码？有人能帮我吗？只要可以在任何windows 7 pc（如vbscript、.bat.）中访问，任何脚本都可以。不管怎样，我非常感谢你的帮助。

Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1 'Binary data
Const adTypeText = 2 '(Default) Text data

URL = "www.yahoomail.com"
DiskFile = "C:\web\test.xml"

Set objMessage = CreateObject("CDO.Message")
objMessage.CreateMHTMLBody URL
SaveToFile objMessage, DiskFile

Sub SaveToFile(Msg, Fn)
Dim Strm, Dsk

Set Strm = CreateObject("ADODB.Stream")
Strm.Type = adTypeText
Strm.Charset = "US-ASCII"
Strm.Open
Set Dsk = Msg.DataSource
Dsk.SaveToObject Strm, "_Stream"
Strm.SaveToFile Fn, adSaveCreateOverWrite

End Sub