Formulario de envío del navegador web VB

'Utilice tagname="input" y name="submit" para encontrar el botón que desea usar y enviarlo mediante un evento de clic.

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp como objeto, URL como variante)

En caso de error, reanudar siguiente

Atenuar vdoc

Establecer vdoc = WebBrowser1.Document

Para i = 0 a vdoc.

Si LCase(vdoc.All(i).tagname) = "INPUT" Entonces

IF LCase (vdoc.All(i).name) = "ENVIAR" ENTONCES

vdoc.All(i).HAGA CLIC

FINALIZAR SI

Fin Si

Siguiente i

Fin Sub