按键精灵,脚本,键盘代替鼠标,代码.

Posted 2023-03-03

键盘代替鼠标,代码怎么写啊?
比如说:
按W,就到我设置的坐标,然后左键按下..
等我松开W. 就松开左键..
小弟刚申请的号没有金币,希望大神们能帮个忙
刚去赚了5个币.虽然少是点小心意,希望能接受...
这款游戏是手机游戏,用BS在玩.上下左右和DNF一样.
格斗类游戏,用鼠标去控制方向太慢了,想弄的和DNF一样用上下左右控制方向.
下面是,图片内圆圈坐标:
上 93, 427

下 90, 534

左 38, 483

右 145, 482

左上53, 446

左下57, 517

右上126, 446

右下124, 516
希望大神,能帮帮哦,在这里先谢谢了....

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim key, n
key = 65\'A的按键码=65
Do
n = GetAsyncKeyState(key)
If n = 1 Then
TracePrint "按了" & Chr(key) & "键"
ElseIf n < 0 Then
TracePrint "按住了" & Chr(key) & "键"
Else
TracePrint "无按键，等待！"
End If
Delay 500
Loop 参考技术A Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
 
While 1
    i = GetAsyncKeyState(87)
    If i < 0 Then 
        LeftDown 1
    Else
        LeftUp 1
    End If
    Delay 300
Wend

用到了Windows API：GetAsyncKeyState

希望我的回答对你有帮助

^o^

参考技术B 这么屌丝，时空猎人放电脑上玩，逗B