Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: juancho77 en 11 Agosto 2008, 10:00 AM

Título: obtener hipervinculos
Publicado por: juancho77 en 11 Agosto 2008, 10:00 AM
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.
Título: Re: obtener hipervinculos
Publicado por: Kerber0 en 11 Agosto 2008, 10:41 AM
no se si entendi bien.

A ver... te serviria algo asi?

EDITO


Dim Cadena as String

Cadena = Text1.Text ' supongamos...

If instr(Cadena, "http://www.elhacker.net") <> 0 Then ' si existe..
Call Accion
End if
Título: Re: obtener hipervinculos
Publicado por: seba123neo en 11 Agosto 2008, 18:16 PM
Hola,no entiendo bien...pero podes listar los links de toda la web ya si te ahorras la tabulada...

saludos.
Título: Re: obtener hipervinculos
Publicado por: BlackZeroX en 11 Agosto 2008, 21:40 PM
Cita de: juancho77 en 11 Agosto 2008, 10:00 AM
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>)
Título: Re: obtener hipervinculos
Publicado por: Novlucker en 11 Agosto 2008, 22:10 PM
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]
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  ;)
Título: Re: obtener hipervinculos
Publicado por: juancho77 en 12 Agosto 2008, 02:58 AM
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.
Título: Re: obtener hipervinculos
Publicado por: CamaleonB en 12 Agosto 2008, 04:39 AM
tambien con un doble split... me explico

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

ahi haces un split a "a href

entonces en el vector 1 queda

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


haces un split por las comillas '"'

y la url te queda en el vector 1 :)
Título: Re: obtener hipervinculos
Publicado por: BlackZeroX en 13 Agosto 2008, 06:53 AM
Cita de: TbChK en 12 Agosto 2008, 04:39 AM
tambien con un doble split... me explico

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

ahi haces un split a "a href

entonces en el vector 1 queda

"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
>
Título: Re: obtener hipervinculos
Publicado por: CamaleonB en 13 Agosto 2008, 06:57 AM
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,