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 p>
GetPage?=?BM(.ResponseBody,?code)
¿Fin?Usar
¿Establecer?Retrieval?=?Nada
¿Fin?