偶尔看见这里的几个脚本，都不完整，发个上来试试．让喜好脚本的人来评议一下，那些对脚本感冒的人，不要骂啊，本人因购卡问题可能要永远离开航海时代了．

首先，要使用这个脚本需准备：按键精灵６．０或以上版本（网上到处都是没的话下个吧）：会简单使用按键精灵．
主要功能：后台采集，自动切换窗口，丢垃圾，展销，然后切回后台，可最小化，有部分纠错能力，带有检测断线并自动重连功能（我这有时会掉线就做了个）可长时间无人职守，这个功能有待检测．带４００批撒可８个小时不用管（本人连续挂过４小时）

游戏设置：分辨率800*600窗口模式：F１快捷栏F１１使用技能F７装载F９露天展销：快捷栏的F１采集F２料理（一般都吃批撒）

从脚本开始处复制到脚本结束处然后粘贴到按键精灵的新建脚本里，修改一下自定义变量就可以用了，默认的自定义变量是船上什么都不带姜７００玛瑙４０００．＂／／＂后为注释，开始几行的注释还请注意看下

脚本有点长还望体谅

－－－－－－－脚本开始－－－－－－－－

//以UserVar开始的是自定义变量根据自己需要修改账号和密码一定要带引号"" 
//不启用断线重连的话不用设置账号密码
UserVar MM="你的密码" 密码
UserVar HH="你的账号" 账号
UserVar liaoli=50 料理恢复度
UserVar Cl=400 料理存量
//货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下
//货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看
UserVar DH1=2 要丢的货物1的位置
UserVar DH2=4 要丢的货物2的位置
//展销货物是丢弃不用的货物以后的位置
UserVar ZH1=1 要展销的货物1的位置
UserVar ZJ1=700 货物1的价格
UserVar ZH2=2 要展销的货物2的位置
UserVar ZJ2=4000 货物2的价格2
//每五分钟能采集40次看船舱和采集等级定
UserVar Jtime=30 丢货间隔时间单位(分钟)
//数字"1"为启用"0"为不启用
//启用自动切换窗口为先决条件,启用断线重连的话要设置账号密码
UserVar Pd0=1 是否启用自动切换窗口
UserVar Pd1=1 是否启用检测断线并重连
UserVar Pd2=1 是否启用丢弃货物
UserVar Pd3=1 是否启用露天展销
UserVar Pd4=1 是否启用重复上次喊话
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
//设置结束
Delay 1000
Gosub 采玛瑙完全版
Rem 结束
EndScript 

Sub 采玛瑙完全版
    lun=(Jtime*600)\((liaoli\5)*75)
    y=Cl\lun+1
    For y
        Gosub 采集
        If Pd0=1
            Gosub 激活窗口
        EndIf 
        If Pd0=1 and Pd1=1
            Gosub 检测断线重连
        EndIf 
        If Pd0=1 and Pd2=1
            huo1=DH1:huo2=DH2
            Gosub 丢弃货物
        EndIf 
        If Pd0=1 and Pd3=1
            huo1=ZH1:huo2=ZH2:jia1=ZJ1:jia2=ZJ2
            Gosub 露天展销
        EndIf 
        If Pd0=1 and Pd4=1
            KeyPress 32 1
            Delay 200
            KeyPress 38 1
            Delay 100
            KeyPress 13 1
        EndIf 
        If Pd0=1
            Gosub 返回窗口
        EndIf 
    EndFor 
    Rem 结束
Return 采玛瑙完全版
//采集或搜索F1快捷栏 F1采集或搜索 F2匹萨 F11使用技能（用于纠错）
//参数lun 采集一轮吃一次料理
Sub 采集
    For lun
        ci=liaoli\5-1
        For ci
            Plugin Window.SendKeyPress(hwn,112)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,112)
            Delay 1500
            Plugin Window.SendKeyPress(hwn,122)
            Delay 5000
        EndFor 
        Plugin Window.SendKeyPress(hwn,112)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,112)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,122)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,112)
        Delay 1500
        Plugin Window.SendKeyPress(hwn,113)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,122)
        Delay 2000
        ax=400:ay=300
        Gosub 移动鼠标
        RightClick 1
        Delay 600
    EndFor 
Return 采集
//丢弃货物带参数huo1.huo2.huo3.huo4.…….F7装载支持到10个
Sub 丢弃货物
    Delay 500
    Plugin Window.SendKeyPress(hwn,118)
    Delay 1000
    VBS ax=429:ay=366
    Gosub 移动鼠标
    LeftClick 1
    Delay 1000
    For 10
        If huo1>0
            ax=92+((huo1+4) MOD 5)*56
            ay=114+((huo1-1)\5)*56
            Gosub 移动鼠标
            LeftClick 1
            Delay 700
            MoveR 119 124
            LeftClick 1
            Delay 700
            MoveR 0 73
            LeftClick 1
            Delay 700
        EndIf 
        huo1=huo2-1:huo2=huo3-1:huo3=huo4-1
        huo4=huo5-1:huo5=huo6-1:huo6=huo7-1
        huo7=huo8-1:huo8=huo9-1;huo9=huo10-1
        huo10=0
    EndFor 
    VBS ax=630:ay=391
    Gosub 移动鼠标
    LeftClick 1
    Delay 600
    ax=400:ay=300
    Gosub 移动鼠标
    RightClick 1
    Delay 600
Return 丢弃货物
//露天展销(F9)参数为huo1.jia1.huo2.jia2,支持到两件商品
//jia 价格就是数字支持到5位数
Sub 露天展销
    Delay 1000
    Plugin Window.SendKeyPress(hwn,120)
    Delay 2500
    For 2
        If huo1>0
            ax=112+((huo1+4) MOD 5)*56
            ay=99+((huo1-1)\5)*56
            Gosub 移动鼠标
            LeftClick 1
            Delay 600
            VBS ax=350:ay=221
            Gosub 移动鼠标
            LeftClick 1
            Delay 600
            ax=466:ay=393
            Gosub 移动鼠标
            LeftClick 1
            Delay 600
            j1=mid(jia1,1,1):j2=mid(jia1,2,1)
            j3=mid(jia1,3,1):j4=mid(jia1,4,1)
            j5=mid(jia1,5,1)
            For 5
                If j1=""
                    j1=-1
                EndIf 
                If j1>=0
                    ax=424+(((j1+19) MOD 10+3) MOD 3)*24
                    ay=223+((5-(j1+8)) \3)*24
                    Gosub 移动鼠标
                    LeftClick 1
                    Delay 500
                EndIf 
                j1=j2:j2=j3:j3=j4:j4=j5:j5=-1
            EndFor 
            VBS ax=466:ay=393
            Gosub 移动鼠标
            LeftClick 1
            Delay 600
        EndIf 
        VBS huo1=huo2-1:jia1=jia2
        VBS huo2="":jia2=""
    EndFor 
    VBS ax=489:ay=405
    Gosub 移动鼠标
    LeftClick 1
    Delay 600
    ax=400:ay=300
    Gosub 移动鼠标
    RightClick 1
    Delay 600
Return 露天展销
//移动鼠标到指定点以窗口为准参数ax,ay
Sub 移动鼠标
    Plugin winRect=Window.GetClientRect(hwn)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + ax
    by = CInt(winPoint(1)) + ay
    MoveTo bx by
    Delay 600
Return 移动鼠标
//激活窗口和返回窗口是对应应用的
Sub 激活窗口
    Plugin yuan=Window.Foreground()
    Tishi="请稍等一会,不要动鼠标键盘"
    Gosub 提示Tishi
    Plugin Window.Active(hwn)
    Delay 700
    Plugin Window.Restore(hwn)
    Delay 700
Return 激活窗口
Sub 返回窗口
    Tishi="可以继续了"
    Gosub 提示Tishi
    Plugin Window.Active(yuan)
Return 返回窗口
//提示窗口参数 Tishi
Sub 提示Tishi
    VBSCall TiShiObj.Popup(Tishi,3,"3秒后窗口自动关闭",0)
Return 提示Tshi
//以下部分是断线重连不启用“检测断线重连”的话下面部分可以不要
//查找坐标绝对位置参数ax,ay返回值bx,by
Sub 查找坐标
    Plugin winRect=Window.GetClientRect(hwn)
    winPoint = Split(winRect, "|", -1, 1)
    bx = CInt(winPoint(0)) + ax
    by = CInt(winPoint(1)) + ay
Return 查找坐标
//检测是否断线并重新连接,准确度测试过十次通过
Sub 检测断线重连
    VBS ax=411:ay=315
    Gosub 查找坐标
    IfColor bx by 3a2815 2
        Gosub 移动鼠标
        VBS ax=412:ay=333
        Gosub 查找坐标
        IfColor bx by bead92 2
            Gosub 移动鼠标
            LeftClick 1
            Delay 1000
            VBS ax=381:ay=325
            Gosub 移动鼠标
            LeftClick 1
            Delay 2000
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            Gosub 开始处登陆
        Else 
        EndIf 
    Else 
    EndIf 
    Rem 检测结束
Return 检测断线重连
//屏幕显示"开始游戏"处,曾登陆过有账号将用默认的，方便双开密码相同的用
Sub 开始处登陆
    Delay 1000
    ax=400:ay=439
    Gosub 移动鼠标
    LeftClick 1
    Delay 1000
    For 30
        ax=439:ay=485
        Gosub 查找坐标
        IfColor bx by bead92 2
            Gosub 移动鼠标
            LeftClick 1
            Delay 1000
            Goto 输入账号
        Else 
        EndIf 
    EndFor 
    Tishi="网络超时无法连接，请手动连接"
    Gosub 提示Tishi
    Goto 结束
    Rem 输入账号
    KeyPress 9 1
    Delay 500
    zhanghao=MM
    Gosub 绝对输入
    Delay 500
    ax=454:ay=338
    Gosub 移动鼠标
    LeftClick 1
    Delay 200
    KeyPress 9 1
    Delay 200
    zhanghao=HH
    Gosub 绝对输入
    ax=454:ay=338
    Gosub 移动鼠标
    LeftClick 1
    Delay 2000
    ax=588:ay=398
    Gosub 移动鼠标
    LeftClick 1
    Delay 3000
    ax=468:ay=461
    Gosub 移动鼠标
    LeftClick 1
    Delay 3500
    ax=318:ay=404
    Gosub 移动鼠标
    LeftClick 1
    Delay 3500
Return 开始处登陆
//绝对输入用于输入密码和账号，SayString 方法，无效时用
//参数zhanghao只支持英文小写与数字最多11位，可增加
Sub 绝对输入
    z1=mid(zhanghao,1,1):z2=mid(zhanghao,2,1)
    z3=mid(zhanghao,3,1):z4=mid(zhanghao,4,1)
    z5=mid(zhanghao,5,1):z6=mid(zhanghao,6,1)
    z7=mid(zhanghao,7,1):z8=mid(zhanghao,8,1)
    z9=mid(zhanghao,9,1):z10=mid(zhanghao,10,1)
    z11=mid(zhanghao,11,1)
    For 11
        If not z1=""
            z=Asc(UCase(z1))
            KeyPress z 1
            Delay 100
        EndIf 
        z1=z2:z2=z3:z3=z4:z4=z5:z5=z6:z6=z7
        z7=z8:z8=z9:z9=z10:z10=z11:z11=""
    EndFor 
Return 绝对输入

－－－－－－－脚本结束－－－－－－－
网通一区　风字　在此也与朋友们告别

史上最难游戏第2辑