按鍵映射腳本

A. 如何用按鍵精靈設置這樣的鍵鼠映射

"user32"(ByValnVirtKeyAsLong)AsInteger
Function獲取鍵盤按鍵狀態(鍵盤碼)
Dim按鍵狀態
按鍵狀態=GetKeyState(鍵盤碼)
If按鍵狀態<0Then
獲取鍵盤按鍵狀態=1
Else
獲取鍵盤按鍵狀態=0
EndIf
EndFunction
Const按鍵碼=49'1是49,2是50,3是51,a是65,b是66
已經按下=0
Do
If獲取鍵盤按鍵狀態(按鍵碼)=1Then
If已經按下=0Then
已經按下=1
MoveTox,y'設置移動坐標
Delay5
LeftDownS1
EndIf
Else
If已經按下=1Then
已經按下=0
Delay5
LeftUpS1
EndIf
EndIf
Delay150
Loop
SubOnScriptExit()
LeftUpS1
MessageBox"腳本停止"
EndSub

設置按鍵碼 和X,Y坐標