按键映射脚本

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坐标