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 SubVa 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.