Aug 22
Muy parecido al anterior pero verifica a través de un ciclo repetitivo el estado de cualquier tecla presionada
DECLARE SHORT GetKeyboardState IN WIN32API STRING @; pbKeyState
cKeyboardArray = REPLICATE(CHR(0),256)
IF GetKeyboardState(@cKeyboardArray) > 0
LOCAL nI
FOR nI = 1 TO 256
IF BITAND(ASC(SUBST(cKeyboardArray,nI,1)),128) > 0
? _Virtual Key # _ + TRANSFORM(nI - 1) + _ is currently down_
ENDIF
ENDFOR
ELSE
=messagebox("Error")
ENDIF
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
