Cómo implementar la asignación de teclado a teclado

¡Puedes utilizar el Asistente para pulsaciones de teclas para hacer esto!

Por ejemplo: mover el mouse hacia la izquierda equivale a presionar la tecla A del teclado; mover el mouse hacia la derecha equivale a presionar la tecla D del teclado; mover el mouse hacia arriba es equivalente; a presionar la tecla W del teclado; mover el mouse hacia abajo equivale a presionar la tecla S en el teclado. (El código específico se encuentra a continuación)

Método: utilice un script para realizar un bucle y recordar la posición del mouse, determinar la dirección y distancia del movimiento del mouse en función de la última posición del mouse y enviar los comandos de teclado correspondientes en consecuencia.

1, Dim LastX, LastY, x, y, ex, ey

2, VBSCall GetCursorPos(LastX, LastY)

3, Mientras sea verdadero

p>

4, Retraso 100

5, VBSCall GetCursorPos(x, y)

6.ex = x - LastX

7. ey = y - LastY

8. Si ext; 0

9. Presione 68, 1

10.ElseIf lt; p>

11, escriba 65, 1

12, EndIf

13, Si ey gt; 0

14, escriba 83, 1

15, ElseIf ey lt; 0

16, Escriba 87, 1

17, EndIf

18, LastX = x: LastY = y

19, EndWhile

Lo anterior es el código específico del ejemplo que proporcioné. Puede agregarlo o modificarlo según sus necesidades reales.