Ejecutar link de una pagina desde un command1

[hunter18]

Quiero mostrar una pagina en un webbrowser y desde un boton llamar a un link que se encuentra en dicha web.

[BlackZeroX]

ShellExecute (API)

o tambien tienes esta opción!¡.

http://foro.elhacker.net/programacion_visual_basic/source_shellexecute_sin_declaracion_api-t281057.0.html;msg1384898

Dulces Lunas!¡.

[Novlucker]

Por citar un ejemplo ...

Código (vb) [Seleccionar] Expandir

Webbrowser.document.links(0).click

Saludos

[BlackZeroX]

.
no lei que era desde el webbrowser xP

Dulces Lunas!¡.

[hunter18]

Por citar un ejemplo ...

Código (vb) [Seleccionar] Expandir

Webbrowser.document.links(0).click

Hola, por que zero, si coloco 1 ejecuta el siguiente link, como ejecutaria un link especifico, me parece que se debe hacer por el id de la etiqueta <a> y he probado de varias formas pero me sale error, haber si me ayudan con eso, saludos

[Novlucker]

Hola, por que zero, si coloco 1 ejecuta el siguiente link

Por citar un ejemplo ...

me parece que se debe hacer por el id de la etiqueta <a> y he probado de varias formas pero me sale error

Código (vb) [Seleccionar] Expandir

Webbrowser.document.getelementbyid("idlink").click

Saludos

[hunter18]

Hola  Novlucker

Y como podria hacer si la etiqueta <a> no tiene id, como le digo que clické al nombre es decir Texto1, es posible esto?

Código [Seleccionar] Expandir

<a href="http://google.com">Texto1</a>

Si lo anterior no se puede entonces como se podria lograr si se tiene el id de una etiqueta <div>

Código [Seleccionar] Expandir

<div id="44"><a href="http://google.com">Texto1</a></div>

[seba123neo]

Hola, proba esto, te tira los links con su palabra, simplemente tenes que guardar el link de cada palabra en algun lado, y cuando eejcutes este texto te ejecuta el link de el mismo.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate "www.google.com.ar"
End Sub

Private Sub WebBrowser1_DownloadComplete()

    Dim vLinks As Object
     
    Set vLinks = WebBrowser1.Document.getElementsByTagName("A")
   
    For Each vLinks In WebBrowser1.Document.links
        Debug.Print vLinks.innerText & ": " & vLinks.href
    Next
End Sub

saludos.

[Petro_Boca]

Código (vb) [Seleccionar] Expandir



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub



[Petro_Boca]

Te gane.



http://www.sendspace.com/file/4fxe82

Codigo del boton Ir =D

Código (vb) [Seleccionar] Expandir



Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
End Sub



y el codigo del text1.text (Para que cuando haga enter valla a la pagina)

Código (vb) [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub