返回列表 发新帖
查看: 634|回复: 17
打印 上一主题 下一主题

小小脚本

[复制链接]
填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
跳转到指定楼层
1#
发表于 2009-1-10 14:16:16 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我用过的，除非你用错不然一定可以用





挂炮-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 编辑 ]
脚本

相关帖子
回复

使用道具 举报

和中堂

11

主题

394

帖子

416

积分

子爵

Rank: 3Rank: 3

积分
416
18#
发表于 2009-1-13 08:46:35 | 只看该作者
回复 支持 反对

使用道具 举报

egan1993

84

主题

4341

帖子

4430

积分

公爵

Rank: 8Rank: 8

积分
4430

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8

QQ
17#
发表于 2009-1-13 03:46:38 | 只看该作者
原帖由 weixiaolin 于 2009-1-12 21:42 发表
摇头纯属无奈

你敢说你没挂过会计
又回到贝紫头了...........
回复 支持 反对

使用道具 举报

weixiaolin

26

主题

256

帖子

245

积分

子爵

Rank: 3Rank: 3

积分
245
16#
发表于 2009-1-12 21:42:20 | 只看该作者
摇头纯属无奈
回复 支持 反对

使用道具 举报

egan1993

84

主题

4341

帖子

4430

积分

公爵

Rank: 8Rank: 8

积分
4430

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8

QQ
15#
发表于 2009-1-12 18:31:37 | 只看该作者
原帖由 weixiaolin 于 2009-1-12 12:09 发表
BS挂挂党啊

你敢说你没摇过头
又回到贝紫头了...........
回复 支持 反对

使用道具 举报

weixiaolin

26

主题

256

帖子

245

积分

子爵

Rank: 3Rank: 3

积分
245
14#
发表于 2009-1-12 12:09:52 | 只看该作者
BS挂挂党啊
回复 支持 反对

使用道具 举报

egan1993

84

主题

4341

帖子

4430

积分

公爵

Rank: 8Rank: 8

积分
4430

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8

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

ycm207 ycm207 效率越高越好嘛...
又回到贝紫头了...........
回复 支持 反对

使用道具 举报

鹰眼MIHAWK

9

主题

335

帖子

340

积分

子爵

Rank: 3Rank: 3

积分
340

Medal No.1Medal No.2
12#
发表于 2009-1-12 11:17:14 | 只看该作者
拔毛赚了钱，然后去老家练会计，最后奥斯陆练管理就行了
反正是挂的，不浪费自己时间
回复 支持 反对

使用道具 举报

egan1993

84

主题

4341

帖子

4430

积分

公爵

Rank: 8Rank: 8

积分
4430

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8

QQ
11#
发表于 2009-1-11 04:02:17 | 只看该作者
有没有免料理可以同时海上拔毛(顺便练管理啊),练会计的脚本吗?
又回到贝紫头了...........
回复 支持 反对

使用道具 举报

Baggio

46

主题

708

帖子

759

积分

伯爵

Rank: 4

积分
759

Medal No.1Medal No.2Medal No.3Medal No.4
10#
发表于 2009-1-10 23:54:22 | 只看该作者
有免料理拔毛的脚本吗？
回复 支持 反对

使用道具 举报

填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
9#
 楼主| 发表于 2009-1-10 18:34:25 | 只看该作者
。。。。没看到过
回复 支持 反对

使用道具 举报

luffy

104

主题

1873

帖子

1921

积分

超级版主

Rank: 8Rank: 8

积分
1921

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8
8#
发表于 2009-1-10 15:58:54 | 只看该作者
脚本好像目前蓝天牌很强悍啊
1-4->2-2->双线四->帆舞->地中海->龙之大地
回复 支持 反对

使用道具 举报

raiki0212

14

主题

1087

帖子

1150

积分

侯爵

Rank: 6Rank: 6

积分
1150

Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8Medal No.10
7#
发表于 2009-1-10 15:56:43 | 只看该作者
回复 支持 反对

使用道具 举报

bella

48

主题

5324

帖子

5190

积分

管理员

Rank: 10Rank: 10Rank: 10

积分
5190

Medal No.1Medal No.2Medal No.3Medal No.4Medal No.5Medal No.6Medal No.7Medal No.8Medal No.9Medal No.10
6#
发表于 2009-1-10 15:46:47 | 只看该作者
亚特兰蒂斯，永远的Napoli No. 1
回复 支持 反对

使用道具 举报

填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
5#
 楼主| 发表于 2009-1-10 14:19:01 | 只看该作者
  网络上流行的划船脚本  需要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 吃料理
回复 支持 反对

使用道具 举报

填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
4#
 楼主| 发表于 2009-1-10 14:17:46 | 只看该作者
奶子专用超级后台划船脚本   要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 编辑 ]
回复 支持 反对

使用道具 举报

填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
3#
 楼主| 发表于 2009-1-10 14:17:13 | 只看该作者
无敌模式后台采集--我写的 无需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
回复 支持 反对

使用道具 举报

填充

16

主题

56

帖子

41

积分

骑士

Rank: 1

积分
41
2#
 楼主| 发表于 2009-1-10 14:16:49 | 只看该作者
采集用，貌似奶子做的 需要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 丢弃物品
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|大航海时代Online    
快速回复 返回顶部 返回列表