求大航海OL后台划船脚本

完全后台的找不到 这个是前台的需要鼠标 但也可以把需要鼠标的地方改成键盘也就变后台的了

　　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<