auto program install

[rickict]

hi im trying to right a script to auto install an application from start to finish.
heres my code

use Win32::GuiTest qw( FindWindowLike
                       PushChildButton );
use strict;

#start the app.
system ("c:\\Documents and settings\\rick\\my documents\\Thunderbird Setup 1.0.6.exe");

#advance the install program.
my @whnds = FindWindowLike( undef, "^Mozilla Thunderbird Setup" );
if( !@whnds ){
    die "Cannot find window with title/caption Calculator\n";
}else{
    printf( "Window handle of calculator application is %x\n", $whnds[ 0 ] );
}
PushChildButton( $whnds[ 0 ], 12324 ); # next button
PushChildButton( $whnds[ 0 ], 12324 ); # next button
PushChildButton( $whnds[ 0 ], 1081 ); # next button
PushChildButton( $whnds[ 0 ], 12324 ); # next button
PushChildButton( $whnds[ 0 ], 11007 ); # next button
PushChildButton( $whnds[ 0 ], 12324 ); # next button

all works well if i seperate the #start app part and the
#advance install program .
but put together, it just stops after the setup prog has launched.

how can i get the script to stop and wait for the setup prog to have started so it can then except the next commands to advance the install?
thanks ...rick

 

[TrojanWarBlade]

You might want to fork a child process to run the "system" call cos I bet the system call is blocking and not returning control until the .exe has completed.
Of course the .exe cannot complete until it exits and so you'll wait forever.


Trojan.