¿Cómo obtener texto de una página web desde el control WebBrowser de VB?
¿Función?HtmlStr$(Url$)?Extraer código fuente de la página web función Dim?XmlHttp Set?XmlHttp?=?CreateObject("Microsoft.XMLHTTP") XmlHttp.Open?"GET",?Url,?False XmlHttp.send If? XmlHttp .ReadyState?=?4?Then?HtmlStr?=?StrConv(XmlHttp.ResponseBody,?vbUnicode) Set?XmlHttp?=?Nada
Fin?Función
Privado?Sub ? Form_Load()
Texto1?=?" Texto1?=?Text1 = HtmlStr("/")
Fin?