Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Interação site ASP/...
 
Notifications
Clear all

Interação site ASP/VBA

 
2024 - VBA & Macros
Post Recente por brasil 12 anos atrás
3 Posts
2 Usuários
0 Reactions
1,745 Visualizações
RSS
 brasil
(@brasil)
Posts: 8
Active Member
Topic starter
 

Prezados,
Boa Noite!

Resolvi recorrer a ajuda de colaboradores, uma vez que não consigo mais sair do problema abaixo.
Por ser iniciante e necessidade profissional estou com muita dificuldade.

Peguei um código que faço o login neste site:
https://backoffice.avianca.com.br/Main/ ... Login.aspx

Sub fncLoginSite2()
On Error Resume Next

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.Navigate "https://backoffice.avianca.com.br/Main/Public/Login.aspx"
While ie.Busy
DoEvents
Wend

ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$UserName").Value = "ENTER_USER"
ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$Password").Value = "PASS"
ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$btLoginButton").Click
While ie.Busy
DoEvents
Wend

O problema começa agora.
Na próxima pagina, eu preciso preencher o campo "Localizador" e estou usando o codigo abaixo:
http://backoffice.avianca.com.br/Main/L ... eserva.asp

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

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

Porém não não está inserindo nada no campo. Já usei por frames mas não consigo.

Ficarei muito grato a todos pela ajuda.

PS: Adicionei o codigo fonte da proxima pagina, pois não da para ver sem o login.

 
Postado : 26/05/2013 3:23 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Esse é todo seu código?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2013 4:09 pm
 brasil
(@brasil)
Posts: 8
Active Member
Topic starter
 

Boa noite colega.

Não tá inteiro pois ainda não consegui resolver esse probleminha

Sub fncLoginSite2()


On Error Resume Next

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.Navigate "https://backoffice.avianca.com.br/Main/Public/Login.aspx"
While ie.Busy
DoEvents
Wend

ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$UserName").Value = "ENTER_USER"
ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$Password").Value = "PASS"
ie.Document.all("ctl00$ctl00$companyBodyContentHolder$bodyContentHolder$ReservaWebLogin1$btLoginButton").Click
While ie.Busy
DoEvents
Wend

' Entender daqui pra baixo

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

x = ie.Document.frames.Item(0).Document.Forms.Lengt
x = ie.Document.frames.Item(1).Document.Forms.Length


 
 
Set ie = Nothing

End Sub
 
Postado : 26/05/2013 5:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico