Cómo utilizar la programación VB para manipular páginas web

Utilice el control WebBrowser para cargar la página web, luego

Atenuar vDoc, vTag

Atenuar I como entero

Establecer vDoc = w1.Document

Para I = 0 Para vDoc.All.length - 1

Si UCase(vDoc.All(I).tagName) = "INPUT" Entonces

Establecer vTag = vDoc.All(I)

Seleccionar caso vTag.Name

Caso "u" 'Nombre de usuario

vTag.Value = Texto5. Texto

Caso "p" 'Contraseña

vTag.Value = Texto6.Text

Caso "verifycode" 'Código de verificación

vTag .Value = Text7.Text

Finalizar selección

Seleccionar caso vTag.Type

Caso "enviar" 'Iniciar sesión

vTag.Click

Finalizar selección

Finalizar si

Siguiente I

Utilice esto para operar la página web. Para obtener más información, debe consultar el. archivo fuente de la página web