I don't know much about Icons in the System Tray,
but one way is to use Win32::GuiTest and click the mouse.
Mext script click the right-most top Icon in "MY pc".
My pc has 3 Icons in 1 columns. (you know what I mean)
The script click "I4"!
-----------------------
I1 I4 12:00
< I2 I5 Tue
I3 2006/12/05
-----------------------
#!Perl
use strict;
use Win32::GUI;
use Win32::GuiTest qw(
GetForegroundWindow SetForegroundWindow
SendKeys PushChildButton GetWindowRect
MouseMoveAbsPix SendLButtonDown SendLButtonUp
);
print "Mouse move to (938,718)...\n";
MouseMoveAbsPix(938,718);
sleep 3;
print "ButtonDown/ButtonUp...\n";
SendLButtonDown();
SendLButtonUp();
sleep 3;
__END__
Regards,
HT
> I found the following http://support.microsoft.com/kb/q162613/
> titled "How To Manipulate Icons in the System Tray with Visual
> Basic" but cannot figure out how to use that information to
> access items in Windows XP's System Tray and manipulate them.
> Here's my interest:
>
> Juniper VPN creates an icon in the Windows XP's tray.
> Clicking on this icon brings up a dialog box titled
> "Network Connect" with buttons labeled ">", "Hide"
> and "Sign Out". I would like to access this item
> from a perl script and select "Sign Out".
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
