Re^4: How to execute win32 functions when the user session is locked ( hwndSendKeys )

[Anonymous Monk]

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]-> ();
        }
    }
}