Rilevazione tasti premuti

[Kjow]

Ciao a tutti,

mi servirebbe un programma che mi dica quale tasto è premuto all'istante con magari il relativo codice...

es: premo a sulla tastiera e mi dice "a", premo shift e mi dice che sto premendo "shift", premo il tab e me lo dice...

Non ho voglia/temo di farmelo... quindi se sapeste già dell'esistenza di una cosa simile ve ne sarei grato

Ciao e grazie

CLS
DEF SEG = 0

LOCATE 4
PRINT " ÉÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT " º 128³Insert º"
PRINT " º 64³Caps Lock º"
PRINT " º 32³Num Lock º"
PRINT " º 16³Scroll Lock º"
PRINT " º 8³Alt º"
PRINT " º 4³Ctrl º"
PRINT " º 2³Left Shift º"
PRINT " º 1³Right Shift º"
PRINT " ÇÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄĽ"
PRINT " º ³ TOTAL"
PRINT " ÈÍÍÍÍ;"
PRINT "Press enter to quit."

DO
check$ = INKEY$
a = PEEK(1047)
LOCATE 1, 6: PRINT check$
IF check$ <> "" THEN xyz = ASC(check$)
IF check$ <> "" THEN PRINT "codice asci", xyz
aaa:
LOCATE 14, 6: PRINT USING "###"; a

IF a >= 128 THEN
a.flag = 1
a = a - 128
ELSE
a.flag = 0
END IF
IF a >= 64 THEN
b.flag = 1
a = a - 64
ELSE
b.flag = 0
END IF
IF a >= 32 THEN
c.flag = 1
a = a - 32
ELSE
c.flag = 0
END IF
IF a >= 16 THEN
d.flag = 1
a = a - 16
ELSE
d.flag = 0
END IF
IF a >= 8 THEN
e.flag = 1
a = a - 8
ELSE
e.flag = 0
END IF
IF a >= 4 THEN
f.flag = 1
a = a - 4
ELSE
f.flag = 0
END IF
IF a >= 2 THEN
g.flag = 1
a = a - 2
ELSE
g.flag = 0
END IF
IF a >= 1 THEN
h.flag = 1
a = a - 1
ELSE
h.flag = 0
END IF

SELECT CASE a.flag
CASE 1
LOCATE 5, 5: PRINT "û"
CASE 0
LOCATE 5, 5: PRINT " "
END SELECT
SELECT CASE b.flag
CASE 1
LOCATE 6, 5: PRINT "û"
CASE 0
LOCATE 6, 5: PRINT " "
END SELECT
SELECT CASE c.flag
CASE 1
LOCATE 7, 5: PRINT "û"
CASE 0
LOCATE 7, 5: PRINT " "
END SELECT
SELECT CASE d.flag
CASE 1
LOCATE 8, 5: PRINT "û"
CASE 0
LOCATE 8, 5: PRINT " "
END SELECT
SELECT CASE e.flag
CASE 1
LOCATE 9, 5: PRINT "û"
CASE 0
LOCATE 9, 5: PRINT " "
END SELECT
SELECT CASE f.flag
CASE 1
LOCATE 10, 5: PRINT "û"
CASE 0
LOCATE 10, 5: PRINT " "
END SELECT
SELECT CASE g.flag
CASE 1
LOCATE 11, 5: PRINT "û"
CASE 0
LOCATE 11, 5: PRINT " "
END SELECT
SELECT CASE h.flag
CASE 1
LOCATE 12, 5: PRINT "û"
CASE 0
LOCATE 12, 5: PRINT " "
END SELECT

LOOP UNTIL check$ = CHR$(13)

ecco l'eseguibile rinominalo in exe che è gia' pronto