Else 
        VBSCall MessageBox ("错误的卖出类型参数！")
    EndIf 
    Gosub 行情查看
    If iaccountant = 0
        Gosub 买入商品
    ElseIf iaccountant = 1
        Gosub 会计买入
    Else 
        VBSCall MessageBox ("错误的卖出类型参数！")
    EndIf 
    Gosub 行动力保护
Return 交易事项
Sub 会计买入
    //Delay 1000
    Num = 1
    For 10
        If BSDirection(Num) = 1 or BSDirection(Num) = 2
            If BSDirection(Num) = 1
                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 
                PosX = 62
                PosY = 94
                Gosub 移动鼠标
                LeftClick 1
                Delay 500
                TNum = Num-1
                For TNum
                    KeyPress 40,1
                    Delay 500
                EndFor 
                Gosub 快速入仓
                If MarketBuy(Num) = 1 or  MarketBuy(Num) = 2
                    Gosub 砍价要价
                EndIf 
                //点确定
                PosX = 661
                PosY = 411
                Gosub 坐标转换
                IfColor PosX,PosY,736A56,1
                    MoveTo PosX,PosY
                    Delay 600
                    LeftClick 1
                    Gosub 延时判定
                    Delay 2000
                    Gosub 当前时间
                    Message = CurrentTime & "买入：" & Num & " 号商品成功..."
                    Gosub 写入日志文件
                Else 
                    KeyPress 27,1
                    Delay 600
                    Gosub 当前时间
                    Message = CurrentTime & "！！！买入：" & Num & " 号商品未成功..."
                    Gosub 写入日志文件
                EndIf 
            EndIf 
        Else 
            Goto 会计买入结束
        EndIf 
        Num = Num+1
    EndFor 
    Rem 会计买入结束
Return 会计买入
Sub 会计卖出
    //Delay 1000
    Num = 1
    For 15
        If MarketSell(Num) = 0
            If Num = 1
                Gosub 当前时间
                Message = CurrentTime & "没有卖出商品..."
                Gosub 写入日志文件
            EndIf 
            Goto 会计卖出结束
        Else 
            //StMenu = 0
            //While StMenu = 0
            PosX = 687
            PosY = 359