大航海时代5脚本

‘壹’ 大航海时代OL南美后台采集脚本

完全后台脚本是写不出来的，丢垃圾模块必须前台才能工作，17173上很多人发过，dol.17173.com上去搜搜吧

‘贰’ 我有大航海时代OL人家篇的脚本。怎么使用

你得下载一个“按键精灵”后才能运行别人提供的脚本。

‘叁’ 大航海时代online脚本怎么用啊

新建一个方案，把你找到的脚本粘贴进去，保存退出。默认F10是开启，F12是关闭，这个可以自己设置。你要知道这个脚本的限制条件是什么，面对什么，或者从哪里开始。你也可以从网上找到大航海版本的按键精灵，里面已经加入了很多大航海能用到的脚本。比如采集，航行，挂炮等。

‘肆’ 有脚本能测出大航海时代冒险功绩是多少吗

轻轻咩同学只说了冒险爵位的晋级标准

其实我跟你讲

根本没有这个东西你只能自己去算

例如我来说吧我已经确定我的战斗爵位是满的5个爵位

我的大海战爵位是1个

后来我就投资（因为之前记不得自己商业的爵位是多少了）

前是投资了一个5E我升了

后来又投资了正好20E又升了2个爵位

因此我断定自己的商业爵位是8个

之后才参考自己当时的爵位是”准男爵”

等于22级爵位

因此就是22－8－5－1＝8

得出了结论是现在自己的冒险爵位是8级

之后你就可以通过查你所有发现物的贡献度来计算出你距离下一次升官还需要多少发现物的贡献度

‘伍’ 大航海时代脚本TAB ID是什么

id是你自己账号

tab表示要切换输入位置而已，就是键盘上的tab键

‘陆’ 求大航海时代OL练划船脚本（最好复制到按键精灵里就能用）

挂划船最好能少带东西就少带东西，因为如果遇难回港，随机会掉在海里

注意事项：

1，船上必要的东西：海兽船首-灾害守护+7 其他任何都不要带，理由同上。购买地点自己学么，我所知道的是热那亚和佛得角以及卡利卡特还有什么地方我不清楚

2，身上必要的东西：鼠药>50 料理+50>200

3，必要技能(按重要程度排列)：划船(废话...) 救助(或救生圈 400) 警戒 运用

4，划船的方向要选择浪大(操舵经验高)，且不会触礁的未开放海域(也就是水手会告诉你：船长快掉头吧前边没路了的海域)

5，开始挂的时候自选将自己的状态设定为全隐或者个人介绍改为正在挂划船，否则一旦你老公老婆乱七八糟的看你漂在外海许久但就是不理他而跟你闹家变贫僧概不负责

6，游戏是800*600窗口或者???*???全屏都可以，只要行动力抓点位置没错就可以

===================仆街分割线====================

VBS dim Obj,
VBS set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 100
For 9000000
For 7
Gosub 料理
Delay 100
Gosub 划船
Delay 100
Gosub 起锚
Delay 100
EndFor
EndFor
Sub 料理
Rem 这里进行抓点，目标是行动力，作用为：当你抓点的位置 不等于 默认行动力的紫色的时候，开始吃料理
IfColor 79,139,f77df7,1
For 3
Delay 100
Rem 这是F1，你可以替换为你热键中使用自定义窗口的按键，F1=112 F2=113，以此类推
Plugin Window.SendKeyPress(hwnd,112)
Delay 2000
Rem 这是激活窗口后的F7,定义为使用物品 料理
Plugin Window.SendKeyPress(hwnd,118)
Delay 200
EndFor
Delay 100
Else
EndIf
Delay 100
Return 料理
Sub 划船
For 4
Delay 300
Rem 这是F1，你可以替换为你热键中使用自定义窗口的按键
Plugin Window.SendKeyPress(hwnd,112)
Delay 2000
Rem 这是激活窗口后的F1,定义为使用技能 划船
Plugin Window.SendKeyPress(hwnd,112)
Rem 这是激活窗口后的F2,定义为使用技能 运用
Delay 100
Rem 这是激活窗口后的F3,定义为使用技能 警戒
Plugin Window.SendKeyPress(hwnd,113)
Delay 100
Rem 这是激活窗口后的F4,定义为使用技能 划船
Plugin Window.SendKeyPress(hwnd,114)
Delay 100
Rem 这是激活窗口后的F5,定义为使用物品 鼠药
Plugin Window.SendKeyPress(hwnd,115)
Delay 100
Rem 这是F1，你可以替换为你热键中使用自定义窗口的按键
Plugin Window.SendKeyPress(hwnd,112)
Delay 2000
Rem 这是激活窗口后的F6,定义为使用技能 救助
Plugin Window.SendKeyPress(hwnd,116)
Delay 100
Rem 这里是按键Esc，作用是关闭因为网络延迟而导致的被打开的其他属性窗口
Plugin Window.SendKeyPress(hwnd,27)
Delay 100
EndFor
Return 划船
Sub 起锚
Rem 这里是按键Insert,起锚的热键
KeyPress 45,1
Delay 100
Rem 这里是将鼠标移动到屏幕中央，以便在接下来的动作中修正前进方向
MoveTo 412,143
Delay 400
LeftClick 1
Delay 100
LeftClick 1
Delay 100
Return 起锚

‘柒’ 收一个按健精灵(大航海时代)脚本,用在PK...

你想干什么？目前按键精灵用于钓鱼＋保管，自动采集＋摆摊什么的，海战就是要靠人去操作，所以。。。没有用
（少抢点人。。。要抢就去抢商40的～）

‘捌’ 各位高手,谁能给我个大航海时代OL自动采集的脚本啊

用按键还想最小化是不可能的 毕竟不是外挂

‘玖’ 大航海时代脚本

我也想知道，不过你可以试试这个

我也没用起，希望你试用成功。记住：如何抓点，点开脚本有个抓点，点到138，48就行。一定要修改注册表，里面有详细说明

‘拾’ 大航海时代OL挂采集脚本怎么用

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

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

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

脚本有点长还望体谅

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

//以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)((liaoli5)*75)
y=Cllun+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=liaoli5-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 绝对输入

－－－－－－－脚本结束－－－－－－－