End If xunhuan =jyl + 3 For xunhuan MoveR 34, 0 Delay 200 //前3次不点击 If k < 4 Then Else Call dianji() End If Delay 100 yu = k Mod 8 If yu = 0 Then MoveR -272,34 End If k=k+1 Next Else Delay 500 Goto keyijy End If Delay 500 ///点击交易1 Rem dianjy FindPic 0,0,1024,768,"Attachment:\jy2.bmp",0.9,X,Y If X > 0 Then MoveTo X+50, Y+5 Delay 300 LeftClick 1 Else Delay 500 Goto dianjy End If Call Plugin.Window.Hide(hw) Call Plugin.Window.Show(HWz) MoveTo 0,0 Delay 1000 ///点击交易2 Rem dianjy2 FindPic 0,0,1024,768,"Attachment:\jy2.bmp",0.9,X,Y If X > 0 Then MoveTo X+50, Y+5 Delay 300 LeftClick 1 Else Delay 500 Goto dianjy2 End If Delay 1000 If baoguoman=1 Then Call huicheng() End If End Sub Sub huicheng() IfColor 731, 743, "E1EEF6", 0 Then MoveTo 731, 743 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 695, 743, "DEF0F7", 0 Then MoveTo 695, 743 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 658, 741, "ECF4FB", 0 Then MoveTo 658, 741 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 621, 741, "ECF4FB", 0 Then MoveTo 621, 741 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 583, 744, "E5FBF6", 0 Then MoveTo 583, 744 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 546, 746, "BCDFE9", 0 Then MoveTo 546, 746 Delay 300 LeftDoubleClick 1 Delay 300 Else IfColor 509, 746, "BCDFE9", 0 Then MoveTo 509, 746 Delay 300