大航海掛炮腳本
⑴ 求按鍵精靈腳本:大航海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萬余尊,是我國古代雕刻藝術的典範之作