Using perl Syntax Highlighting
- use Win32::API;
- my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
- while(1) {
- if (dame(0x10)) {
- print "shift\n";
- $shift = 1;
- } else {
- $shift = 0;
- }
- if(dame(0x31)) {
- if($shift eq "1") {
- print "!\n";
- } else {
- print "1\n";
- }
- }
- }#
- sub dame {
- return($come->Call(@_) & 1);
- }
- sub savefile {
- print $_[1]."\n";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
La idea es reconocer cuando alguien quiere hacer "!" pero el problema es que tengo que reconocer shift y el código siempre me da problemas porque no reconoce cuando hago "shift+1" para hacer "!" devolviéndome siempre el "1".
¿ Alguien me podría ayudar ?