MoveTo 910, 1054 LeftClick 1 Dim i i = 0 IfColor 904, 476, "C3E1F8", 2 Then i=i+8 End If IfColor 904, 476, "D2CCC5", 2 Then MoveTo 910, 1054 Delay 7000 LeftClick 1 End If Do while(i<8) FindPic 762,503,1154,571,"C:\Users\Administrator\Desktop\钓鱼插件.bmp",0.9,intX,intY If intX> 0 And intY> 0 Then TracePrint "找到图片" MoveTo 939, 1050 LeftClick 1 i = i + 1 Delay 200 Else TracePrint "没找到图片" IfColor 904, 476, "C3E1F8", 2 Then i = i + 8 End If IfColor 904, 476, "D2CCC5", 2 Then i = i + 8 End If End if Delay 200 Loop MoveTo 910, 1054 Delay 7000 LeftClick 1 楼楼帮我看看 我的也不收杆!!
MoveTo 897,1044 LeftClick 1 Dim i i = 0 IfColor 891, 459, "CDEBFF", 2 Then i=i+8 End If IfColor 891, 459, "DCD7CB", 2 Then MoveTo 897,1044 Delay 7000 LeftClick 1 End If Do while(i<8) FindPic 695,499,1202,564,"C:\Users\Administrator\Desktop\1.bmp",0.9,intX,intY If intX> 0 And intY> 0 Then TracePrint "找到图片" MoveTo 944,1042 LeftClick 1 i = i + 1 Delay 200 Else TracePrint "没找到图片" IfColor 891, 459, "CDEBFF", 2 Then i = i + 8 End If IfColor 891, 459, "DCD7CB", 2 Then i = i + 8 End If End if Delay 200 Loop MoveTo 897,1044 Delay 7000 LeftClick 1 楼楼救救,一直找不到图片