请编写按键精灵代码 类似与cf中的滚轮武器切换

'记得我的分 —— _ +
'给你 东西自己改一下
Dim i , q , 向上 , 向下 '定义
向上 = 32781 ' 向上
向下 = 32782 ' 向下
Do
Rem w
q = WaitClick()
If q = 向上 Then Call 上
If q = 向下 Then Call 下
If q <> 向上 Then
If q <> 向下 Then Goto w
End If
If i = 1 Then KeyPress "1", 1
If i = 2 Then KeyPress "2", 1
If i = 3 Then KeyPress "3", 1
If i = 4 Then KeyPress "4", 1
Loop
Sub 上
i = i + 1
If i = 5 Then i = 1
End Sub
Sub 下
i = i - 1
If i = 0 Then i = 4
End Sub

你说的什么的 滚一次就是副武器 再一次就是刀 最后是雷 爆破就是第4次是雷包