标题: 剑三按键精灵自动一键源码

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

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 循环

/fcast [nobuff:剑神无我&mana>0.6] 婆罗门
/fcast [tnobuff:急曲|tbuff:急曲<3|tbufftime:急曲<3] 剑破虚空
/cast [tbuff:急曲] 繁音急节
/cast 玳弦急曲
/cast 剑气长江

/cast 蛊虫献祭
/cast 灵蛇引
/cast [tnobuff:夺命蛊] 灵蛊
/cast [tnobuff:蛇影] 蛇影
/cast 幻击
/cast 攻击
/cast 百足
/cast 蟾啸
/cast 蝎心
/cast 蛊虫狂暴

/cast [tnobuff:兰摧玉折] 兰摧玉折
/cast [tnobuff:商阳指] 商阳指
/cast [tnobuff:钟林毓秀&tbufftime:商阳指>16.5] 钟林毓秀
/cast 玉石俱焚
/cast 快雪时晴

/cast 水月无间
/cast 乱洒青荷
/cast [buff:乱洒青荷] 阳明指
/cast [tnobuff:商阳指] 商阳指
/cast [tbuff:兰摧玉折&tbuff:商阳指&tbuff:钟林毓秀] 玉石俱焚