Gosub 移动鼠标
            LeftClick 1
            Gosub 延时判定
            Delay 2000
            PosX = 92
            PosY = 93
            Gosub 坐标转换
            IfColor PosX,PosY,BBBBBB,2
                //StMenu = 1
                Gosub 当前时间
                Message = CurrentTime & "会计卖出页面打开成功..."
                Gosub 写入日志文件
            Else 
                Gosub 当前时间
                Message = CurrentTime & "！！！会计卖出页面打开未成功..."
                Gosub 写入日志文件
                Gosub 查找交易所老板
            EndIf 
            //EndWhile
            PosX = 92
            PosY = 93
            Gosub 坐标转换
            IfColor PosX,PosY,BBBBBB,2
                MoveTo PosX,PosY
                Delay 600
                LeftClick 1
                Delay 500
                If MarketSell(Num) = 2 or MarketSell(Num) = 3
                    Gosub 砍价要价
                EndIf 
                PosX = 631
                PosY = 413
                Gosub 移动鼠标
                LeftClick 1
                Gosub 延时判定
                Delay 2000
            Else 
                Goto 会计卖出结束
            EndIf 
            Num = Num+1
        EndIf 
    EndFor 
    Rem 会计卖出结束
Return 会计卖出
Sub 买入商品
    //Delay 1000
    //判断买入标志物
    If BuyChoose = 0
        BuyChoose = 1
    EndIf 
    //点买入
    StMenu = 0
    While StMenu = 0
        PosX = 645
        PosY = 357
        Gosub 移动鼠标
        LeftClick 1
        Gosub 延时判定
        Delay 2000
        PosX = 62
        PosY = 94
        Gosub 坐标转换
        IfColor PosX,PosY,BBBBBB,2
            StMenu = 1
            Gosub 当前时间
            Message = CurrentTime & "买入商品页面打开成功..."
            Gosub 写入日志文件
        Else 
            Gosub 当前时间
            Message = CurrentTime & "！！！买入商品页面打开未成功..."
            Gosub 写入日志文件
            Gosub 查找交易所老板
        EndIf 
    EndWhile 
    If BSDirection(BuyChoose) = 1
        PosX = 62
        PosY = 94
        Gosub 移动鼠标
        LeftClick 1
        Delay 500
        TNum = BuyChoose-1
        For TNum
            KeyPress 40,1
            Delay 500
        EndFor 
        Gosub 快速入仓
        Gosub 当前时间
        Message = CurrentTime & "点取：" & BuyChoose & "号标志商品结束..."
        Gosub 写入日志文件
        For 2
            Gosub 砍价要价
        EndFor 
        For TNum
            KeyPress 38,1
            Delay 500
        EndFor 
    EndIf 
    //键盘滚动商品买入
    PosX = 62
    PosY = 94