Select Code to Download

#!c:\usr\local\apps\berrybrew\perls\system\perl\perl -l
# used http://www.piotrkaluski.com/files/winguitest/docs/winguitest.ht
+ml#id5446446 as a starting point
use Win32::GuiTest qw'WaitWindowLike SendMessage AllocateVirtualBuffer
+ WriteToVirtualBuffer ReadFromVirtualBuffer FreeVirtualBuffer';
...

    FreeVirtualBuffer($_) for @strBufs, $tcharpp;
}

#include <windows.h>
#include <commctrl.h>
#include <stdio.h>
...
    return 0;

}