游戏天堂-->网游世界 游戏天堂-->休闲论坛 游戏天堂-->修改利器 游戏天堂-->补丁基地 游戏天堂-->动漫地带 游戏天堂-->游戏剧场 游戏天堂-->秘籍宝库 游戏天堂-->返回首页 游戏天堂-->游戏咨询 游戏天堂-->攻略指引 返回休闲居主页
休闲居系列站之——游戏天堂

 


·大航海时代: 对厨师长高...
·大航海时代: F.V.R针对网...
·大航海时代: 推荐新玩家...
·大航海时代OL:高速帆船...
·大航海时代:对《快速烹饪...
·大航海时代:1区4服荷兰另...
·大航海时代OL:大航海时...
·大航海时代: 1区5服热那...
·大航海时代: 操舵~漂白小...
·大航海时代: 砸钱练社交...
·大航海时代:关于“1区6服...
·大航海时代OL:法国会计...
·大航海时代:1区3服小裁缝...
·大航海时代:西班牙欧洲-加...
·大航海时代: 2区1服六国...
·大航海时代: 1区1服英国...
·大航海时代: 电信1区2服...
·大航海时代OL:2区2服我...
·大航海时代OL:大航海时...
·大航海时代: 电信1区2服...
·大航海时代: 拿到3星书的...
·大航海时代: 采集脚本(...
·大航海时代OL:4区3服近...
·大航海时代:质疑《3区4服...
·大航海时代OL:生产系商...
·大航海时代OL:5月30号1...
·大航海时代: 一篇适合所...
·大航海时代: 应急5以后的...
·大航海时代OL:大航海时...
·大航海时代: 1区6服国家...
·大航海时代OL:5月23号12...
·大航海时代OL:大航海时...
·大航海时代OL:关于量产...
·大航海时代OL:关于商人...
·4区1服之风云再起(2)
·大航海时代: 战火中迎来2...
·大航海时代OL:大航海时...
·1区4服葡萄牙的王者利润线...
·大航海时代OL:大航海时...
 
您现在的位置: 休闲居 >> 游戏天堂 >> 大航海时代OL >> 

大航海时代:采集的终极完整脚本(后台+自动切换+丢+展+部分纠错)
  人气: 【字体:
  发布时间:2007-02-03 18:26:46

 
关键字:风字

采集的终极完整脚本(后台+自动切换+丢+展+部分纠错)

偶尔看见这里的几个脚本,都不完整,发个上来试试.让喜好脚本的人来评议一下,那些对脚本感冒的人,不要骂啊,本人因购卡问题可能要永远离开航海时代了.

首先,要使用这个脚本需准备:按键精灵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 绝对输入

-------脚本结束-------
网通一区 风字 在此也与朋友们告别

≡ 查看、发表评论 ≡