Foro - Perl en Español

por **jclp77** » 2007-01-18 14:47 @658

Hola a todos!!

Requiero de conocimiento

, resulta que tengo un script que cuando quiero abrir una aplicación que me solicita un usuario y un pwd y no me permite seguir con el script hasta que cierro la apliación, ya utilice system (aplicación) y exec (aplicacion) pero en los dos casos no me regresa al script una vez ejecutado el comando. Alguna idea??

Saludos

use Win32::GuiTestqw(FindWindowLike GetWindowText

    SetForegroundWindow SendKeys);

system"C:\\Consulta.exe";#AQUÍ ES DONDE SE QUEDA
$Win32::GuiTest::debug=0;
my@windows= FindWindowLike(0,"^Consulta");
for(@windows){

      SetForegroundWindow($_);

      SendKeys("123{TAB}123{TAB}{ENTER}");#ENVIA USUARIO Y PASSWORD.
sleep(5);

          SendKeys("%c");

      SendKeys("p");
sleep(1);

      SendKeys("34897000156470{TAB}{ENTER}");
sleep(3);

          SendKeys("%p");

          SendKeys("%o");

          SendKeys("p");

      SendKeys("s");
sleep(3);

          SendKeys("{ENTER}");
sleep(2);

          SendKeys("{ENTER}");
sleep(2);

          SendKeys("{ENTER}");

          SendKeys("%n");

          SendKeys("{ENTER}");
sleep(2);

      SendKeys("34897000156470{TAB}{ENTER}");
}Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **creating021** » 2007-01-18 17:53 @787

Ya entendí, pudes usar fork o (no se si en Windows sirva) haces el system con &:
system("C:\\programa.exe &");

por **explorer** » 2007-01-18 18:30 @813

Sí, ese es el problema. Al ejecutar system(), estás pidiendo que ejecute un programa y que ESPERE a que termine.

Lo que necesitas es mandar a Windows que arranque un nuevo proceso, pero que te permita seguir con el tuyo.

El módulo que debes usar es Win32::Process.

El único problema es encontrar el/los flags que debes usar para crear ese proceso. En esta página hay algunas, pero no todas. Leyendo el libro Learning Perl on Win32 Systems, indica que es DETACHED_PROCESS. Ejemplo.

Y sobre el fork(), se comentaba desde ActiveState que iban a hacerlo funcionar igual que en UNIX, pero me parece que no, que todavía funciona como hace unos años: el proceso que hace el fork se queda esperando hasta que el proceso hijo termina.

por **creating021** » 2007-01-19 18:45 @822

¿Y Windows no soporta threads?
Hay que recordar que su kernel, desde 9x soporta POSIX

por **jclp77** » 2007-01-19 19:00 @833

Hola a todos, ya pude manejarlo independiente en el mismo script utilizando win32::process, ahí va una parte del código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::GuiTestqw(FindWindowLike GetWindowText SetForegroundWindow SendKeys);
use Win32::Process;
use Win32;

my$program=q{C:/Consulta.exe};
my$process;
unless( Win32::Process::Create($process,$program,"calc",0, NORMAL_PRIORITY_CLASS,'.')){

    croak ErrorReport();
}
sleep(1);
my($consulta)= FindWindowLike 0,'^Calc';


SetForegroundWindow $consulta;

      SendKeys("123{TAB}123{TAB}{ENTER}");#usuario y pwd
sleep(3);

          SendKeys("%c");

      SendKeys("p");
sleep(1);

      SendKeys("34897000156470{TAB}{ENTER}");
sleep(3);

          SendKeys("%p");

          SendKeys("%o");

          SendKeys("p");

      SendKeys("s");
sleep(3);

          SendKeys("{ENTER}");
sleep(2);

          SendKeys("{ENTER}");
sleep(2);

          SendKeys("{ENTER}");

          SendKeys("%n");

          SendKeys("{ENTER}");
sleep(2);

      SendKeys("34897000156470{TAB}{ENTER}");Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Abrir aplicación Win32

Abrir aplicación Win32

Publicidad

¿Quién está conectado?