nhqd 发表于 2018-12-24

剑三按键精灵自动一键源码

BeginThread A
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Sub A()
        SetSimMode 1
        Hwndjx3 = Plugin.Window.Find("KGWin32App", 0)'获取窗口句柄
        Rem 循环
        Hwnd = Plugin.Window.MousePoint()'获取窗口句柄
        If Hwndjx3 <> Hwnd Then
                Goto 循环
        End If
        If GetAsyncKeyState(160) < 0 Then
                Goto 循环
        End If
        If GetAsyncKeyState(164) < 0 Then
                Goto 循环
        End If
        KeyPress "F10", 1
        Delay 100
        Goto 循环
End Sub


nhqd 发表于 2020-04-10

/cast 兰摧玉折
/cast 商阳指
/cast 钟林毓秀
/cast 玉石俱焚
/cast 快雪时晴

/cast 水月无间
/cast 乱洒青荷
/cast 阳明指
/cast 商阳指
/cast 玉石俱焚

nhqd 发表于 2020-04-08

/cast 蛊虫献祭
/cast 灵蛇引
/cast 灵蛊
/cast 蛇影
/cast 幻击
/cast 攻击
/cast 百足
/cast 蟾啸
/cast 蝎心
/cast 蛊虫狂暴

nhqd 发表于 2020-04-07

/fcast 婆罗门
/fcast 剑破虚空
/cast 繁音急节
/cast 玳弦急曲
/cast 剑气长江

nhqd 发表于 2020-01-17

SetSimMode 1
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Hwndjx3 = Plugin.Window.Find("KGWin32App", 0)'获取窗口句柄
Rem 循环
Hwnd = Plugin.Window.MousePoint()'获取窗口句柄
If Hwndjx3 <> Hwnd Then
Goto 循环
End If
If GetAsyncKeyState(160) < 0 Then
Goto 循环
End If
If GetAsyncKeyState(164) < 0 Then
Goto 循环
End If
KeyPress "F8", 1        //F10攻击，F8是拾取
Delay 50
Goto 循环
页: [1]
查看完整版本: 剑三按键精灵自动一键源码