JAVIER
28 de Junio del 2009

Hola a todos, estoy desarrollando una aplicaci贸n con un objeto webbrowser.
Necesito mediante un bot贸n desde el formulario de Vb hacer 聯Click 聯 en un bot贸n de una p谩gina Web.

El 煤nico c贸digo que encontr茅 es el siguiente:

HTML.Forms(0).submit

Donde html es una referencia a HTMLDocument

Pero este no me sirve, ya que necesito hacer clic en un boton especifico que tiene las siguientes propiedades:


tag= IMPUT
Type= submit
Value= ->
Name=seite_change

Alguna idea?

Gracias de antemano.

arquitecto
28 de Junio del 2009

Encomtre la solucion!!!!

Mi problema es que no tenia los nombres de los botones, entonces recorro todo hasta encontrar el boton con el valor buscado.

La primera pagina:

Private Sub Command2_Click()
Dim z As Integer
For z = 0 To WebBrowser1.Document.Forms(0).length - 1
If WebBrowser1.Document.Forms(0)(z).Value = "Buscar" Then
WebBrowser1.Document.Forms(0)(z).Click
End If
Next z
End Sub

Las siguientes paginas:

Private Sub Command3_Click()
Dim z As Integer
For z = 0 To WebBrowser1.Document.Forms(0).length - 1
If WebBrowser1.Document.Forms(0)(z).Value = "->" Then
WebBrowser1.Document.Forms(0)(z).Click
End If
Next z
End Sub

Lo que no entiendo es que representa .Forms(0), (Soy super novato)

Esto funciona, pero si existe otra opcion, les agradezco publicarla.