Foro de elhacker.net

Programación => 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

Código:
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
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
  1. browser.Navigate ("http://www.google.com")
  2. MsgBox "Cargando..."
  3. 'es solo para darle tiempo a browser de cargar la web, sería mejor con un sleep o temporizador XD
  4. Set lin = browser.Document.Links
  5. For Each l In lin
  6. MsgBox l.href
  7. 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

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

ahi haces un split a "a href

entonces en el vector 1 queda
Código:
"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
tambien con un doble split... me explico

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

ahi haces un split a "a href

entonces en el vector 1 queda
Código:
"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:
>


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,