# $Id: spy--.pl,v 1.1 2001/06/17 09:17:10 erngui Exp $
#
# MS has a very nice tool (Spy++).
# This is Spy--
#
use Win32::GuiTest qw/FindWindowLike GetWindowText GetClassName
    GetChildDepth GetDesktopWindow/;

for (FindWindowLike()) {
    $s = sprintf("0x%08X", $_ );
    $s .= ", '" .  GetWindowText($_) . "', " . GetClassName($_);
    print "+" x GetChildDepth(GetDesktopWindow(), $_), $s, "\n";
}