下载完整的网页

Question

我希望我能在我的问题上获得一点帮助。

基本上，我正在尝试下载网页。我有一些代码可以下载该页面，但是它带有文本，没有格式设置，没有图片等。

Dim myURL As String
myURL = "http://************"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
With WinHttpReq
WinHttpReq.Open "GET", myURL, False, "Username***", "Password****"
WinHttpReq.Send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile "C:\Temp\test11.htm", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If
End With

我想要保存整个网页，类似于在浏览器本身上单击“另存为”。

任何帮助将不胜感激：）