怎样让按键精灵按住一个键等于按住4个键

Private Declare Function GetKeyState Lib"user32"(ByVal nVirtKey As Long) As Integer
Do
Select Case GetKeyState(32)
Case - 127
KeyDown "Space", 1
KeyDown "1", 1
KeyDown "2", 1
KeyDown "3", 1
Case - 128
KeyDown "Space", 1
KeyDown "1", 1
KeyDown "2", 1
KeyDown "3", 1
Case 0
KeyUp "Space", 1
KeyUp "1", 1
KeyUp "2", 1
KeyUp "3", 1
Case 1
KeyUp "Space", 1
KeyUp "1", 1
KeyUp "2", 1
KeyUp "3", 1
End Select
Loop
复制上面代码。