小小脚本

填充

我用过的，除非你用错不然一定可以用





挂炮-TNS1039任务 帕西面    无需361插件式后台脚本

快键设定: F8 自定义档 F2 料理 F3 救助 F4水桶 F5 水平 F6 弹道 F7 速射 F8修理


Plugin hwnd = Window.GetKeyFocusWnd()
Delay 2000
For 99
    For 1
        Gosub 技能
    EndFor
    For 60
        Gosub 战斗
    EndFor
    For 2
        Gosub 料理
    EndFor
    For 5
        Gosub 修理
    EndFor
EndFor
Sub 技能
    Plugin Window.SendKeyPress(hwnd,119)
    //f8 自定义档
    Delay 2000
    Plugin Window.SendKeyPress(hwnd,118)
    //f7 速射
    Delay 2000
    Plugin Window.SendKeyPress(hwnd,119)
    // f8
    Delay 2000
    Plugin Window.SendKeyPress(hwnd,117)
    // f6 弹道
    Delay 2000
    Plugin Window.SendKeyPress(hwnd,119)
    // f8
    Delay 2000
    Plugin Window.SendKeyPress(hwnd,116)
    // f5 水平
    Delay 2000
    //    Plugin Window.SendKeyPress(hwnd,121)
    //    Delay 2000
    //    Plugin Window.SendKeyPress(hwnd,118)
    //    Delay 2000
Return 技能
Sub 战斗
    Plugin Window.SendKeyPress(hwnd,112)
    Delay 500
    Plugin Window.SendKeyPress(hwnd,113)
    Delay 500
    Plugin Window.SendKeyPress(hwnd,114)
    Delay 500
Return 战斗
Sub 料理
    Plugin Window.SendKeyPress(hwnd,119)
    // f8
    Delay 1000
    Plugin Window.SendKeyPress(hwnd,113)
    // f2 料理
    Delay 1000
    Plugin Window.SendKeyPress(hwnd,119)
    // f8 修理
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,115)
    // f4 水桶
    Delay 500
    Plugin Window.SendKeyPress(hwnd,119)
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,114)
    // f3 救助
    Delay 500
Return 料理
Sub 修理
    Plugin Window.SendKeyPress(hwnd,119)
    Delay 500
    Plugin Window.SendKeyPress(hwnd,119)
    Delay 500
Return 修理

[ 本帖最后由 填充 于 2009-1-10 14:20 编辑 ]

填充

采集用，貌似奶子做的 需要361插件


F1采级   F6 料理  F8料理   可以放二种`很简单的脚本


````````````````````````````````````````````````````````````````````````
VBS set TiShiObj = createobject("WScript.Shell")
Tishi="注意:不要动鼠标，直到窗口切换为止!!!"
Plugin hwn=Window.GetKeyFocusWnd()
VBS Dim Blood
VBS Dim DX,DY
//获取窗口原始位置函数
Plugin handle=Window.Foreground()
Plugin s = Window.GetClientRect(handle)
MyArray = Split(s, "|", -1, 1)
DX = MyArray(0)
DY = Myarray(1)
For 50000
    For 6
        Plugin Window.Active(hwn)
        Delay 300
        Plugin Window.Restore(hwn)
        Delay 500
        VBSCall ReadMemory(&H00a90e84,2,Blood)
        Delay 300
        KeyDown 18,1
        KeyPress 9,1
        KeyUp 18,1
        Delay 300
        If Blood < 250
            For 2
                Plugin Window.SendKeyPress(hwn,121) //本人后加上的
                Delay 1000
                Plugin Window.SendKeyPress(hwn,112)
                Delay 2000
                Plugin Window.SendKeyPress(hwn,117)
                Delay 1000
                Plugin Window.SendKeyPress(hwn,112)
                Delay 2000
                Plugin Window.SendKeyPress(hwn,119)
                Delay 1000
            EndFor
        EndIf
        For 40
            Plugin Window.SendKeyPress(hwn,112)
            Delay 2000
            Plugin Window.SendKeyPress(hwn,112)
            Delay 3000
            Plugin BGKM5.LClick(hwn,780,290)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,13)
            Delay 200
            Plugin Window.SendKeyPress(hwn,121) //F10本人后来加上的
            Delay 800
        EndFor
    EndFor
    Gosub 丢弃物品
EndFor
Sub 丢弃物品
    Plugin Window.Active(hwn)
    Delay 500
    Plugin Window.Restore(hwn)
    Delay 500
    Plugin Window.SendKeyPress(hwn,13)
    Delay 200
    Call TiShiObj.Popup(Tishi,2,"2秒后窗口自动关闭",0)
    Delay 100
    Rem 以下是丢弃废物
    Plugin Window.SendKeyPress(hwn,121) //F10本人后加上的
    Delay 500
    Plugin Window.SendKeyPress(hwn,118)
    Delay 2000
    MoveTo 437-5+DX,393-24+DY
    Delay 1000
    LeftClick 1
    Delay 1000
    MoveTo 120-5+DX,164-24+DY
    Delay 1000
    KeyDown 17,1
    For 4
        Delay 500
        LeftClick 1
    EndFor
    Delay 500
    KeyUp 17,1
    Delay 500
    MoveTo 636-5+DX,420-24+DY
    Delay 1000
    LeftClick 1
    Delay 500
    Plugin Window.SendKeyPress(hwn,27)
    Delay 300
    Plugin Window.SendKeyPress(hwn,27)
Return 丢弃物品

填充

无敌模式后台采集--我写的 无需361插件



PutAttachment .plugin
Plugin dol = Window.Find(0,"大航海时代 Online")
For 200
    For 12
        Plugin Window.SendKeyPress(dol,120)
        Delay 1000
        Plugin Window.SendKeyPress(dol,112)
        Delay 7500

EndFor  
    Plugin Window.SendKeyPress(dol,120)
    Delay 1000
    Plugin Window.SendKeyPress(dol,113)
    Delay 1000
EndFor

填充

奶子专用超级后台划船脚本   要361插件支持滴


//自定义栏: F1-操帆 F2-划船 F3-警戒 F4-望风/运用 F5-救助 F6-料理 F7-随你（因为用不到） F8-随你（同F7）
//800*600窗口随意位置。
//快捷键F1-F7为“没有登录”，F8-自定义栏，F9-使用技能,F10-F12也选“没有登录”
//首先选中游戏窗口，然后开始脚本，然后就可以切换到其他程序，不用管了。
//本脚本是和361度后台插件一起配合使用
//脚本开始后不要再手动调整视角
//记得出去的时候船上要有木头。
//本脚本不消除异状（耗子，想家，睡不着之类的），所以出去前把装备存了。
//别看这个脚本很短，其实是相当的巧的。
Plugin awin=Window.GetKeyFocusWnd()
Plugin BGKM5.RDown(awin,500,50)
Delay 100
Plugin BGKM5.MMove(awin,500,500)
Plugin BGKM5.RUp(awin,500,500)
While 1
    Plugin Window.SendKeyPress(awin,119)
    //F8
    Delay 2900
    Plugin Window.SendKeyPress(awin,112)
    Plugin Window.SendKeyPress(awin,113)
    Plugin Window.SendKeyPress(awin,114)
    Plugin Window.SendKeyPress(awin,115)
    Plugin Window.SendKeyPress(awin,116)
    Plugin Window.SendKeyPress(awin,117)
    Plugin Window.SendKeyPress(awin,118)
    Delay 100
    Plugin Window.SendKeyPress(awin,120)
    Plugin BGKM5.LDBCLK(awin,760,323)
    Plugin BGKM5.RClick(awin,500,500)
EndWhile

[ 本帖最后由 填充 于 2009-1-10 14:22 编辑 ]

填充

  网络上流行的划船脚本  需要361插件

VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理体力上限
UserVar delaymax=30 调节网速
UserVar hcsw=1 转圈/点岸开关,1转圈,0点岸边
UserVar sw1=1 操帆开关1开启0关闭(F5)
UserVar sw1_1=1 操帆加速练习开关1启用0关闭
UserVar sw2=1 划船开关1开启0关闭(F2)
UserVar sw3=1 自定义开关1开启0关闭(F3)
UserVar sw4=1 自定义开关1开启0关闭(F4)
UserVar sw5=1 漂副官开关1开启0关闭
UserVar sw5_1=1 二副官开关1开启0关闭
UserVar sw5_2=80 漂副官职位天数(天)
VBS chpAdd=&H00af851a
VBS renAdd=&H00af850c
VBS hpAdd=&H00af8500
VBS dayAdd=&H00afa3c4
VBSCall Call GetCursorPos(pd1,pd2)
Plugin hwn=Window.Foreground()
//Plugin hwn=Window.GetKeyFocusWnd()
Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
MyArray = Split(win, "|", -1, 1)
pd1 = MyArray(0)
pd2 = MyArray(1)
Gosub 读参数
VBS day4=day
While 1
    Gosub 点岸边
    Gosub 救助
    Gosub 点岸边
    Gosub 吃料理
    Gosub 点岸边
    Gosub 划船
    Gosub 点岸边
    Gosub 操帆
    Gosub 点岸边
    Gosub 自定义1
    Gosub 点岸边
    Gosub 自定义2
    Gosub 点岸边
    Gosub 副官
    Gosub 点岸边
EndWhile
Sub 读参数
    Plugin ren=Memory.Read16Bit(hwn,renAdd)
    Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
    Plugin chp=Memory.Read16Bit(hwn,chpAdd)
    Plugin day=Memory.Read32Bit(hwn,dayAdd)
Return 读参数
Sub 清屏
    VBS i=0
    Plugin Window.SendKeyPress(hwn,120)
Return 清屏
Sub 划船
    If sw2=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,113)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 点岸边
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出
            EndIf
        EndWhile
        Rem 超时退出
        Gosub 清屏
    EndIf
Return 划船
Sub 操帆
    If sw1=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,116)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 点岸边
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出1
            EndIf
        EndWhile
        Rem 超时退出1
        If sw1_1=1
            Plugin BGKM5.LClick(hwn,781,581)
        EndIf
        Gosub 清屏
    EndIf
Return 操帆
Sub 点岸边
    If hcsw=1
        Plugin BGKM5.RClick(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
    EndIf
    If hcsw=0
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1+20,pd2)
    EndIf
Return 点岸边
Sub 副官
    If sw5=1
        Gosub 读参数
        VBS day1=(day-day4)/sw5_2-(day-day4)\sw5_2
        VBS day2=day-day4-sw5_2
        If day1=0 and day2>=0 and day3-day<>0
            VBS day3=day
            For 3
                Plugin Window.SendKeyPress(hwn,123)
            EndFor
            Delay 2000
            Plugin Window.SendKeyPress(hwn,40)
            Delay 1000
            Plugin BGKM5.LClick(hwn,343,98)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,38)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,13)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,27)
        EndIf
    EndIf
Return 副官
Sub 自定义1
    If sw3=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,114)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 点岸边
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出2
            EndIf
        EndWhile
        Rem 超时退出2
        Gosub 清屏
    EndIf
Return 自定义1
Sub 自定义2
    If sw4=1
        Gosub 读参数
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,115)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 点岸边
            Gosub 读参数
            VBS i=i+1
            If i-delaymax>0
                Goto 超时退出3
            EndIf
        EndWhile
        Rem 超时退出3
        Gosub 清屏
    EndIf
Return 自定义2
Sub 救助
    Gosub 读参数
    While ren=0 or chp=0
        Plugin Window.SendKeyPress(hwn,112)
        Gosub 点岸边
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 读参数
    EndWhile
Return 救助
Sub 吃料理
    Gosub 读参数
    While xmin-hpmax<0
        Plugin Window.SendKeyPress(hwn,118)
        Gosub 点岸边
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 读参数
    EndWhile
Return 吃料理

bella

raiki0212

luffy

脚本好像目前蓝天牌很强悍啊

填充

。。。。没看到过

Baggio

有免料理拔毛的脚本吗？

egan1993

有没有免料理可以同时海上拔毛(顺便练管理啊),练会计的脚本吗?

鹰眼MIHAWK

拔毛赚了钱，然后去老家练会计，最后奥斯陆练管理就行了
反正是挂的，不浪费自己时间

egan1993

原帖由 鹰眼MIHAWK 于 2009-1-12 11:17 发表
拔毛赚了钱，然后去老家练会计，最后奥斯陆练管理就行了
反正是挂的，不浪费自己时间

ycm207 ycm207 效率越高越好嘛...

weixiaolin

BS挂挂党啊

egan1993

原帖由 weixiaolin 于 2009-1-12 12:09 发表
BS挂挂党啊

你敢说你没摇过头

weixiaolin

摇头纯属无奈

egan1993

原帖由 weixiaolin 于 2009-1-12 21:42 发表
摇头纯属无奈

你敢说你没挂过会计

和中堂