Скачать полную веб-страницу

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

Мне нужно сохранить целую веб-страницу, аналогично нажатию кнопки «Сохранить» в самом браузере.

Любая помощь будет принята с благодарностью:)