http://www.perlmonks.org?node_id=81527

Sniper has asked for the wisdom of the Perl Monks concerning the following question:

I've a problem with Win32::Setupsup::Sendkeys :

When i want to send 'Ab' to a windows, this function send SHIFT+A and b but if CAPSLOCK is enabled, the windows receive 'aB' not cool !

I sent a mail to the module's author for his information.

My solution is test the CAPSLOCK state with GetKeyState function in user32.dll (thanks to Aldo for Win32::API), i'm writing a module (Win32::Keyboard) to do this properly...

David "Sniper" Rigaudiere