Bookmarks

Yahoo Gmail Google Facebook Delicious Twitter Reddit Stumpleupon Myspace Digg

Search queries

w2ksp4.exe, WwwxxXdbf, procmail "FROM_MAILER" patch, Use of assignment to $[ is deprecated at /usr/local/sbin/apxs line 86. , wwwxxx vim, mysql closing table and opening table, 800c5000, setgid operation not permitted, pciehp: acpi_pciehprm on IBM, WWWXXX.DBF

Links

XODOX
Impressum

#1: Retrieving Windows applications on desktop

Posted on 2006-01-25 05:17:41 by Foo Ji-Haw

Hello all,

This is a longshot, but I'm just gonna put it out and see what I get...

Is there a way in Perl to get a list of all the Windows applications
that are running? Basically applications that show in the Alt-Tab list.
I am just wondering if I can get the desktop coordinates of the
respective windows applications.

Any hint is appreciated.

Thanks.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#2: RE: Retrieving Windows applications on desktop

Posted on 2006-01-25 15:07:22 by Dirk Bremer

> -----Original Message-----
> From: activeperl-bounces@listserv.ActiveState.com
> [mailto:activeperl-bounces@listserv.ActiveState.com] On
> Behalf Of Foo Ji-Haw
> Sent: Tuesday, January 24, 2006 22:18
> To: activeperl@listserv.ActiveState.com
> Subject: Retrieving Windows applications on desktop
>
> Hello all,
>
> This is a longshot, but I'm just gonna put it out and see
> what I get...
>
> Is there a way in Perl to get a list of all the Windows applications
> that are running? Basically applications that show in the
> Alt-Tab list.
> I am just wondering if I can get the desktop coordinates of the
> respective windows applications.
>
> Any hint is appreciated.

Something like this may be a start, although I cannot help you with
obtaining desktop/window coordinates.

use Win32::OLE qw(in);
use Win32::OLE::Variant;
my $WMI = Win32::OLE->GetObject($CLASS) || die('WMI instantiation
failed');
# Find all PIDs, program-names, and executable paths for all running
processes.
for my $Process (sort{lc($a->{Name}) cmp lc($b->{Name})} in
($WMI->InstancesOf("Win32_Process")))
{
$Name = $Process->{Name}; # Process program-name.
$Path = $Process->{ExecutablePath}; # Process executable path.
$PID = $Process->{ProcessID}; # PID.
$Path = '' unless (defined($Path));
}

Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503

dirk.bremer@nisc.coop
www.nisc.coop

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#3: Re: Retrieving Windows applications on desktop

Posted on 2006-01-26 09:14:10 by Foo Ji-Haw

>>Is there a way in Perl to get a list of all the Windows applications
>>that are running? Basically applications that show in the
>>Alt-Tab list.
>>I am just wondering if I can get the desktop coordinates of the
>>respective windows applications.
>>
>>Any hint is appreciated.
>>
>>
>
>Something like this may be a start, although I cannot help you with
>obtaining desktop/window coordinates.
>
>use Win32::OLE qw(in);
>use Win32::OLE::Variant;
>my $WMI = Win32::OLE->GetObject($CLASS) || die('WMI instantiation
>failed');
># Find all PIDs, program-names, and executable paths for all running
>processes.
>for my $Process (sort{lc($a->{Name}) cmp lc($b->{Name})} in
>($WMI->InstancesOf("Win32_Process")))
>{
> $Name = $Process->{Name}; # Process program-name.
> $Path = $Process->{ExecutablePath}; # Process executable path.
> $PID = $Process->{ProcessID}; # PID.
> $Path = '' unless (defined($Path));
>}
>
>
Thanks Dirk,

A working version of your code is as follows:
use strict;
use warnings;

use Win32::OLE qw(in);
use Win32::OLE::Variant;
my $WMI = Win32::OLE->GetObject("winmgmts:\\\\localhost\\root\\cimv2")
|| die('WMI instantiation failed');
for my $Process (sort{lc($a->{Name}) cmp lc($b->{Name})} in
($WMI->InstancesOf("Win32_Process")))
{
my $Name = $Process->{Name}; # Process program-name.
my $Path = $Process->{ExecutablePath}; # Process executable path.
my $PID = $Process->{ProcessID}; # PID.
$Path = '' unless (defined($Path));

print "$Name,$Path,$PID\n";
}

WMI is a good start, but I don't think it exposes the application screen
coordinates.

Thanks anyway.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#4: Re: Retrieving Windows applications on desktop

Posted on 2006-01-26 11:45:21 by rvtol+news

Foo Ji-Haw schreef:

> my $WMI = Win32::OLE->GetObject("winmgmts:\\\\localhost\\root\\cimv2")

Alternatives:

my $WMI = Win32::OLE->GetObject( 'winmgmts:\\localhost\root\cimv2' )

my $WMI = Win32::OLE->GetObject( q{winmgmts:\\localhost\root\cimv2} )


> print "$Name,$Path,$PID\n";

Alternative:

{ local ($,, $\) = (',', "\n"); # or (q{,}, qq{\n})
print $Name, $Path, $PID;
}

--
Affijn, Ruud

"Gewoon is een tijger."


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#5: Re: Retrieving Windows applications on desktop

Posted on 2006-01-26 20:24:05 by Howard Tanner

>>Is there a way in Perl to get a list of all the Windows applications
>>that are running? Basically applications that show in the
>>Alt-Tab list.
>>I am just wondering if I can get the desktop coordinates of the
>>respective windows applications.
>>
>>Any hint is appreciated.
>>
>
> WMI is a good start, but I don't think it exposes the application screen
> coordinates.
>
>

I could not find a way to get this info from WMI either.

However, what I think you're really looking for are the coordinates
for the top level windows, so there's no need for the processes. To do
this, you need to use the following Windows API's:

EnumWindows (uses a callback to identify each top-level window)
GetWindowText (to get the title of the window)
GetWindowInfo (returns a WINDOWINFO struct, which contains RECT
rcWindow, which is what you're looking for)

These API's are documented at Microsoft's MSDN library:
http://msdn.microsoft.com/library. Basically, the EnumWindows callback
is passed a window handle (hwnd) for each top-level window. The hwnd
can then be passed to GetWindowText and GetWindowInfo to get the
information you need about that window.

This is easy enough in a language that can call Windows API's but this
is beyond my current Perl skills. There's a Win32::API module that
might do the trick, but I can't see how to do the callback with it.
Perhaps an XS is the way to go, but that's beyond me right now, and
perhaps way more complicated than simply using a language that can
call Windows API's...

Perhaps someone else on this list can use this info to craft the Perl
you need...

Good luck,
HT

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#6: Re: Retrieving Windows applications on desktop

Posted on 2006-01-26 21:36:50 by JKahn

This is a multipart message in MIME format.
--===============0092567967==
Content-Type: multipart/alternative;
boundary="=_alternative 00713CA985257102_="

This is a multipart message in MIME format.
--=_alternative 00713CA985257102_=
Content-Type: text/plain; charset="US-ASCII"

Here is a way to do it with WMI. Got this by quickly editing a
scriptomatic generated script:


On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("<COMPUTERNAME>")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_SoftwareFeature where vendor like '%Microsoft%'", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "Accesses: " & objItem.Accesses
WScript.Echo "Attributes: " & objItem.Attributes
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Description: " & objItem.Description
WScript.Echo "IdentifyingNumber: " & objItem.IdentifyingNumber
WScript.Echo "InstallDate: " &
WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "InstallState: " & objItem.InstallState
WScript.Echo "LastUse: " & WMIDateStringToDate(objItem.LastUse)
WScript.Echo "Name: " & objItem.Name
WScript.Echo "ProductName: " & objItem.ProductName
WScript.Echo "Status: " & objItem.Status
WScript.Echo "Vendor: " & objItem.Vendor
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next


Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm:
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" &
Mid(dtmDate,13, 2))
End Function



JK




Howard Tanner <htanner@gmail.com>
Sent by: activeperl-bounces@listserv.ActiveState.com
01/26/2006 02:24 PM

To
Foo Ji-Haw <jhfoo-ml@extracktor.com>
cc
activeperl@listserv.ActiveState.com
Subject
Re: Retrieving Windows applications on desktop






>>Is there a way in Perl to get a list of all the Windows applications
>>that are running? Basically applications that show in the
>>Alt-Tab list.
>>I am just wondering if I can get the desktop coordinates of the
>>respective windows applications.
>>
>>Any hint is appreciated.
>>
>
> WMI is a good start, but I don't think it exposes the application screen
> coordinates.
>
>

I could not find a way to get this info from WMI either.

However, what I think you're really looking for are the coordinates
for the top level windows, so there's no need for the processes. To do
this, you need to use the following Windows API's:

EnumWindows (uses a callback to identify each top-level window)
GetWindowText (to get the title of the window)
GetWindowInfo (returns a WINDOWINFO struct, which contains RECT
rcWindow, which is what you're looking for)

These API's are documented at Microsoft's MSDN library:
http://msdn.microsoft.com/library. Basically, the EnumWindows callback
is passed a window handle (hwnd) for each top-level window. The hwnd
can then be passed to GetWindowText and GetWindowInfo to get the
information you need about that window.

This is easy enough in a language that can call Windows API's but this
is beyond my current Perl skills. There's a Win32::API module that
might do the trick, but I can't see how to do the callback with it.
Perhaps an XS is the way to go, but that's beyond me right now, and
perhaps way more complicated than simply using a language that can
call Windows API's...

Perhaps someone else on this list can use this info to craft the Perl
you need...

Good luck,
HT

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs



************************************************************ *******

This email and any files transmitted with it are confidential
and intended solely for the use of the individual or entity
to whom they are addressed. If you have received this
email in error please notify the sender by replying to this
email and then delete it from your system.

No reliance may be placed upon this email without written
confirmation of its contents and any liability arising from
such reliance without written confirmation is hereby
excluded.

JRI America

************************************************************ *******


--=_alternative 00713CA985257102_=
Content-Type: text/html; charset="US-ASCII"


<br><font size=2 face="sans-serif">Here is a way to do it with WMI. &nbsp;Got
this by quickly editing a scriptomatic generated script:</font>
<br>
<br>
<br><font size=2 face="sans-serif">On Error Resume Next</font>
<br>
<br><font size=2 face="sans-serif">Const wbemFlagReturnImmediately = &amp;h10</font>
<br><font size=2 face="sans-serif">Const wbemFlagForwardOnly = &amp;h20</font>
<br>
<br><font size=2 face="sans-serif">arrComputers = Array(&quot;&lt;COMPUTERNAME&gt;&quot;)</font>
<br><font size=2 face="sans-serif">For Each strComputer In arrComputers</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;WScript.Echo</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;WScript.Echo &quot;==========================================&quot;</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;WScript.Echo &quot;Computer:
&quot; &amp; strComputer</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;WScript.Echo &quot;==========================================&quot;</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;Set objWMIService = GetObject(&quot;winmgmts:\\&quot;
&amp; strComputer &amp; &quot;\root\CIMV2&quot;)</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;Set colItems = objWMIService.ExecQuery(&quot;SELECT
* FROM Win32_SoftwareFeature where vendor like '%Microsoft%'&quot;, &quot;WQL&quot;,
_</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; wbemFlagReturnImmediately + wbemFlagForwardOnly)</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;For Each objItem In colItems</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Accesses:
&quot; &amp; objItem.Accesses</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Attributes:
&quot; &amp; objItem.Attributes</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Caption:
&quot; &amp; objItem.Caption</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Description:
&quot; &amp; objItem.Description</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;IdentifyingNumber:
&quot; &amp; objItem.IdentifyingNumber</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;InstallDate:
&quot; &amp; WMIDateStringToDate(objItem.InstallDate)</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;InstallState:
&quot; &amp; objItem.InstallState</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;LastUse:
&quot; &amp; WMIDateStringToDate(objItem.LastUse)</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Name:
&quot; &amp; objItem.Name</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;ProductName:
&quot; &amp; objItem.ProductName</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Status:
&quot; &amp; objItem.Status</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Vendor:
&quot; &amp; objItem.Vendor</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo &quot;Version:
&quot; &amp; objItem.Version</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; WScript.Echo</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp;Next</font>
<br><font size=2 face="sans-serif">Next</font>
<br>
<br>
<br><font size=2 face="sans-serif">Function WMIDateStringToDate(dtmDate)</font>
<br><font size=2 face="sans-serif">WScript.Echo dtm: </font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; WMIDateStringToDate
= CDate(Mid(dtmDate, 5, 2) &amp; &quot;/&quot; &amp; _</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; Mid(dtmDate,
7, 2) &amp; &quot;/&quot; &amp; Left(dtmDate, 4) _</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &amp;
&quot; &quot; &amp; Mid (dtmDate, 9, 2) &amp; &quot;:&quot; &amp; Mid(dtmDate,
11, 2) &amp; &quot;:&quot; &amp; Mid(dtmDate,13, 2))</font>
<br><font size=2 face="sans-serif">End Function</font>
<br>
<br>
<br>
<br><font size=2 face="sans-serif">JK</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>Howard Tanner &lt;htanner@gmail.com&gt;</b>
</font>
<br><font size=1 face="sans-serif">Sent by: activeperl-bounces@listserv.ActiveState.com</font>
<p><font size=1 face="sans-serif">01/26/2006 02:24 PM</font>
<td width=59%>
<table width=100%>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td valign=top><font size=1 face="sans-serif">Foo Ji-Haw &lt;jhfoo-ml@extracktor.com&gt;</font>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td valign=top><font size=1 face="sans-serif">activeperl@listserv.ActiveState.com</font>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td valign=top><font size=1 face="sans-serif">Re: Retrieving Windows applications
on desktop</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><font size=2><tt>&gt;&gt;Is there a way in Perl to get a list of all
the Windows applications<br>
&gt;&gt;that are running? Basically applications that show in the<br>
&gt;&gt;Alt-Tab list.<br>
&gt;&gt;I am just wondering if I can get the desktop coordinates of the<br>
&gt;&gt;respective windows applications.<br>
&gt;&gt;<br>
&gt;&gt;Any hint is appreciated.<br>
&gt;&gt;<br>
&gt;<br>
&gt; WMI is a good start, but I don't think it exposes the application
screen<br>
&gt; coordinates.<br>
&gt;<br>
&gt;<br>
<br>
I could not find a way to get this info from WMI either.<br>
<br>
However, what I think you're really looking for are the coordinates<br>
for the top level windows, so there's no need for the processes. To do<br>
this, you need to use the following Windows API's:<br>
<br>
EnumWindows (uses a callback to identify each top-level window)<br>
GetWindowText (to get the title of the window)<br>
GetWindowInfo (returns a WINDOWINFO struct, which contains RECT<br>
rcWindow, which is what you're looking for)<br>
<br>
These API's are documented at Microsoft's MSDN library:<br>
http://msdn.microsoft.com/library. Basically, the EnumWindows callback<br>
is passed a window handle (hwnd) for each top-level window. The hwnd<br>
can then be passed to GetWindowText and GetWindowInfo to get the<br>
information you need about that window.<br>
<br>
This is easy enough in a language that can call Windows API's but this<br>
is beyond my current Perl skills. There's a Win32::API module that<br>
might do the trick, but I can't see how to do the callback with it.<br>
Perhaps an XS is the way to go, but that's beyond me right now, and<br>
perhaps way more complicated than simply using a language that can<br>
call Windows API's...<br>
<br>
Perhaps someone else on this list can use this info to craft the Perl<br>
you need...<br>
<br>
Good luck,<br>
HT<br>
<br>
_______________________________________________<br>
ActivePerl mailing list<br>
ActivePerl@listserv.ActiveState.com<br>
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs<br>
</tt></font>
<br><FONT SIZE=3><BR>
<BR>
************************************************************ *******<BR>
<BR>
This email and any files transmitted with it are confidential <BR>
and intended solely for the use of the individual or entity <BR>
to whom they are addressed. If you have received this <BR>
email in error please notify the sender by replying to this <BR>
email and then delete it from your system.<BR>
<BR>
No reliance may be placed upon this email without written<BR>
confirmation of its contents and any liability arising from <BR>
such reliance without written confirmation is hereby <BR>
excluded.<BR>
<BR>
JRI America<BR>
<BR>
************************************************************ *******<BR>
</FONT>

--=_alternative 00713CA985257102_=--

--===============0092567967==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0092567967==--

Report this message

#7: Re: Retrieving Windows applications on desktop

Posted on 2006-01-27 02:55:43 by Foo Ji-Haw

>I could not find a way to get this info from WMI either.
>
>However, what I think you're really looking for are the coordinates
>for the top level windows, so there's no need for the processes. To do
>this, you need to use the following Windows API's:
>
>EnumWindows (uses a callback to identify each top-level window)
>GetWindowText (to get the title of the window)
>GetWindowInfo (returns a WINDOWINFO struct, which contains RECT
>rcWindow, which is what you're looking for)
>
>These API's are documented at Microsoft's MSDN library:
>http://msdn.microsoft.com/library. Basically, the EnumWindows callback
>is passed a window handle (hwnd) for each top-level window. The hwnd
>can then be passed to GetWindowText and GetWindowInfo to get the
>information you need about that window.
>
>
I think your angle is heading in the right direction. I found a module
called Win32::CaptureIE that does a screenshot capture of an IE browser
(cool right?). I may be able to glean some tricks off the codes, but the
main difference is that the module creates its own object (via
GetObject), so it is able to get the hwnd. But with your EnumWindows
suggestion it may just work...


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message

#8: Re: Retrieving Windows applications on desktop

Posted on 2006-01-27 03:52:05 by Foo Ji-Haw

>> However, what I think you're really looking for are the coordinates
>> for the top level windows, so there's no need for the processes. To do
>> this, you need to use the following Windows API's:
>>
>> EnumWindows (uses a callback to identify each top-level window)
>> GetWindowText (to get the title of the window)
>> GetWindowInfo (returns a WINDOWINFO struct, which contains RECT
>> rcWindow, which is what you're looking for)
>>
>> These API's are documented at Microsoft's MSDN library:
>> http://msdn.microsoft.com/library. Basically, the EnumWindows callback
>> is passed a window handle (hwnd) for each top-level window. The hwnd
>> can then be passed to GetWindowText and GetWindowInfo to get the
>> information you need about that window.
>
Apparently someone has already done it, via another module! Look at
Win32::GuiTest. You can use FindWindowLike() and GetWindowText() to list
all windows, and get their screen locations respectively.

The following is a simple sample code:
use Win32::GuiTest qw(FindWindowLike GetWindowText GetWindowRect);

my @windows = FindWindowLike();
foreach my $window (@windows)
{
my $WindowText = GetWindowText($window);
if ($WindowText and ($WindowText =~ /Thunderbird/))
{
print "$window,".GetWindowText($window)."\n";
my @rect = GetWindowRect($window);
print 'rect: '.join(',',@rect)."\n";
}
}

Cool! Perl rocks!
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Report this message