M
mw
Hi !
I test GetAsyncKeyState function on my XP.
Here is my code :
use Win32::API;
my $rsGetAsyncKeyState = new Win32::API("user32", "GetAsyncKeyState", "N",
"I");
sub GetAsyncKeyState {
my ($keyCode) = @_;
my $ret = $rsGetAsyncKeyState->Call($keyCode);
print "ret = $ret\n";
return( $ret & 1 );
}
while () {
sleep 1 ;
$keystate=GetAsyncKeyState(97) ;
# 97 is "a" ascii code
#print "a state=$keystate\n" ; ;
}
When I run this code and press "a" key I see only :
..
..
ret = 0
ret = 0
ret = 0
..
..
..
It means that "a" key is not pressed.
What's wrong ?
Pls help
I test GetAsyncKeyState function on my XP.
Here is my code :
use Win32::API;
my $rsGetAsyncKeyState = new Win32::API("user32", "GetAsyncKeyState", "N",
"I");
sub GetAsyncKeyState {
my ($keyCode) = @_;
my $ret = $rsGetAsyncKeyState->Call($keyCode);
print "ret = $ret\n";
return( $ret & 1 );
}
while () {
sleep 1 ;
$keystate=GetAsyncKeyState(97) ;
# 97 is "a" ascii code
#print "a state=$keystate\n" ; ;
}
When I run this code and press "a" key I see only :
..
..
ret = 0
ret = 0
ret = 0
..
..
..
It means that "a" key is not pressed.
What's wrong ?
Pls help