PosY = 362
                Gosub 坐标转换
                IfColor PosX,PosY,AA9977,1
                    LeftClick 1
                    Delay 600
                Else 
                    Goto 卖出行情查看结束
                EndIf 
            EndIf 
        EndIf 
        Num = Num+1
    EndFor 
    Rem 卖出行情查看结束
    //Num = 1
    //For 15
    //VBSCall MessageBox (Num)
    //VBSCall MessageBox (MarketSell(Num))
    //Num = Num+1
    //EndFor
Return 卖出行情查看
Sub 买入行情查看
    //选择买入标志商品
    BuyChoose = 0
    Num = 1
    For 10
        PosX = 155
        PosY = 143
        Gosub 坐标转换
        Gosub 商品坐标转换
        VBSCall FindColor(PosX,PosY,(PosX+200),PosY,"282828",x,y)
        If x>0 and y>0
            //VBSCall MessageBox (x)
            //VBSCall MessageBox (Y)
            //是不是大于百分之130
            If (x-PosX)*2>=iQuotation
                VBS BSDirection(Num) = 2
            Else 
                VBS BSDirection(Num) = 1
                PosX = 347
                PosY = 133
                Gosub 坐标转换
                Gosub 商品坐标转换
                IfColor PosX,PosY,CCDD11,2
                    VBS MarketBuy(Num) = 1
                    BuyChoose = Num
                Else 
                    IfColor PosX,PosY,22DD99,2
                        VBS MarketBuy(Num) = 2
                        If BuyChoose = 0
                            BuyChoose = Num
                        EndIf 
                    Else 
                        IfColor PosX,PosY,2277DD,2
                            VBS MarketBuy(Num) = 3
                        Else 
                            VBSCall MessageBox ("错误的行情走势参数！")
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        Else 
            Goto 买入行情查看结束
        EndIf 
        If Num>=5
            PosX = 372
            PosY = 369
            Gosub 移动鼠标
            IfColor PosX,PosY,000000,2
                PosX = 372
                PosY = 362
                Gosub 坐标转换
                IfColor PosX,PosY,AA9977,1
                    LeftClick 1
                    Delay 600
                Else 
                    Goto 买入行情查看结束
                EndIf 
            EndIf 
        EndIf 
        Num = Num+1
    EndFor 
    Rem 买入行情查看结束
    //Num = 1
    //For 10
    //VBSCall MessageBox (Num)
    //VBSCall MessageBox (BSDirection(Num))
    //VBSCall MessageBox (MarketBuy(Num))
    //Num = Num+1
    //EndFor
Return 买入行情查看
//======================================================================================
Sub 下码头
    //Delay 1000
    StMenu = 0
    While StMenu = 0
        PosX = 651+(InPier-1)*40
        PosY = 383
        Gosub 移动鼠标
        LeftClick 1
        Gosub 延时判定