Red de conocimiento informático - Material del sitio web - ¿Cómo utilizar el asistente de claves para configurar claves KOF?

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