End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\蓝莓.bmp",0.7,X7,Y7
        If X7 > 0 And Y7 > 0 Then 
            a(nPic) = 7
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
    Wend
    Dim hhhh
    hhhh = 0
    If k > 2 Then 
    	k=k
    End If
    While hhhh = 0
        IfColor StandX, StandY, "84D0D9", 1 Then
            Delay 10
        Else 
            hhhh=1
        End If
    Wend
    For i=0 To nPic - 1
        If a(i) = 1 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\橙子.bmp",0.7,X,Y
        End If
        If a(i) = 2 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\樱桃.bmp",0.7,X,Y
        End If
        If a(i) = 3 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\香蕉.bmp",0.7,X,Y
        End If
        If a(i) = 4 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\西瓜.bmp",0.7,X,Y
        End If
        If a(i) = 5 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\西红柿.bmp",0.7,X,Y
        End If
        If a(i) = 6 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\柠檬.bmp",0.7,X,Y
        End If
        If a(i) = 7 Then 
            FindPic StandX+12,StandY+225,StandX+496,StandY+275,"Attachment:\蓝莓.bmp",0.7,X,Y
        End If
        If X > 0 And Y > 0 Then 
            MoveTo X, Y
            LeftClick 1
            Delay 100
        End If
    Next
    Delay 100
    MoveTo StandX+444, StandY+195
    LeftClick 1
Next