后台进行采集或搜索 自动转前台丢弃垃圾 自动转前台卖商品 自动喊话 功能齐全
本脚本作者挂一晚上 采集4--6级半 用掉320料理 6分钟丢弃垃圾以及只卖红矿石收入320万  图片请自己截图 具体买卖东西可自己调整 可选 是否买卖东西 是否丢弃垃圾  基本智能脚本 

因笔者笔记本坐标和台试机器坐标有出入 如坐标不准 请自行调整：

脚本如下只须修改买卖的物品就可以埃及北挂了 ：

#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
 
－－－－－－－搜索采集通用版－－－－－－－－
UserVar liaoli=50 料理恢复度
UserVar Cl=100 料理存量
//每五分钟能采集40次看船舱和采集等级定
UserVar Jtime=3 丢货销售间隔(分钟)
//数字"1"为启用"0"为不启用
UserVar Pd0=1 是否自动切换窗口
UserVar Pd1=1 是否丢弃货物
UserVar Pd2=1 是否自动销售
UserVar Pd3=1 是否自动喊话
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
//设置结束
Delay 1000
Gosub 采集通用版
Rem 结束
EndScript
Sub 采集通用版
    lun=(Jtime*600)\((liaoli\5)*75)
    y=Cl\lun+1
    For y
        Gosub 采集
        If Pd0=1
            Gosub 激活窗口
        EndIf
        If Pd1=1
            Gosub 丢垃圾通用
            Delay 1000
        EndIf
        If Pd2=1
            Gosub 自动销售
            Delay 1000
        EndIf
        If Pd3=1
            Gosub 自动喊话
            Delay 1000
        EndIf
        If Pd0=1
            Gosub 返回窗口
        EndIf
    EndFor
    Rem 结束
Return 采集通用版
//系统默认自定义栏F10、F11使用技能（用于纠错） 设置快捷键 F1采集或搜索、 F2匹萨
//参数lun 采集一轮吃一次料理
Sub 采集
    For lun
        ci=liaoli\5
        For ci
            Plugin Window.SendKeyPress(hwn,121)
            Delay 1500
            Plugin Window.SendKeyPress(hwn,112)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,122)
            Delay 5000
        EndFor
        Plugin Window.SendKeyPress(hwn,121)
        Delay 2500
        Plugin Window.SendKeyPress(hwn,113)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,122)
        Delay 1000
        Plugin Window.SendKeyPress(hwn,27)
        Delay 600
    EndFor
Return 采集
Sub 激活窗口
    Plugin yuan=Window.Foreground()
    Delay 800
    Plugin Window.Active(hwn)
    Delay 800
    Plugin Window.Restore(hwn)
    Delay 800
Return 激活窗口
Sub 返回窗口
    Plugin Window.Active(yuan)
Return 返回窗口
Sub 丢垃圾通用
    VBS dim yanshi yanshi1 yanshi2
    UserVar yanshi=200
    UserVar yanshi1=500
    UserVar yanshi2=1500
    Rem 丢弃
    Delay yanshi2
    KeyPress 118,1
    Delay 3000
    MoveTo 436,388
    Delay yanshi1
    LeftClick 1
    Delay yanshi2
    Gosub 找砂
    Gosub 找杏仁
    Gosub 找圆木头
    Gosub 找植物油
    Gosub 找石材
    Gosub 找铁矿石
    MoveTo 633,411
    Delay yanshi1
    LeftClick 1
    Delay yanshi2
    KeyPress 27,1
    Delay yanshi1
    KeyPress 27,1
    Delay yanshi1
    KeyPress 27,1
    Delay yanshi1
Return 丢垃圾通用
Sub 找砂
    VBSCall FindPic(90,120,380,345,"D:\航海图片\砂.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找砂
Sub 找杏仁
    VBSCall FindPic(90,120,380,345,"D:\航海图片\杏仁.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找杏仁
Sub 找圆木头
    VBSCall FindPic(90,120,380,345,"D:\航海图片\圆木头.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找圆木头
Sub 找植物油
    VBSCall FindPic(90,120,380,345,"D:\航海图片\植物油.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找植物油
Sub 找石材
    VBSCall FindPic(90,120,380,345,"D:\航海图片\石材.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找石材
Sub 找铁矿石
    VBSCall FindPic(90,120,380,345,"D:\航海图片\铁矿石.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找铁矿石
Sub 找红矿石
    VBSCall FindPic(50,50,400,400,"D:\航海图片\红矿石.bmp",0.5,x,y)
    If x>=0 and y>=0
        MoveTo (x+17) (y+12)
        Delay yanshi1
        LeftClick 1
        Delay yanshi1
        KeyPress 45,1
        Delay yanshi1
        KeyPress 13,1
        Delay yanshi2
    EndIf
Return 找红矿石
Sub 自动销售
    Delay yanshi2
    KeyPress 120,1
    Delay 3000
    Gosub 找红矿石
    MoveTo 354,246
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    MoveTo 524,271
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    LeftClick 1
    Delay yanshi1
    LeftClick 1
    Delay yanshi2
    LeftClick 1
    MoveTo 525,248
    Delay yanshi2
    LeftClick 1
    Delay yanshi2
    MoveTo 524,271
    Delay yanshi2
    LeftClick 1
    Delay yanshi2
    MoveTo 472,413
    Delay yanshi2
    LeftClick 1
    Delay yanshi2
    MoveTo 479,430
    Delay yanshi2
    LeftClick 1
    Delay yanshi2
    KeyPress 27,3
Return 自动销售
Sub 自动喊话
    Plugin Window.SendKeyPress(hwn,32)
    Delay 500
    Plugin Window.SendKeyPress(hwn,38)
    Delay 800
    Plugin Window.SendKeyPress(hwn,13)
    Delay 1000
Return 自动喊话
 

2-1。。。黑鹰工会  2-1的朋友有   没空 守侯 小A 小张 浪漫军人 南京 猪猪 。。。。。等 很多  希望娱乐的同时别忘了学习工作。。