Delay 300 Call Plugin.Bkgnd.LeftClick(Hwnd, 586,410) Else Goto zb End If zhuangbie = zhuangbie+1 zhuangbieo = zhuangbie Return Sub 红80 Delay 1000 Rem 再来4 ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 427,546) If ga="1A1E1F" 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 再来4 End if Rem gh 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 lusehaole2 Else End If Rem NOOK4 XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "111778", 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 Rem lusehaole2 Delay 300 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 gh End If Delay 800 ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 437,541) If ca="000460"then Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401) Else Goto NOOK4 End If h=h+1 ho=h Rem 红达到要求 End Sub Sub 红50 Delay 500 Rem 再来5 ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 438,558) If ga="313536" 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 Delay 300 Goto 再来5 End if Rem gh1 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))