Foro de elhacker.net

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.

para hacer un click, podes usar este codigo MIO ;D

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

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

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 Sub

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

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

Saludos.

  Que lástima que para adsense no funcione.