偶尔看见这里的几个脚本，都不完整，发个上来试试．让喜好脚本的人来评议一下，那些对脚本感冒的人，不要骂啊，本人因购卡问题可能要永远离开航海时代了．
首先，要使用这个脚本需准备：按键精灵６．０或以上版本（网上到处都是没的话下个吧）：会简单使用按键精灵．
主要功能：后台采集，自动切换窗口，丢垃圾，展销，然后切回后台，可最小化，有部分纠错能力，带有检测断线并自动重连功能（我这有时会掉线就做了个）可长时间无人职守，这个功能有待检测．带４００批撒可８个小时不用管（本人连续挂过４小时）
游戏设置：分辨率800*600窗口模式：F１快捷栏F１１使用技能F７装载F９露天展销：快捷栏的F１采集F２料理（一般都吃批撒）
从脚本开始处复制到脚本结束处然后粘贴到按键精灵的新建脚本里，修改一下自定义变量就可以用了，默认的自定义变量是船上什么都不带姜７００玛瑙４０００．＂／／＂后为注释，开始几行的注释还请注意看下
脚本有点长还望体谅
－－－－－－－脚本开始－－－－－－－－
//以UserVar开始的是自定义变量根据自己需要修改账号和密码一定要带引号""
//不启用断线重连的话不用设置账号密码
UserVarMM="你的密码"密码
UserVarHH="你的账号"账号
UserVarliaoli=50料理恢复度
UserVarCl=400料理存量
//货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下
//货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看
UserVarDH1=2要丢的货物1的位置
UserVarDH2=4要丢的货物2的位置
//展销货物是丢弃不用的货物以后的位置
UserVarZH1=1要展销的货物1的位置
UserVarZJ1=700货物1的价格
UserVarZH2=2要展销的货物2的位置
UserVarZJ2=4000货物2的价格2
//每五分钟能采集40次看船舱和采集等级定
UserVarJtime=30丢货间隔时间单位(分钟)
//数字"1"为启用"0"为不启用
//启用自动切换窗口为先决条件,启用断线重连的话要设置账号密码
UserVarPd0=1是否启用自动切换窗口
UserVarPd1=1是否启用检测断线并重连
UserVarPd2=1是否启用丢弃货物
UserVarPd3=1是否启用露天展销
UserVarPd4=1是否启用重复上次喊话
VBSsetTiShiObj=createobject("WScript.Shell")
Pluginhwn=Window.GetKeyFocusWnd()
//设置结束
Delay1000
Gosub采玛瑙完全版
Rem结束
EndScript
Sub采玛瑙完全版
lun=(Jtime*600)((liaoli5)*75)
y=Cllun+1
Fory
Gosub采集
IfPd0=1
Gosub激活窗口
EndIf
IfPd0=1andPd1=1
Gosub检测断线重连
EndIf
IfPd0=1andPd2=1
huo1=DH1:huo2=DH2
Gosub丢弃货物
EndIf
IfPd0=1andPd3=1
huo1=ZH1:huo2=ZH2:jia1=ZJ1:jia2=ZJ2
Gosub露天展销
EndIf
IfPd0=1andPd4=1
KeyPress321
Delay200
KeyPress381
Delay100
KeyPress131
EndIf
IfPd0=1
Gosub返回窗口
EndIf
EndFor
Rem结束
Return采玛瑙完全版
//采集或搜索F1快捷栏F1采集或搜索F2匹萨F11使用技能（用于纠错）
//参数lun采集一轮吃一次料理
Sub采集
Forlun
ci=liaoli5-1
Forci
PluginWindow.SendKeyPress(hwn,112)
Delay1000
PluginWindow.SendKeyPress(hwn,112)
Delay1500
PluginWindow.SendKeyPress(hwn,122)
Delay5000
EndFor
PluginWindow.SendKeyPress(hwn,112)
Delay1000
PluginWindow.SendKeyPress(hwn,112)
Delay1000
PluginWindow.SendKeyPress(hwn,122)
Delay1000
PluginWindow.SendKeyPress(hwn,112)
Delay1500
PluginWindow.SendKeyPress(hwn,113)
Delay1000
PluginWindow.SendKeyPress(hwn,122)
Delay2000
ax=400:ay=300
Gosub移动鼠标
RightClick1
Delay600
EndFor
Return采集
//丢弃货物带参数huo1.huo2.huo3.huo4.…….F7装载支持到10个
Sub丢弃货物
Delay500
PluginWindow.SendKeyPress(hwn,118)
Delay1000
VBSax=429:ay=366
Gosub移动鼠标
LeftClick1
Delay1000
For10
Ifhuo1>0
ax=92+((huo1+4)MOD5)*56
ay=114+((huo1-1)5)*56
Gosub移动鼠标
LeftClick1
Delay700
MoveR119124
LeftClick1
Delay700
MoveR073
LeftClick1
Delay700
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
VBSax=630:ay=391
Gosub移动鼠标
LeftClick1
Delay600
ax=400:ay=300
Gosub移动鼠标
RightClick1
Delay600
Return丢弃货物
//露天展销(F9)参数为huo1.jia1.huo2.jia2,支持到两件商品
//jia价格就是数字支持到5位数
Sub露天展销
Delay1000
PluginWindow.SendKeyPress(hwn,120)
Delay2500
For2
Ifhuo1>0
ax=112+((huo1+4)MOD5)*56
ay=99+((huo1-1)5)*56
Gosub移动鼠标
LeftClick1
Delay600
VBSax=350:ay=221
Gosub移动鼠标
LeftClick1
Delay600
ax=466:ay=393
Gosub移动鼠标
LeftClick1
Delay600
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)
For5
Ifj1=""
j1=-1
EndIf
Ifj1>=0
ax=424+(((j1+19)MOD10+3)MOD3)*24
ay=223+((5-(j1+8))3)*24
Gosub移动鼠标
LeftClick1
Delay500
EndIf
j1=j2:j2=j3:j3=j4:j4=j5:j5=-1
EndFor
VBSax=466:ay=393
Gosub移动鼠标
LeftClick1
Delay600
EndIf
VBShuo1=huo2-1:jia1=jia2
VBShuo2="":jia2=""
EndFor
VBSax=489:ay=405
Gosub移动鼠标
LeftClick1
Delay600
ax=400:ay=300
Gosub移动鼠标
RightClick1
Delay600
Return露天展销
//移动鼠标到指定点以窗口为准参数ax,ay
Sub移动鼠标
PluginwinRect=Window.GetClientRect(hwn)
winPoint=Split(winRect,"|",-1,1)
bx=CInt(winPoint(0))+ax
by=CInt(winPoint(1))+ay
MoveTobxby
Delay600
Return移动鼠标
//激活窗口和返回窗口是对应应用的
Sub激活窗口
Pluginyuan=Window.Foreground()
Tishi="请稍等一会,不要动鼠标键盘"
Gosub提示Tishi
PluginWindow.Active(hwn)
Delay700
PluginWindow.Restore(hwn)
Delay700
Return激活窗口
Sub返回窗口
Tishi="可以继续了"
Gosub提示Tishi
PluginWindow.Active(yuan)
Return返回窗口
//提示窗口参数Tishi
Sub提示Tishi
VBSCallTiShiObj.Popup(Tishi,3,"3秒后窗口自动关闭",0)
Return提示Tshi
//以下部分是断线重连不启用“检测断线重连”的话下面部分可以不要
//查找坐标绝对位置参数ax,ay返回值bx,by
Sub查找坐标
PluginwinRect=Window.GetClientRect(hwn)
winPoint=Split(winRect,"|",-1,1)
bx=CInt(winPoint(0))+ax
by=CInt(winPoint(1))+ay
Return查找坐标
//检测是否断线并重新连接,准确度测试过十次通过
Sub检测断线重连
VBSax=411:ay=315
Gosub查找坐标
IfColorbxby3a28152
Gosub移动鼠标
VBSax=412:ay=333
Gosub查找坐标
IfColorbxbybead922
Gosub移动鼠标
LeftClick1
Delay1000
VBSax=381:ay=325
Gosub移动鼠标
LeftClick1
Delay2000
LeftClick1
Delay1000
LeftClick1
Delay1000
Gosub开始处登陆
Else
EndIf
Else
EndIf
Rem检测结束
Return检测断线重连
//屏幕显示"开始游戏"处,曾登陆过有账号将用默认的，方便双开密码相同的用
Sub开始处登陆
Delay1000
ax=400:ay=439
Gosub移动鼠标
LeftClick1
Delay1000
For30
ax=439:ay=485
Gosub查找坐标
IfColorbxbybead922
Gosub移动鼠标
LeftClick1
Delay1000
Goto输入账号
Else
EndIf
EndFor
Tishi="网络超时无法连接，请手动连接"
Gosub提示Tishi
Goto结束
Rem输入账号
KeyPress91
Delay500
zhanghao=MM
Gosub绝对输入
Delay500
ax=454:ay=338
Gosub移动鼠标
LeftClick1
Delay200
KeyPress91
Delay200
zhanghao=HH
Gosub绝对输入
ax=454:ay=338
Gosub移动鼠标
LeftClick1
Delay2000
ax=588:ay=398
Gosub移动鼠标
LeftClick1
Delay3000
ax=468:ay=461
Gosub移动鼠标
LeftClick1
Delay3500
ax=318:ay=404
Gosub移动鼠标
LeftClick1
Delay3500
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)
For11
Ifnotz1=""
z=Asc(UCase(z1))
KeyPressz1
Delay100
EndIf
z1=z2:z2=z3:z3=z4:z4=z5:z5=z6:z6=z7
z7=z8:z8=z9:z9=z10:z10=z11:z11=""
EndFor
Return绝对输入
－－－－－－－脚本结束－－－－－－－
网通一区风字在此也与朋友们告别
打印采集脚本（后台+自动切换+丢+展+纠错）