http://bugs.winehq.org/show_bug.cgi?id=5623
------- Additional Comments From tkho@ucla.edu 2006-07-07 16:24 ------- Yes, the Win32::GuiTest Perl module has a function IsKeyPressed() that is a wrapper around GetAsyncKeyState. It comes with two example scripts (keypress.pl and wptr.pl). The first script just asks for key presses. The second script calls GetAsyncKeyState to query for a hotkey action. Also, searching newsgroups shows a number of hits.
I think a minimal expectation is for GetAsyncKeyState to work when the wineconsole that the Perl process is running in is focused, but even that doesn't happen because wineconsole and Perl are different processs.