[perl-win32-gui-users] RE: communication between GUI scripts

[Rogers, John]

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 = <STDIN>;
print "hwind $hwind";
print "\nEnter text: ";
my $text = <STDIN>;

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. 
##############################################################