", True
Application.Wait 900
SendKeys" ~ ", True
Fim Sub
Este programa configura seu navegador para receber a entrada de teclado usando a instrução AppActivate . A instrução SendKeys envia as teclas de sua senha para o navegador, ea declaração Application.Wait faz uma pausa para permitir que o seu tempo de navegador para processar as teclas. O caractere " ~" representa o texto " Enter" .
4
Digite sobre o marcado (ou seja, "<>" ) no programa no passo 3 com o nome do navegador e senha necessária para Conecte-se à página da Web .
5
Clique uma declaração no programa automateLogin você digitou na etapa 3 , clique em "Executar sub" o item do menu " Run " para executar o seu programa. Excel irá ativar o navegador especificado em seu código, em seguida, enviar as teclas digitadas no navegador. Estas combinações de teclas soletrar a senha que você digitou na etapa 3 . Excel irá então executar " SendKeys ' ~' , verdadeiro" do programa comunicado , que vai enviar a combinação de teclas para a tecla "Enter" para a página da Web . Esta ação irá enviar o formulário de login para o processamento , como se você pressionou manualmente o
6
Tipo tecla "Enter" . No topo , mais à esquerda da célula de primeira planilha de Excel o nome do navegador para que você acabou de enviar uma senha. Esta etapa inicia uma revisão do programa de login. O programa revisto vai usar as informações armazenadas em uma planilha, em vez de informações contidas no código-fonte do programa , fazer login no site. Esta abordagem torna mais fácil para alterar as informações de login.
7 Tipo
na célula sob a que contém o nome do navegador a senha que você hard-coded no Passo 3 .
8
Pressione " Alt- F11 " para reentrar no ambiente de codificação VBA. Em seguida, cole o seguinte código de programa revisto abaixo o programa automateLogin .
Public Sub automateLoginWithStoredPassword ()
Dim senha, browsername
browsername = ActiveSheet.Cells (1, 1). valor
password = ActiveSheet.Cells ( 2, 1) . valor
AppActivate browsername , Verdadeiro
SendKeys senha , Verdadeiro
Application.Wait 900
SendKeys " ~" , True End Sub
9
Devolva o seu navegador para a página de login e execute o programa revisto através de instruções passo 5 do . Excel irá enviar a senha armazenada na planilha para a página de login .