verificar si boton web existe control webrowser visual basic 2008

[david_andress]

Hola necesito ayuda, estoy programando un Visual Basic 2008 utilizando el webrowser, lo que quiero hacer es que se cargue la pagina de google y se haga click en el boton de voy a tener suerte, pero con una condicional que se ejcute con un timer cada 1 segundo, de manera que si el boton no existe no se hace click en este. ¿De qué manera puedo hacer esto?. ¿Como puedo hacer que se verifique si el boton esta en la pagina antes de hacerle click, que comando puedo utilizar para verificar esto en el condicional?. Espero que me puedan ayudar, muchas gracias de ante mando.

[franko1809]

Si es espeficamente para google el cual tiene todo su codigo encapsulado creo q con javascript, lo unico que podrias hacer es posicionar el puntero del mouse en las coordenas x , y del webbrowser y lanzar una funcion que haga click, el problema seria que no te funciora en cualquier PC puesto que en todas se cambiaran las coordenas nose si me dejo enterder, pero si es para tu uso personal no tendras problema puesto que las coordenadas siempre seran las mismas en tu maquina, es bastante rustico esta forma pero soluciona lo que quieres.

Este codigo te posiciona el puntero en las coordenas x=100 y=100 de tu formulario pero esta en vb6.0, puedes ir por partes, si haces que te funcione en vb2008 luego vemos lo de el clickeo.
Logicamente tienes que colocar un webrowser y ver mas o menos las coordenas del boton que quieres

Código vb:

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
 
Private Sub Command1_Click()
Dim rc As RECT
GetWindowRect Me.hwnd, rc
SetCursorPos rc.Left + 100, rc.Top + 100
End Sub
 

[david_andress]

Gracias por responder, verdaderamente soy nuevo en esto de programacion en visual basic, el problema no es el hacer click, con este codigo lo he logrado:

WebBrowser1.Document.All("btnI").InvokeMember("cli ck")

Pero estoy usando a google por ejemplo, lo que quiero es automatizar el proceso en una pagina como esas de anuncios ejemplo: adfly, donde hay que esperar que termine un conteo para que aparezca un boton, lo que quiero es con un timer, cada vez que pase un segundo se ejecute un condicional, donde si el boton se encuentra disponible se le haga click, pero si no se espera otro segundo para repetir el condicional y así sucesivamente. Gracias.

[franko1809]

Bueno, pues generalemte ese tipo de paginas utiliza javascript y tiene todo encapsulado.
Fijate en el codigo de la pagina si la etiqueta <a></a> tiene un id, si lo tiene entonces se podria hacer algo, caso contrario solo se podria como te dije anteriormente.

Me refiero a esto <a href="http://tupagina.com" id="P1">Artículo de enlaces</a>, si tiene un id entonces es mas facil caso contrario no habria forma de saber a que elemento hacerle click pues no habria nada para identificarlo

[david_andress]

Si en la pagina con la que quiero trabajar el boton que aparece despues de unos segundos tiene un id, no tengo problema en hacerle click, mi duda es como hacer para indicar a visual basic si ese boton ya ha aparecido en la pagina para poder darle click. Graciaas

[franko1809]

Para el caso de vb6 debes agregar la referencia Microsoft HTML object library

En el siguiente codigo hace click desde un boton a la etiqueta <a> con el id=HQ

Código vb:

Option Explicit
Dim HTML As HTMLDocument
 
Private Sub Command1_Click()
 
WebBrowser1.Document.getElementById("HQ").Click
 
End Sub
 

Ahora modificando un poco y haciendo algo rustico se puede hacer asi

Código vb:

Private Sub Command1_Click()
 
On Error GoTo Err
Dim x As String
 
x = WebBrowser1.Document.getElementById("HQ")
 
If Not x = "" Then
   MsgBox "Existe"
End If
Exit Sub
Err:
MsgBox "No existe" 'Si se produce un error quiere decir que no existe
 
End Sub
 

Bueno nose que mas aportar, en todo caso seria bueno que cuando soluciones coloques el codigo en vb2008