Question

如何用按键精灵设置这样的键鼠映射

想要的效果是：按下键盘上一个键，鼠标左键在屏幕上指定的xxx,xxx位置点击下去，松开键的时候，鼠标左键松开。

Answer 1

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Function 获取键盘按键状态(键盘码)
    Dim 按键状态
    按键状态 = GetKeyState(键盘码)
    If 按键状态 < 0 Then
        获取键盘按键状态 = 1
    Else 
        获取键盘按键状态 = 0
    End If
End Function
Const 按键码 = 49'1是49,2是50,3是51,a是65,b是66
已经按下 = 0
Do
    If 获取键盘按键状态(按键码) = 1 Then 
        If 已经按下 = 0 Then 
            已经按下 = 1
            MoveTo x, y'设置移动坐标
            Delay 5
            LeftDownS 1
        End If
    Else 
        If 已经按下 = 1 Then 
            已经按下 = 0
            Delay 5
            LeftUpS 1
        End If
    End If
    Delay 150
Loop
Sub OnScriptExit()
    LeftUpS 1
    MessageBox "脚本停止"
End Sub

设置 按键码 和X,Y坐标

追问

移动到了！可是没有点击动作好像！想要有点击动作该怎么弄呢？

追答

第18行
把 Delay 5
改为 5 或者 100

Answer 2

按键精灵，找映射，然后新建键位，鼠标左键点击以后建立新键位，然后按你想设置的按键，这样以此类推创立键位。方向键有特殊键位，在设置键位里面找。

追问

找映射？在界面哪里 莫得看见 T T

Answer 3

新建键位，鼠标左键点击以后建立新键位，然后按你想设置的按键，这样以此类推创立键位。方向键有特殊键位，在设置键位里面找。

追问

要怎么新建呢？

Answer 4

按键精灵，找映射，然后新建键位，鼠标左键点击以后建立新键位，然后按你想设置的按键，这样以此类推创立键位。方向键有特殊键位，在设置键位里面找。很复杂的也不会。先试试吧

Answer 5

这是什么啊哈哈哈