use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
use strict;
my @argv=("E:\\MIBOR_TimingTest\\MIBOR\\MIBOR.usr");
system(@argv)==0 or die "Failed to execute Loadrunner";
sleep (600);
my @whnds=FindWindowLike( undef,"^Mercury Virtual User Generator");
if (!@whnds){
die "Cannot find window with title/caption Mercury";
}
else{
printf("Window handle of Mercury is %x\n", $whnds[0]);
}
sleep (60);
SetForegroundWindow($whnds[0]);
SendKeys("{F5}");