大航海時代腳本

⑴ 大航海時代ol腳本

yangcongtou.net，下載航海會計助理，不過要收費的

可以會計，還有自定義城市之間的練引取都可以

我用過兩個月，收費有點偏貴，30/月，月卡本身才40……

不過這軟體腳本倒是很好用，美術品、武器、這些比較難練的引取都是靠這個練得

⑵ 大航海時代OL

1、按鍵精靈（囧）。

2、洋蔥頭會計助手（練商技能，掛錢）。

3、洋蔥頭航海助手（用於海上航行，PVE戰斗）。

4、GPS定位系統，配合測量值的自己在什麼位置。

其中1和4是免費的，哪都可以下。

2和3說白了就是一個懶人腳本類軟體，模擬操作程序，所以用起來感覺一般。

最大的好處就是，可以出海和戰斗自動開技能。

http://www.yangcongtou.net/

⑶ 收一個按健精靈(大航海時代)腳本,用在PK...

你想干什麼？目前按鍵精靈用於釣魚＋保管，自動採集＋擺攤什麼的，海戰就是要靠人去操作，所以。。。沒有用
（少搶點人。。。要搶就去搶商40的～）

⑷ 大航海時代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南美後台採集腳本

完全後台腳本是寫不出來的，丟垃圾模塊必須前台才能工作，17173上很多人發過，dol.17173.com上去搜搜吧