VBS dim a,b,c,d,i,j,k
VBS dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
UserVar a=F2 设置第一技能键（F2）。
UserVar b=F3 固定设置第一使用怒气技能键（F3）。
UserVar c=F4 设置第二技能键（F4）。
UserVar d=F5 设置打坐回血蓝键（F5）。
Delay 200
i=0
j=0
While true
    x=0
    y=0
    Delay 200
    VBSCall FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
    If x>=10 and y>=10
        MoveTo x+8,y+25
        LeftClick 1
        Delay 200
        Gosub 技能
        Gosub 杀怪
    ElseIf x<10 and y<10
        Delay 200
        k=1
        KeyPress 116,1
        Delay 3000
    EndIf
EndWhile
Sub 技能
    Delay 200
    If k=1
        MoveTo 767,35
        Delay 350
        RightClick 1
        Delay 350
        k=0
    EndIf
    VBSCall FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
    If x3=172 and y3=42
        Delay 200
        KeyPress 114,1
        x3=0
        y3=0
    EndIf
    Delay 200
    VBSCall FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
    If x4=187 and y4=37
        Delay 200
        KeyPress 115,1
        x4=0
        y4=0
    EndIf
    Delay 200
Return 技能
Sub 杀怪
    Delay 200
    While true
        x1=0
        y1=0
        Delay 200
        VBSCall FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
        If x1>=221 and y1>=29
            Delay 200
            Goto 怪已死
        EndIf
        Delay 200
        VBSCall FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
        If x2<=221 and y2<=29
            i=(x+5)-510
            j=(y+25)-400
            MoveTo ABS(i-510),ABS(j-400)
            Delay 200
            LeftClick 1
            Delay 200
            Goto 怪已死
        EndIf
    EndWhile
    Rem 怪已死
    Delay 200
Return 杀怪

有人说看不懂....只要你下载了就明白了.软件上有教程的.
海贼洞.先王坟里的那些角落定点刷怪挂机.一天24小时挂着刷怪？
想知道他们怎么做到的吗？其实不用羡慕他们.你也可以做到！
.........按键精灵的好处.不读取 游戏内存..不会被封号....
这就是海贼洞那些.都挂到89很久了没被封号的原因.....
相信很多人都举报过在海贼洞，先王坟挂机的吧.
但为什么不被封号呢...那是因为SH查不到.........按键精灵就是帮你自动智能按。

按键精灵都不会用的，我无语。