VB llena el cuadro de entrada en IE y lo envía
Supongamos que el código HTML de la página de inicio de sesión es el siguiente:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transicional//ES">
<html>
<cabeza>
<título>Página de prueba</título>
</cabeza>
<cuerpo>
<nombre del FORMULARIO=método chh = acción "POST" = "login.asp">
<table cellspace="0" cellpadding="2">
<tr>
<td align="center">Usuario:</td>
<td align="izquierda">
<nombre de entrada="Nombre de inicio de sesión" tipo="texto" id="Nombre de inicio de sesión" tamaño="12">
</td>
</tr>
<tr>
<td align="center">Contraseña:</td>
<td align="izquierda">
<nombre de entrada="Contraseña de inicio de sesión" tipo="contraseña" id="Contraseña de inicio de sesión" tamaño="12">
</td>
</tr>
</tabla>
<tipo de entrada = "enviar" id = "hacer clic en mí" valor = "enviar">
</FORM>
</cuerpo>
</html>
Una página muy simple, con un formulario de inicio de sesión, un cuadro de entrada de nombre de usuario LoginName, un cuadro de entrada de contraseña LoginPassword y un botón de envío, haga clic en mí.
Luego abra esta página con IE y observe que el título de la página está configurado en testPage.
Luego abra VB y haga referencia a los controles de Internet de Microsoft en el proyecto:
Subcomando privado1_Click()
Atenuar IEList como nuevo ShellWindows
Navegador oscuro
Doc oscuro
En caso de error Continuar siguiente
'Atraviesa la ventana actual del navegador
Para cada navegador en IEList
'Encuentre la ventana de IE requerida
Si browser.Document.Title = "testPage" Entonces
'Obtener el objeto de documento del navegador
Establecer Doc = navegador.Documento
'Rellena el campo de nombre de usuario
Doc.body.All ("Nombre de inicio de sesión"). Valor = "eddie"
'Rellena el campo de contraseña
Doc.body.All("Contraseña de inicio de sesión").Valor = "123456"
'entregar
Doc.body.All ("haz clic en mí"). Haz clic
Terminar si
Próximo
Subtítulo final