obtener hipervinculos

[juancho77]

Estoy haciendo un programa que recorra webs automaticamente y necesito saber como puedo hacer que tome el destino de un hipervinculo seleccionado con tabulador y lo guarde en una variable.
No se si me explico bien.
Mas o menos en crudo seria algo como esto..
Tabulando se iria saltando por los hipervinculos del sitio, y cuando se llegue al hipervinculo que contiene el enlace a http://foro.elhacker.net realize una determinada accion, por ejemplo.
Muchas gracias.

[Kerber0]

no se si entendi bien.

A ver... te serviria algo asi?

EDITO

Código [Seleccionar] Expandir


Dim Cadena as String

Cadena = Text1.Text ' supongamos...

If instr(Cadena, "http://www.elhacker.net") <> 0 Then ' si existe..
Call Accion
End if


[seba123neo]

Hola,no entiendo bien...pero podes listar los links de toda la web ya si te ahorras la tabulada...

saludos.

[BlackZeroX]

Estoy haciendo un programa que recorra webs automaticamente y necesito saber como puedo hacer que tome el destino de un hipervinculo seleccionado con tabulador y lo guarde en una variable.
No se si me explico bien.
Mas o menos en crudo seria algo como esto..
Tabulando se iria saltando por los hipervinculos del sitio, y cuando se llegue al hipervinculo que contiene el enlace a http://foro.elhacker.net realize una determinada accion, por ejemplo.
Muchas gracias.

es algo asi como enlistar los links a donde te liga x pagina no? si es asi...

busca el texto en el codigo fuente  <a href=   y lo que esta enfrente de esta lo sacas ya sea con spli() o idenfiticando el termino de la liga...  Nesesitas saber el formato de HTML para hacer esto

<a href="" target ....> texto </a>

reafirmo nesesitas saber el formato completo de una liga en HTML (<a href=></a>)

[Novlucker]

En realidad, es más sencillo que buscar los href en el codigo fuente....

Navegas una web con un objeto webbrowser, y obtienes los links...
En el ejemplo el objeto se llama browser 

Código (vb) [Seleccionar] Expandir

browser.Navigate ("http://www.google.com")
MsgBox "Cargando..."
'es solo para darle tiempo a browser de cargar la web, sería mejor con un sleep o temporizador XD
Set lin = browser.Document.Links
For Each l In lin
MsgBox l.href
Next

Saludos 

[juancho77]

excelente gracias. Me habia re fantasmeado con la idea de ir tabulando jajaj
No pensaba hacerlo con el webbrowser, pero supongo que sera lo mas sencillo.
gracias otra vez.

[CamaleonB]

tambien con un doble split... me explico

Código [Seleccionar] Expandir

<a href="http://google,com">Google</a>

ahi haces un split a "a href

entonces en el vector 1 queda

Código [Seleccionar] Expandir


"http://google,com">Google</a>

haces un split por las comillas '"'

y la url te queda en el vector 1

[BlackZeroX]

tambien con un doble split... me explico

Código [Seleccionar] Expandir

<a href="http://google,com">Google</a>

ahi haces un split a "a href

entonces en el vector 1 queda

Código [Seleccionar] Expandir


"http://google,com">Google</a>

haces un split por las comillas '"'

y la url te queda en el vector 1

si no contiene comas ? ta grueso hay pero si se puede = buscando el caracter de cierre

Código [Seleccionar] Expandir

>

[CamaleonB]

Sino contiene comas esta mal programada la web

href estandar debe ir entre comillas, si no va entre comillas es problema de la web, pero creeme que en el 90% de los casos, sino es que mas usan comillas,