click automatico en Webbrowser

[carlosdimar]

Buenos dias,
quisiera, por favor, pediros ayuda.
No soy muy experto en V B6 y necesito resolver un problema.
Tengo una pagina cargada con Webbrowser en un form hecho en VB6 llamada "http://guiasciudades.wordpress.com.
Lo que quiero es generar un clik automatico que me salte a la url asociada a la pestaña de ésa web llamada "Cuenca".
He probado y no lo consigo.
No se como se llama ese control en el fuente de la pagina.
Gracias por anticipado y un saludo.

[BoboV1]

para hacer un click, podes usar este codigo MIO

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
'Post + Previsualizar

On Error Resume Next
Timer1.Enabled = False

Dim HTML

Dim HTMLI

Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")


If HTMLI.Value = "Previsualizar" Then 'previsualizar es el nombre del boton



       HTMLI.Click
 
       Exit Sub

       
End If

   Next
 
End Sub

[PeterPunk77]

Seguro que no es la forma idónea, pero esto funciona:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub EsperarNavegador(ByRef obj As Object)
 
  DoEvents
  While obj.Busy = True
    DoEvents
  Wend

End Sub

Private Sub Form_Activate()
Dim HTMLdoc As HTMLDocument
Dim HTMLlinks As HTMLAnchorElement

  wbNav.Navigate "http://guiasciudades.wordpress.com./"
  EsperarNavegador wbNav
  Set HTMLdoc = wbNav.Document
  For Each HTMLlinks In HTMLdoc.links
    If HTMLlinks.outerText = "Cuenca" Then
      MsgBox HTMLlinks.href
      MsgBox HTMLlinks.innerText
      HTMLlinks.Click
      EsperarNavegador wbNav
      Exit For
    End If
  Next HTMLlinks
  Set HTMLdoc = wbNav.Document
  For Each HTMLlinks In HTMLdoc.links
    If HTMLlinks.outerText = "Casasimarro" Then
      HTMLlinks.Click
      EsperarNavegador wbNav
      Exit For
    End If
  Next HTMLlinks

End SubVa entrar en el primer link "Cuenca" (hay 3).
Si la web tuviese frames, tendrías que específicar en cual se encuentra:

Código (vb) [Seleccionar] Expandir

  Set HTMLdoc = WebBrowser1.Document.frames("nombre_frame").Document


Saludos.

[usuario oculto]

  Que lástima que para adsense no funcione.