Here is hwndSendKeys , its close, but its broken (and i'm bored with it)
sub hwndSendKeys {
my ( $hwnd, $keys, $delay) = @_;
$delay = 25 unless defined $delay;
$delay /= 1000;
my @k = Win32::GuiTest::parse_keys($keys);
for ( my $i = 0; $i < @k; $i+=2) {
if ( defined $k[$i]) {
Win32::GuiTest::DbgShow("SendRawKey(@k[$i,$i+1])\n");
#~ Win32::GuiTest::SendRawKey( @k[$i,$i+1]);
my( $key, $updown ) = @k[ $i, $i+1 ] ;
my $wmupdown = WM_KEYDOWN();
$wmupdown = WM_KEYUP() if $updown == 2;
Win32::GuiTest::PostMessage( $hwnd, $wmupdown, $key , 0
+ );
select(undef,undef,undef,$delay); ## deprecated
$i+=2; ### SUPER BROKEN otherwise DOUBLING bug
} else {
$k[$i+1]-> ();
}
}
}
|