//Gosub 多佛到伦敦
            EndIf 
            Gosub 当前时间
            Message = CurrentTime & "................................"
            Gosub 写入日志文件
            Gosub 定时关机
        Else 
            Gosub 当前时间
            Message = CurrentTime & "！！！所在码头错误..."
            Gosub 写入日志文件
            VBSCall MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
            Goto 脚本结束
        EndIf 
    EndWhile 
Return 伦多近港脚本
//======================================================================================
Sub 码头判断
    //初始码头判断（1-伦敦；2-多佛；其它均非正常）
    MaTou = 0
    PosX = 37
    PosY = 8
    Gosub 坐标转换
    IfColor PosX,PosY,FFFFFF,2
        PosX = 52
        PosY = 8
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,2
            PosX = 75
            PosY = 8
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,2
                PosX = 82
                PosY = 9
                Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,2
                    PosX = 86
                    PosY = 8
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,2
                        MaTou = 1
                        Gosub 当前时间
                        Message = CurrentTime & "船在伦敦码头..."
                        Gosub 写入日志文件
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
    PosX = 40
    PosY = 8
    Gosub 坐标转换
    IfColor PosX,PosY,FFFFFF,2
        PosX = 58
        PosY = 8
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,2
            PosX = 68
            PosY = 8
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,2
                PosX = 90
                PosY = 8
                Gosub 坐标转换
                IfColor PosX,PosY,FFFFFF,2
                    PosX = 101
                    PosY = 8
                    Gosub 坐标转换
                    IfColor PosX,PosY,FFFFFF,2
                        MaTou = 2
                        Gosub 当前时间
                        Message = CurrentTime & "船在多佛尔码头..."
                        Gosub 写入日志文件
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 码头判断
Sub 入码头出航
    //进码头
    StMenu = 0
    While StMenu = 0
        PosX = 655
        PosY = 359
        Gosub 移动鼠标
        LeftClick 1
        Gosub 延时判定
        Gosub 等按钮
        Delay 1000
        //码头两个字
        PosX = 628
        PosY = 329
        Gosub 坐标转换
        IfColor PosX,PosY,FFFFFF,2
            PosX = 640
            PosY = 329
            Gosub 坐标转换
            IfColor PosX,PosY,FFFFFF,2
                PosX = 646
                PosY = 329