Conferencia 3: Cómo utilizar el navegador web de VB para buscar hipervínculos en una página web
Ya hemos hablado antes sobre cómo abrir una página web y cómo enviar una página web. Hoy veremos cómo encontrar la URL y otros elementos en una página web.
1. Primero abra VB y cree un nuevo proyecto.
2. Haga clic derecho en la barra de herramientas y seleccione Componentes (estoy usando la versión china de VB) o seleccione el menú Proyecto y haga clic en Componentes
3. Busque Microsoft Internet Controls, selecciónelo al frente y luego confírmelo. Verá un ícono similar a una Tierra en la barra de herramientas. Nuestra implementación girará en torno a él.
4. Agregue un WebBrowser1 a Form1, luego agregue un comando1 a Form1 y agregue una lista1 a form1 (esta lista1 debe relajarse un poco y colocaremos todas las URL calificadas que se encuentran aquí)
5. Agregue el siguiente código a Form1: (Lo anterior es todo lo que hemos dicho antes, por lo que debería resultarle familiar)
'----------comenzar-----------
Subcomando privado1_Click()
vTag tenue, vDoc
Dim Allcount,i
Lista1.Borrar
Establecer vDoc = WebBrowser1.Document.All
Allcount = vDoc.longitud
Para i = 0 Para Allcount - 1
Si UCase(vDoc.Item(i).TagName) = "A" Entonces 'Buscar URL
vTag = vDoc.Item(i).href
Si InStr(vTag, "http://dhunter.51.net") Entonces 'Detecta si la URL contiene http://dhunter.51.net
List1.AddItem vDoc.Item(i).href 'Si lo hay, agréguelo a la lista1
Terminar si
Terminar si
siguiente yo
Subtítulo final
Subformulario privado_Load()
WebBrowser1.Navegue "http://dhunter.51.net"
Subtítulo final
'----------Finalizar-----------
6. Por supuesto, es una prueba. Haga clic en el botón Ejecutar. Podemos ver que nuestro navegador web ha abierto http://dhunter.51.net. Una vez completada la descarga básica de la página web, haga clic en el botón comando1. nuestro encantador navegador web encontrará el contenido que contiene Las URL de http://dhunter.51.net se han agregado a la lista 1.
Con esto podemos comenzar a crear nuestro propio simulador. Por supuesto, usted debe implementar más habilidades y más métodos.