Private Sub btn_consultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_consultar.Click
Dim elc As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
For Each el As HtmlElement In elc
If el.GetAttribute("Name").Equals("ACEPTAR") Then
el.InvokeMember("click")
Exit For
End If
Next
End Sub
No hay comentarios.:
Publicar un comentario