Control web VB

Complete automáticamente el código fuente de referencia del formulario web (VB)

Al usar WebBrowser para completar y enviar automáticamente el código fuente de referencia del formulario en VB6, ya se puede lograr el llenado y envío automático. La optimización del código puede lograr mejores resultados.

Public Sub WebbFormEditing()

Atenuar i, j como entero

Atenuar vForm, vSubmit

Atenuar vFrame

En caso de error, reanudar a continuación

Establezca vFrame = WebBrowser1. Si está vacío (vFrame), vaya a ErrorFormEdit

Para i = 0 a vFrame.length - 1

En caso de error, reanudar siguiente

vFrame(i).Document.body.innerHTML = tbHtml.innerHTML = tbHtml.Text

Siguiente i

ErrorFormEdit:

En caso de error, vaya a ErrorFormEditEnd

Establezca vForm = WebBrowser1.Document.Forms