These two curious scripts below where posted on this list some time ago,
(there is no archive search sorry I dont know who)
Its probably not quite what you wanted, but could be worth a play.
#-sender.pl
#!perl -w
use strict;
use Win32::GUI;
my $hwind = &gethandle;
#my $hwind = ;
print "hwind $hwind";
print "\nEnter text: ";
my $text = ;
Win32::GUI::Text($hwind, $text);
Win32::GUI::InvalidateRect($hwind, 1);
#EOF
sub gethandle{
my $winname='Autoscroller';
my $desktop = GUI::GetDesktopWindow();
my $window = GUI::GetWindow($desktop, GW_CHILD);
while($window) {my $title = GUI::Text($window);
if($title eq
"$winname"){print "found $winname\n";
my $window2 = GUI::GetWindow($window, GW_CHILD);
$hwind=$window2;
}
$window = GUI::GetWindow($window, GW_HWNDNEXT);
}
$hwind}
###end
#--mainwindow.pl
use strict;
use Win32::GUI;
my $winMain = new Win32::GUI::Window(
-left => 13,
-top=> 32,
-width => 439,
-height => 260,
-name => "winMain",
-text => "Autoscroller",
);
$winMain->AddLabel(
-text=> "lblTest",
-name=> "lblTest",
-left=> 0,
-top => 0,
-width => 400,
-height => 250,
);
$winMain->lblTest()->Text("The hwind is: " .
$winMain->lblTest()->{-handle});
$winMain->Show();
Win32::GUI::Dialog();
finish
John Rogers
System Engineer
Oce Australia
Ph 3212 8114
##
Disclaimer
If this e-mail has been sent to you in error, please notify
Océ-Australia Limited immediately and delete this e-mail from
your system.
Any views expressed in this e-mail are those of the individual
sender and may not necessarily reflect the views of
Océ-Australia Limited.
##