Private Sub Timer1_Timer()
On Error Resume Next
Timer1.Enabled = False
Me.WebBrowser1.Document.All("ESTO NO LES IMPORTA XD").Value = "Hola!"
 
Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "NOMBRE DEL BOTON" Then
HTMLI.Click
Exit Sub
End If
Next
End Sub
 
 
Private Sub Form_Load()
WebBrowser1.Navigate ("PAGINA")
Exit Sub
 
 
 

 
BALABLBALBALBALBA CODIGO
 
Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "BOTON1" Then
If HTMLI.Value = "BOTON2" Then
HTMLI.Click
Exit Sub
End If
End If
Next