按键精灵求助：一个简单的问题

Question

求源代码，希望模拟的动作是：当我持续按下一个按键时，系统自动匹配到另外一个按键，同样也是持续按着，当我抬起这个按键时，匹配的按键也同样抬起
（说通俗点，有的游戏控制方向是右边键盘的上下左右按键，我想把它模拟到ASWD上，因为方向键是持续按下游戏中的人物才会走动，单击无法达成，所以想了解怎样才能模拟这种操作）
非常感谢

Answer 1

楼上是后台的，不知道你看不看得懂

Answer 2

这里就不给你解释代码的意思了,! 不懂的话百度Hi我。
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Do
x = WaitKey

If x = 87 Then
a = GetAsyncKeyState(87)
Call w()
ElseIf x = 83 Then
a = GetAsyncKeyState(83)
Call s()
ElseIf x = 65 Then
a = GetAsyncKeyState(65)
Call a()
ElseIf x = 68 Then
a = GetAsyncKeyState(68)
Call d()
End If
Loop
Sub w()
While a <> 0
a = GetAsyncKeyState(87)
KeyPress "V", 1 //V你需要按的那个键位。
Wend
End Sub
Sub s()
While a <> 0
a = GetAsyncKeyState(83)
KeyPress "V", 1 //V你需要按的那个键位。
Wend
End Sub
Sub a()
While a <> 0
a = GetAsyncKeyState(65)
KeyPress "V", 1 //V你需要按的那个键位。
Wend
End Sub
Sub d()
While a <> 0
a = GetAsyncKeyState(68)
KeyPress "V", 1 //V你需要按的那个键位。
Wend
End Sub