Ver Mensaje Individual
  #2  
Antiguo 28-03-2008
cestradar cestradar is offline
Miembro
 
Registrado: ene 2008
Posts: 24
Reputación: 0
cestradar Va por buen camino
Aparentemente el problema era darle un tiempo para que se cargara la página en el TWebBrowser.

Con una secuencia como la de abajo, hasta ahora parece que funciona.

Código:
  RefreshClick(Sender); <- Refrescar la página para darle el foco al ActiveX
  Application.ProcessMessages;   
  sleep(3000);                      <-Esta es la pausa que necesitaba
  WebBrowser1.SetFocus;       <- Sin esto no manda las teclas al control de la página
  Application.ProcessMessages;
  SendKeys('login{TAB}password{ENTER}', False) ;
Espero que con esto quede, aunque si alguien sabe algún otro método le agradecería comentármelo.

Saludos
Responder Con Cita