# $Id: guitest-spy.html,v 1.1 2001/09/19 23:31:36 erngui Exp $
#
# MS has a very nice tool (Spy++).
# This is Spy--
#
use Win32::GuiTest qw/FindWindowLike GetWindowText GetClassName IsWindowEnabled GetWindowID
    GetChildDepth GetDesktopWindow GetComboContents GetListContents GetListText SendKeys /;
use Win32::API;

for (FindWindowLike(0,qr/^Explorer -/)) {
    SendKeys("%ao");
    print "Looking for dialog\n";
    my @dialog = FindWindowLike($_,qr/Optionen/,"");
    print "Looking for listbox\n";
    my @listbox = FindWindowLike($dialog[0],"","",752);

    while (1) {
      print "Getting current selection\n";
      my $i = SendMessage($listbox[0], LB_GETCURRSEL,0,0 );
      print $i;
      print "Getting current selection text\n";
      my $t = GetListText($listbox[0],$i);
      print $t,"\n";
      sleep 1;
    };
}