Problemas de VB al obtener el código fuente de la página web

'1. Abra una página web con IE y recuerde su URL

'2 Copie el siguiente código en la parte del código del formulario y modifique la URL para mostrar el código fuente. Consigue lo que quieres.

'==== Fragmento de código====

Opción explícita

Dim oShellApp, oShellAppWindows, oWin

Sub Form_Load privado ()

Establezca oShellApp = CreateObject("Shell.Application")

Establezca oShellAppWindows = oShellApp.Windows

Para cada oWin en oShellAppWindows

Si LCase( TypeName(oWin.document)) = "htmldocument" Entonces

Si oWin.LocationURL = "/question/69341914.html" Entonces 'Cambie a su URL real aquí

p >

MsgBox oWin. document.body.innerHTML, vbInformation, "Visualización de origen de página web"

Finalizar si

Establecer oWin = Nada

Establecer oShellApp = Nada

Establecer oShellAppWindows = Nada

End Sub