Visual Basic - Listar links de una web para poder filtrar uno...

Life is soft - evento anual de software empresarial
   
Vista:

Listar links de una web para poder filtrar uno...

Publicado por Anonimo (4 intervenciones) el 03/03/2009 09:24:41
Hola amigos, tras varios días haciendo pruebas no lo he conseguido por falta de conocimiento de programción web, por eso os llamo a vosotros.

lo que necestio es una aplicación que una vez que se introduzca una página en el navegador webbrowser1 sea capaz de recuperar sus link, uno de ellos me hace falta.
os comento lo que quiero.

la página en cuestion es gigasize, lo que pretendo es que cuando meta un link, como yo soy premium, recuperar el link automaticamente y me lo meta en mi propio gestor, el problema viene determinado por la dificultad que tiene para mi recuperar el link que allí se ve....el link esta dentro de un tipo marco que no se en que lenguaje está y cuando pongo una utilidad para recuperar los link...este no lo identfica...alguien puede ayudarme??

lo que uso hasta ahora es el ejemplo básico que lista los link en 3 listbox cuando se produce el evento DocumentComplete.

os pego el ejemplo que uso, pero en el cual no sale el enlace de descarga:

' Extrae las url de imagenes

Private Sub ListarImagenes()
Dim i As Integer

List1.Clear
For i = 0 To WebBrowser1.Document.images.length - 1
List1.AddItem WebBrowser1.Document.images.Item(i).src
Next
End Sub

'Extrae las url

Private Sub ListarUrl()
Dim i As Integer

List2.Clear
For i = 0 To WebBrowser1.Document.links.length - 1

List2.AddItem WebBrowser1.Document.links.Item(i)

Next
End Sub

'Extrae las Anclas

Private Sub ListarAnclas()
Dim i As Integer
List3.Clear
For i = 0 To WebBrowser1.Document.anchors.length - 1
List3.AddItem WebBrowser1.Document.anchors.Item(i).Name
Next
End Sub

Private Sub Command1_Click()

'Carga la página en el control web
WebBrowser1.Navigate Trim$(Text1)

End Sub

Private Sub Form_Load()
Command1.Caption = " Cargar y listar "
End Sub

Private Sub List1_Click()

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Local Error GoTo errSub

If URL = vbNullString Or URL = "http:///" Then Exit Sub

'cuando finaliza la carga de la página lista las url
Call ListarImagenes
Call ListarUrl
Call ListarAnclas

Exit Sub
errSub:

If Err.Number = 91 Then
List1.Clear
List2.Clear
List3.Clear
Exit Sub
End If

End Sub


buenos días a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder