Hola. Estoy haciendo un buscador para Goear, y para que añada los enlaces que encuentra en una búsqueda a un ListView, lo que hago es poner el código para ello en el evento NavigateComplete2 del WebBrowser. Esto es lo que tengo:
Private Sub web_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim sNombreCorto As String
Dim i As Integer
For i = 0 To web.Document.links.Length - 1
If Left(web.Document.links.Item(i), 24) = "http://goear.com/listen/" Then
sNombreCorto = Mid(web.Document.links.Item(i), 33)
With lvwBusqueda.ListItems.Add(, , sNombreCorto)
.SubItems(1) = web.Document.links.Item(i)
End With
End If
Next
DoEvents
EliminarDuplicados lvwBusqueda
iPaginaBusqueda = iPaginaBusqueda + 1
End Sub
Lo que quería hacer era que en cuanto acabase de cargar los enlaces, pasase a la siguiente página de resultados, pero directamente intenta cargar la siguiente y no añade nada.
¿Cómo podría hacerlo?
Gracias de antemano.
Cuando navegas una web, debes de esperar que cargue completa, agrega una pausa o sleep mientras el estado del navegador sea busy
Saludos
Vale, ya lo solucioné.
Muchas gracias ;)