FindPic 0,0,1024,768,"Attachment:\图标.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Dim StandX,StandY
Dim a(7), nPic,nSeach
FindColor 0,0,1280,1024,"84D0D9",PointX,PointY
If PointX > 0 And PointY > 0 Then 
    StandX = PointX
    StandY = PointY
    MoveTo PointX+444, PointY+195
    LeftClick 1
End If
Delay 50
For k = 0 To 9
    For j = 0 To 6
        a(j)=0
    Next
    PointX = StandX
    Dim h
    h = 0
    If k>0 then
        While h = 0
            IfColor StandX, StandY, "3F9CCA", 1 Then
                Delay 10
            Else 
                h=1
            End If
        Wend
    End If
    Dim hh
    hh = 0
    While hh = 0
        IfColor StandX, StandY, "84D0D9", 1 Then
            Delay 10
        Else 
            hh=1
        End If
    Wend
    Dim hhh
    hhh = 0
    While hhh = 0
        IfColor StandX, StandY, "3F9CCA", 1 Then
            Delay 10
        Else 
            hhh=1
        End If
    Wend
    nPic = 0
    nSeach=0
    While nSeach <> 7
        nSeach = 0
        PointX = StandX + nPic * (64 + 8)
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\橙子.bmp",0.7,X1,Y1
        If X1 > 0 And Y1 > 0 Then 
            a(nPic) = 1
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\樱桃.bmp",0.7,X2,Y2
        If X2 > 0 And Y2 > 0 Then 
            a(nPic) = 2
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\香蕉.bmp",0.7,X3,Y3
        If X3 > 0 And Y3 > 0 Then 
            a(nPic) = 3
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\西瓜.bmp",0.7,X4,Y4
        If X4 > 0 And Y4 > 0 Then 
            a(nPic) = 4
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\西红柿.bmp",0.7,X5,Y5
        If X5 > 0 And Y5 > 0 Then 
            a(nPic) = 5
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1
        End If
        Delay 50
        FindPic PointX,PointY,PointX+64,PointY+83,"Attachment:\柠檬.bmp",0.7,X6,Y6
        If X6 > 0 And Y6 > 0 Then 
            a(nPic) = 6
            nPic = nPic + 1
        Else 
            nSeach=nSeach+1