VB preenche a caixa de entrada no IE e a envia
Suponha que o código HTML da página de login seja o seguinte:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<cabeça>
<title>página de teste</title>
</head>
<corpo>
<nome do FORM = método chh = ação "POST" = "login.asp">
<table cellpacing="0" cellpadding="2">
<tr>
<td align="center">Usuário:</td>
<td alinhar="esquerda">
<input name="NomeLogin" type="text" id="NomeLogin" size="12">
</td>
</tr>
<tr>
<td align="center">Senha:</td>
<td alinhar="esquerda">
<input name="LoginPassword" type="password" id="LoginPassword" size="12">
</td>
</tr>
</tabela>
<tipo de entrada = "enviar" id = "clickme" valor = "enviar">
</FORM>
</body>
</html>
Uma página muito simples, com um formulário de login, uma caixa de entrada de nome de usuário LoginName, uma caixa de entrada de senha LoginPassword e um botão de envio clickme
Em seguida, abra esta página com o IE e observe que o título da página está definido como testPage.
Em seguida, abra o VB e faça referência aos controles de Internet da Microsoft no projeto:
Subcomando Privado1_Click()
Dim IEList como novo ShellWindows
Escurecer navegador
Dim Doc
Em caso de erro, retomar o próximo
'Percorre a janela atual do navegador
Para cada navegador no IEList
'Encontre a janela do IE necessária
Se browser.Document.Title = "testPage" Então
'Obtém o objeto de documento do navegador
Definir Doc = navegador.Documento
'Preencha o campo nome de usuário
Doc.body.All("LoginName").Value = "eddie"
'Preencha o campo de senha
Doc.body.All("LoginPassword").Value = "123456"
'enviar
Doc.body.All("clickme").Clique
Terminar se
Próximo
Finalizar sub