¿Cómo convierte el elfo clave una sola pistola en un desintegrador en un juego FPS?
Función de declaración privada getkey state Lib "usuario 32" (ByVal nVirtKey As Long) para entero
Do
Chen Dimu
Chen = 0
Chen = GetKeyState(32)
Seleccione Caso Chen
Case-127
TracePrint "Esta tecla fue presionada."
Tecla "Espacio", 1
Retraso 20
Caso-128
TracePrint "Esta tecla fue presionada."
Tecla "Espacio" ", 1
Retraso 20
Caso 0
TracePrint "Esta clave fue liberada."
Retraso 1
p >Caso 1
TracePrint "Esta clave está liberada."
Retraso 1
Otros casos
Finalizar selección
p>Ring
Copia el código anterior en el Key Wizard.