End If Delay 800 ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 437,541) If ca="000460"then Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401) Else Goto NOOK6 End If h=h+1 ho=h Rem 红达到要求2 End sub Sub 蓝80 Delay 1000 Rem 再来 ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 583,544) If ga="0C0F11" Then Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401) Else Goto 蓝达到要求 End If Delay 500 ga1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 646, 330) If ga1="000068" then Call Plugin.Bkgnd.LeftClick(Hwnd, 646, 330) else Delay 300 Goto 再来 End if Rem gh6 Delay 500 XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "1C9E7D", 0, 0.96) ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) If X>0 and Y>0 then Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) Delay 400 Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30) Delay 400 Goto lusehaole5 Else End If Rem NOOK XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "653F21", 0, 0.96) ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) If X>0 and Y>0 then Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y) Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30) Else End if Delay 300 Rem lusehaole5 XY = Plugin.Bkgnd.FindColor(Hwnd, 401, 384, 473, 404, "A9C7D4") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) If X>0 and Y>0 then Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y) Else Goto gh6 End If Delay 800 ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 577,547) If ca="7E4011"then Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401) Else Goto NOOK End If l=l+1 lo=l Rem 蓝达到要求 End Sub Sub 蓝50 Delay 1000 Rem 再来1 ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 562,563) If ga="35393A" Then Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401) Else Goto 蓝达到要求1 End If Delay 500 ga1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 646, 330) If ga1="000068" then Call Plugin.Bkgnd.LeftClick(Hwnd, 646, 330) else