Acessar site Login

Olá pessoal,
Boa tarde!

Sou novo no forum e estou a começar um curso avançado em access e excel. Pois uso muito no meu trabalho.
Sempre tenho que fazer macros cada dia mais complexa e hoje me veio uma ideia na cabeça que estou tentando matar, mas não consigo.
Vejam só:

Tenho que fazer uma macro para entrar nesse site: https://backoffice.avianca.com.br/Main/Public/Login.aspx
e fazer o login.

Através desse topico antigo:
http://maximoaccess.forumeiros.com/t7608-resolvidoacessar-site-que-exige-login-e-senha

Eu conseguir fazer abrir o site tranquilo, mas não consigo fazer digitar o login e senha. Pélo codigo fonte do login seria: companyBodyContentHolder_bodyContentHolder_ReservaWebLogin1_UserName

Mas não vai nada. Alguem pode me dar uma luz?

Agradeço a ajuda

Muito obrigado Avelino.
Funcionou perfeitamente.

Sem querer abusar rs.
Na próxima pagina eu tinha que inserir uma numeração no campo "Localizador" e clicar em "Pesquisar"
Porém o imput name que estou encontrando é "Localizador"

Código:

<input name="localizador" class="formmenu" id="localizador" style="width: 250px; text-align: left; font-family: Consolas; font-size: 12pt;" type="text"/>

Estou com o erro 428 (O Objeto é obrigatório)
Estou usando a mesma função que me passou, mas estou usando em outro modulo.

Obrigado

Talvez não seja possivel como vc fez, por que vc estaria abrindo uma nova seção da página, que é protegida pelo login inicial

Experimente usar na mesma sequênica do código

...
.All("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$btLoginButton").Click
.All("localizador").value ="urquiz"...

Ou utilizar o sendKyes para enjetar o valor no campo. Veja alguns comandos do sendKeys tentar montar isso


...
.All("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$btLoginButton").Click
SendKeys ValorCampoLocalizador, True
SendKeys "{TAB}", True
SendKeys "{ENTER}", True


Sucesso!

Desculpe-me pela demora Avelino Sampaio.

Estou aqui rachando a cuca a procura de uma solução, por ser iniciante me prejudica mais ainda.
vamos la:

Não estou conseguindo preencher a caixa de texto. Ja usei os comandos "getElementById" e "getElementsByName".

Código:


ie.navigate "http://backoffice.avianca.com.br/Main/LC.aspx?url=pesq_reserva.asp"
While ie.Busy
DoEvents
Wend

 
 ie.Document.getElementById("localizador").Value = "222"


Porém não está indo.

Este é o codigo:

Código:


<input name="localizador" class="formmenu" id="localizador" style="width: 250px; text-align: left; font-family: Consolas; font-size: 12pt;" type="text"/>

Teria alguma solução?

Pra ficar mais fácil rs:



Os codigo que verifico:

Código:


function verifica_form()
{
   var confirmar = false;
   if(pesquisa.localizador.value!='')
      confirmar = true;
   if(pesquisa.nome.value!=''){
      confirmar = true;
        pesquisa.nome.value = Trim(pesquisa.nome.value);
    }
   if(pesquisa.sobrenome.value!=''){
      confirmar = true;
        pesquisa.sobrenome.value = Trim(pesquisa.sobrenome.value);
    }
   if((pesquisa.NroSerie.value!=''))
      confirmar = true;
    if(document.getElementById("ident_res3").value != ''){ //identificador
       if (isNaN(document.getElementById("ident_res3").value)) {
            alert("O identificador da reserva informado não é válido. Verifique.");
            document.getElementById("ident_res3").focus();
            return false;
        }
        confirmar = true;
    }


Código:


<input name="localizador" class="formmenu" id="localizador" style="width: 250px; text-align: left; font-family: Consolas; font-size: 12pt;" type="text"/>

Agradeço enormemente a ajuda.