大航海時代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 絕對輸入

－－－－－－－腳本結束－－－－－－－