Cómo obtener contenido web en VB
El código relevante es el siguiente: 1. El código relevante es el siguiente:
Public?Function?getHtmlStr(strUrl?As?String)' Obtenga el código fuente del control remoto página web
¿Activado?¿Error?¿Reanudar?¿Siguiente?
Dim?XmlHttp?As?Object,?stime,?ntime
Establecer?XmlHttp?=? CreateObject("Microsoft.XMLHTTP")
p>XmlHttp.open?"GET", strUrl, True
XmlHttp.send
stime?=?Now ? 'Obtener la hora actual
Mientras? "s",?stime,?ntime)?gt;?3?Then?getHtmlStr?=?"":?Salir?Función
Wend
getHtmlStr?=?StrConv( XmlHttp.responseBody,?vbUnicode)
Establecer? Escribe el siguiente código
dim?a?as?string
a=getHtmlStr("Obtener la URL del sitio web")
El valor de a anterior es el resultado que queremos.