Cómo utilizar el lenguaje vb para obtener y guardar el código fuente de la página web actualmente abierta por el navegador IE

Obtener la página web directamente Código fuente////////////////////////////////?URL?URL ,?Código?Código de página web

Público ?Función?GetPage$(url$,?código$)

Activado?Error?Reanudar?Siguiente

Atenuado ?Retrieval?As?Object

¿Establecer? Retrieval?=?Nada

Establecer?Retrieval=CreateObject("Microsoft.XMLHTTP")

Con?Retrieval

.open?"Get",?url ,?True,?"",?"

.setRequestHeader?"If-Modified-Since",?True,?"",

.setRequestHeader?0"

.setRequestHeader?"Cache-Control",?"no-cache"

.setRequestHeader? "Conectar",?"Cerrar"

.Enviar

Mientras.ReadyState?<>?4

DoEvents

Wend

GetPage?=?BM(.ResponseBody,?code)

¿Fin?Usar

¿Establecer?Retrieval?=?Nada

¿Fin?