You might be interested in my venerable Perl controller below. It
launches a ruby script using system(1,), which returns control to the
calling process. A short explanation of how system() does this is
here: http://perlmonks.org/?node_id=547218
use warnings;
use strict;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys );
my $x = 0;
system (1, "ruby c:/myscript.rb");
while (1) { #INFINITE LOOP
sleep 2; #CHECK FOR NEW WINDOW EVERY 2 SEC
my @windows = FindWindowLike(0, "^Logon Right Here");
for (@windows) {
SetForegroundWindow($_); #BRING THE RIGHT WINDOW IN FOCUS JUST IN CASE
SendKeys("user");
SendKeys("{TAB}");
SendKeys("password");
SendKeys("{ENTER}");
$x = 1;
}
exit if $x == 1;
}
_______________________________________________
Wtr-general mailing list
Wtr-general@rubyforge.org
http://rubyforge.org/mailman/listinfo/wtr-general
