需要一个大航海时代 南美采集脚本

Question

说明,我的电脑是21寸屏幕的.外面的脚本我用了人物都会乱跑.
脚本要后台操作.但不用自动扔东西,不用自动登陆.

只要求.21寸屏幕下人物不乱跑.自动采集吃料理的南美采集脚本!!(注.我只用+60和70,+80的料理).

给的脚本合适会追加分数100分.谢谢各位.
请把快婕键的设置也列出．谢谢．
南美乱跑．采集会死人的．所以麻烦为了拿分数你随便打句话就行．不要乱给脚本．谢谢

Answer 1

直接下个洋葱头嘛，效率又高，价格也便宜，一个月才20块钱，挂完采集还可以挂船挂会计，划算也实用。

Answer 2

推荐航海世纪

Answer 3

dim Obj,CI,HI.W
set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 1000
Plugin hwnd = Window.GetKeyFocusWnd()
Gosub Tishi
For 99999
For 10
For 20
Gosub 采集
EndFor
For 2
Gosub 料理
EndFor
EndFor
Delay 1000
Gosub 激活窗口
Delay 800
Gosub TRASH
Delay 800
Gosub logout
Delay 500
Gosub minimize
EndFor
Sub 采集
Plugin Window.SendKeyPress(hwnd,121)
Delay 1500
Plugin Window.SendKeyPress(hwnd,117)
Delay 1500
Plugin Window.SendKeyPress(hwnd,27)
Delay 5800
Return 采集
Sub 料理
Plugin Window.SendKeyPress(hwnd,121)
Delay 1800
Plugin Window.SendKeyPress(hwnd,112)
Delay 1500
Plugin Window.SendKeyPress(hwnd,27)
Delay 1500
Return 料理
Sub 激活窗口
Plugin Window.Foreground(hwnd)
Delay 1000
Plugin Window.Active(hwnd)
Delay 600
Plugin Window.Restore(hwnd)
Delay 600
Rem 激活窗口程序结束
Return 激活窗口
Sub TRASH
Delay 500
KeyPress 114,1 //调出装载
Delay 4000
MoveTo 444 393
Delay 200
LeftClick 1
Delay 200
MoveTo 283,162
Delay 100
KeyDown 17,1
Delay 200
//请根据采集物品种类自行调节左键盘单击次数
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 200
LeftClick 1
Delay 200
KeyUp 17,1
Delay 200
MoveTo 630 415
Delay 200
LeftClick 1
Delay 200
Return trash
Sub logout
KeyDown 17,1
Delay 399
KeyPress 76,1
Delay 399
KeyUp 17,1
Delay 1000
KeyPress 13,1
Delay 24500
MoveTo 405,456
Delay 500
LeftClick 1
Delay 1000
LeftClick 1
Delay 5000
KeyPress 27,1
Delay 100
KeyPress 27,1
Delay 100
KeyPress 27,1
Delay 100
KeyPress 27,1
Delay 100
MoveTo 405,258
Delay 500
LeftClick 1
Delay 500
For 30
KeyPress 8,1
EndFor
**************
Delay 500
KeyPress 9,1
Delay 500
**************
Delay 500
KeyPress 13,1
Delay 2200
KeyPress 13,1
Delay 4000
KeyPress 13,1
Delay 6000
KeyPress 13,1
Delay 6000
KeyPress 13,1
Delay 7000
Return logout
Sub minimize
MoveTo 761,10
Delay 200
LeftClick 1
Delay 200
Plugin Window.SendKeyPress(hwnd,27)
Delay 200
Plugin Window.SendKeyPress(hwnd,27)
Delay 200
Return minimize