Just some junk that worked for me
#!/usr/bin/perl -w
use strict;
#adstuff.pl v .01
#01/04/04 by ackme
#next step is to get it to open Ad-Aware all by itself
my @windows;
use Win32::GuiTest qw(FindWindowLike GetWindowText
SetForegroundWindow SendKeys SendMouse PushButton PushChildButton
+MouseMoveAbsPix PushButton);
$Win32::GuiTest::debug = 1; # Set to "1" to enable verbose mode
my ($hwindDisplay) = FindWindowLike(0, "^Foo", "");
$hwindDisplay or die("Could not open Foo\n");
SetForegroundWindow($hwindDisplay);
MouseMoveAbsPix(140, 380);
SendMouse ("{LEFTCLICK}");
[notes]
# for (@windows) {
# print "$_>\t'", GetWindowText($_), "'\n";
# SetForegroundWindow($_);
#SendKeys("%fn~a{TAB}b{TAB}{BS}{DOWN}");
#SendKeys("~");
#coordinates = 650 x 463 y
#so figure it out!
# SendMouse("LEFTCLICK");
# }
#print grrrrr
|