¿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.