大航海挂炮脚本

⑴ 求按键精灵脚本：大航海OL采集和钓鱼

采集
http://dol.17173.com/content/2008-04-20/1208664591.shtml

钓鱼
http://dol.17173.com/content/2008-01-17/1200540203.shtml

⑵ 大航海时代陆战脚本

建议你别用，那样会让你感到很没意思的。

⑶ 大航海时代脚本

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

我也没用起，希望你试用成功。记住：如何抓点，点开脚本有个抓点，点到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 绝对输入

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

⑸ 大航海时代ol脚本

yangcongtou.net，下载航海会计助理，不过要收费的

可以会计，还有自定义城市之间的练引取都可以

我用过两个月，收费有点偏贵，30/月，月卡本身才40……

不过这软件脚本倒是很好用，美术品、武器、这些比较难练的引取都是靠这个练得

⑹ 大航海时代台服挂炮~

脚本都不太好使 我还是推荐买挂 航海泡泡 懒神 神圣导航 应该都可以吧 时间估计很快都能满 只要你挂的时间长

⑺ 求一个大航海 在法罗杀猪的脚本！！

VBS set TiShiObj = createobject("WScript.Shell")
Dim xing,xinga,xingd,xinge hpmax
xing=&H00b06620
Plugin hhsd = Window.GetKeyFocusWnd()
For 400
Gosub 购买
Delay 1000
For 2
Gosub 生产
Delay 1000
Gosub 生产2
Delay 1000
EndFor
Gosub 卖出
EndFor
Sub 购买
For 1
//此处为购买次数，可根据家畜买卖引取高低与最大行动力调整购买次数
Delay 1200
Plugin Window.SendKeyPress(hhsd,119)
Delay 1500
Plugin Window.SendKeyPress(hhsd,112)
Delay 1000
MoveTo 649,386
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 1000
For 4
Delay 50
KeyPress 40,1
EndFor
KeyDown 17,1
Delay 500
MoveTo 381,195
Delay 500
LeftClick 1
Delay 1000
KeyUp 17,1
Delay 500
MoveTo 663,437
Delay 500
LeftClick 1
Delay 500
EndFor
Return 购买
Sub 生产
l=0
Plugin xinga=Memory.Read32Bit(hhsd,xing)
Gosub 料理
Delay 500
Plugin Window.SendKeyPress(hhsd,119)
Delay 1300
Plugin Window.SendKeyPress(hhsd,113)
Delay 1000
Plugin Window.SendKeyPress(hhsd,13)
Delay 500
While l<10
Plugin xingd=Memory.Read32Bit(hhsd,xing)
Plugin BGKM5.LClick(hhsd,447,300)
Delay 300
Plugin xinge=Memory.Read32Bit(hhsd,xing)
If xinge=xingd
l=l+1
Else
l=0
EndIf
EndFor
Delay 1000
Plugin BGKM5.LClick(hhsd,624,407)
Return 生产
Sub 生产2
l=0
Plugin xinga=Memory.Read32Bit(hhsd,xing)
Gosub 料理
Delay 500
Plugin Window.SendKeyPress(hhsd,119)
Delay 1300
Plugin Window.SendKeyPress(hhsd,113)
Delay 1000
For 3
// 如果要做火腿就把上面的3改成4
Plugin Window.SendKeyPress(hhsd,40)
Delay 100
EndFor
Delay 1000
Plugin Window.SendKeyPress(hhsd,13)
Delay 500
While l<10
Plugin xingd=Memory.Read32Bit(hhsd,xing)
Plugin BGKM5.LClick(hhsd,447,300)
Delay 300
Plugin xinge=Memory.Read32Bit(hhsd,xing)
If xinge=xingd
l=l+1
Else
l=0
EndIf
EndFor
Delay 1000
Plugin BGKM5.LClick(hhsd,624,407)
Return 生产2
Sub 料理
While xinga <450
//需要补充到的行动力值，一般为最大行动力减去每个料理的补充值
Plugin Window.SendKeyDown(hhsd,119)
Plugin Window.SendKeyDown(hhsd,118)
Plugin Window.SendKeyDown(hhsd,117)
Plugin Window.SendKeyDown(hhsd,116)
Plugin xinga=Memory.Read32Bit(hhsd,xing)
EndWhile
Plugin Window.SendKeyUp(hhsd,119)
Return 料理
Sub 卖出
Delay 500
Plugin BGKM5.LClick(hhsd,686,358)
Delay 500
Delay 1000
Plugin BGKM5.LClick(hhsd,325,70)
Delay 1000
Plugin BGKM5.LClick(hhsd,630,412)
Delay 1000
Return 卖出

说明：把F5--F8都设成自定义栏
自定义栏：F1 1*书 F2 猪之章 F5--F8放4种料理

启动键 ctrl+小键盘1
停止键 小键盘-

⑻ 大航海时代online脚本怎么用啊

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

⑼ 谁能提供一个大航海时代，后台运行的挂炮术脚本啊，按键精灵9能用的，先谢谢了

国服还是台服，台服有，国服没有

⑽ 求大航海时代OL的各种脚本 按键精灵的（最好复制到按键精灵里就能用）

河南洛阳龙门石窟位于洛阳市东南，分布于伊水两岸的崖壁上，南北长达1公里。龙门石窟始凿于北魏年间，先后营造400多年。现存窟龛2300多个，雕像10万余尊，是我国古代雕刻艺术的典范之作