按键精灵 剑网三帮派钓鱼脚本

智障脚本

代码框架是网上随便找的一个

然后自己瞎改了改，非常完美

除了关闭的时候，得自己用任务管理器来关以外，好像没啥问题了……

如果设定了自动全部拾取的话，那就直接把拾取这个位置瞎填一个 比较合理的位置就好了，让鼠标点空气也是兹瓷的……

只能前台挂机。

成品下载地址：http://pan.baidu.com/s/1bpcBzAn

Event Form1.Button1.Click
    
    //设置重新垂钓标记
    While (true)
        Rem 重新垂钓 
        //鼠标移动到"垂钓"
        Cx = Form1.InputBox1.Text
        Cy = Form1.InputBox2.Text
        MoveTo Cx,Cy
        //鼠标左键单击
        LeftClick 1
        //计时
        i = 0
        //设置引导计时标记
        Rem 引导计时
        //通过坐标和颜色进行判断鱼是否上钩(坐标抓点为提示的**逗号)
        IfColor Form1.InputBox5.Text,Form1.InputBox6.Text,"1AD3CC",2 Then
        //鼠标移动到"收杆"
        MoveTo Form1.InputBox3.Text,Form1.InputBox4.Text
        //等待0.2秒
        Delay "200"
        //单击鼠标左键
        LeftClick 1
        //等待4.2秒
        Delay "4200"
        //鼠标移动到"全部拾取"
        MoveTo Form1.InputBox7.Text, Form1.InputBox8.Text
        //等候时间0.5秒
        Delay "500"
        //单击鼠标左键
        LeftClick 1
        //如果20秒内未有鱼上钩,则自动重新开始钓鱼
        ElseIf i>19
            i = 0 
            //跳转到重新垂钓标记
            Goto 重新垂钓
            //如果坐标和颜色不对,则证明鱼未上钩,所以计时+1
        Else
            Delay "1000"
            i=i+1
            //跳转到引导计时标记
            Goto 引导计时
        End If
    Wend
End Event

转载于:https://www.cnblogs.com/qscqesze/p/5612575.html