http://qs321.pair.com?node_id=759399

grashoper has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to automate starting a loadrunner script but its not working as I would expect it to. I get a failed to start loadrunner message, even though the application does launch my call to sendkeys however fails, and it never runs my script,I really need this as I am trying to get this to restart on its own to monitor webservers for our custom application.
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}");