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