I've done some more testing. But just like ChrisR could not get it working yet. I could grab the entire screen to an image but not the desired window only.

On a moment I moved from Win32::Gui::DIBitmap and tried using Win32::Screenshot to grab a window shot instead of the entire screen. The following code works with grabbing the window. The only problem it gave me was windows sometimes not being quick enough to build up the screen. This resulted in other windows being in the shot.

It is probably not what you are looking for, but I wanted to share the code snippet anyways 

use Win32::Screenshot;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow);

my @windows = FindWindowLike(0,qr/^search.cpan.org/);

if (defined($windows[0])) {
    
    SetForegroundWindow($windows[0]);
    my $image = CaptureWindow($windows[0]);
    $image->Write('screenshot.png');

}

[download]
Cheers,
Critter

In reply to Re^2: Using Win32::GUI::DIBitmap for screen capture by critter
in thread Using Win32::GUI::DIBitmap for screen capture by TROGDOR

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.