¿Cómo utilizar el asistente de claves para configurar claves KOF?
Función de declaración privada GetKeyState Lib "user32" (ByVal nVirtKey As Long) como entero
Función GetKeyState(código de teclado)
Dim KeyState
KeyState = GetKeyState(código clave) )
Si KeyState lt; 0 entonces
GetKeyState = 1
En caso contrario
GetKeyState = 0
Fin If
Función final
///////// // Lo anterior es la función //////////
Estado = 0
Hacer
Si obtiene el estado de la tecla del teclado (81) y el estado = 0, entonces
Estado = 1
TracePrint " 1"
KeyDown "W", 1
KeyDown "A", 1
De lo contrario, si obtiene el estado de la clave (81) = Falso y el estado = 1, entonces
Estado = 0
TracePrint "0"
KeyUp "W", 1
KeyUp "A", 1
End If
Delay 5
Loop
////////// Mantener Q es lo mismo que mantener W A y soltar es lo mismo.