请复制以下文件：

————————————分割线不用复制啦+——————————

VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理体力上限
UserVar delaymax=10 调节网速
UserVar sw2=1 划船开关1开启0关闭(F2)
UserVar sw3=1 自定义开关1开启0关闭(F3)
UserVar sw4=1 自定义开关1开启0关闭(F4)
VBS chpAdd=&H00a90e9e
VBS renAdd=&H00a90e90
VBS hpAdd=&H00a90e84
VBS dayAdd=&H00a92bec
VBSCall Call GetCursorPos(pd1,pd2)
Plugin hwn=Window.Foreground()
//Plugin hwn=Window.GetKeyFocusWnd()
Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
MyArray = Split(win, "|", -1, 1)
pd1 = MyArray(0)
pd2 = MyArray(1)
Gosub 读参数
VBS day4=day
While 1
    Gosub 吃料理
    Gosub 吃料理1
    Gosub 划船
    Gosub 自定义1
    Gosub 自定义2
EndWhile
Sub 读参数
    Plugin ren=Memory.Read16Bit(hwn,renAdd)
    Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
    Plugin chp=Memory.Read16Bit(hwn,chpAdd)
    Plugin day=Memory.Read32Bit(hwn,dayAdd)
Return 读参数
Sub 清屏
    VBS i=0
    Plugin Window.SendKeyPress(hwn,120)
Return 清屏
Sub 划船
    If sw2=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,113)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出
            EndIf
        EndWhile
        Rem 超时退出
        Gosub 清屏
    EndIf
Return 划船
Sub 自定义1
    If sw3=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,114)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出2
            EndIf
        EndWhile
        Rem 超时退出2
        Gosub 清屏
    EndIf
Return 自定义1
Sub 自定义2
    If sw4=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,115)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出3
            EndIf
        EndWhile
        Rem 超时退出3
        Gosub 清屏
    EndIf
Return 自定义2
Sub 吃料理
    Gosub 读参数
    While xmin-hpmax<0
        Plugin Window.SendKeyPress(hwn,118)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,119)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 2000
        Gosub 读参数
    EndWhile
Return 吃料理

分割——————————————————————————————结束不用复制这里——————

这个他可以防止网络卡。不浪费一点料理。就是吃料理时候有点慢，自己修改吧。但是好像吃料理不能吃2次。。。反正这个不会扔的。料理自己看着就行，很快船就满的。。

Sub 吃料理
    Gosub 读参数
    While xmin-hpmax<0
        Plugin Window.SendKeyPress(hwn,118)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,119)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 2000
        Gosub 读参数
    EndWhile
Return 吃料理

这里的Plugin Window.SendKeyPress(hwn,119)
        Delay 2000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 2000
基本可以删掉，，，

或者把吃料理的那直接改成

Sub 吃料理
    Gosub 读参数
    While xmin-hpmax<0
        Plugin Window.SendKeyPress(hwn,118)
        Plugin Window.SendKeyPress(hwn,27)
       Gosub 读参数
    EndWhile
Return 吃料理

就是划船后台的那吃料理的啦-.-

最后引用   老总的一句话：：“我是一个于世无争的冒险家.”