Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim triggerKeys
triggerKeys = Array("Q", "E","1","2")
Dim aimKeys
aimKeys = Array("9", "8","7","6")
Dim triggerState
triggerState = Array(0,0,0,0)
Do
For i = 0 To Ubound(triggerState)
triggerState(i)=GetAsyncKeyState(Asc(triggerKeys(i)))
If triggerState(i)>32767 Then
KeyDownS aimKeys(i), 1
End If
Next
Delay 10
for i=0 to Ubound(triggerState)
If triggerState(i)>32767 Then
KeyUpS aimKeys(i), 1
End If
Next
Delay 10
Loop