1.     否则
  2.     条件结束
  3.     标记 NOOK5(子程序 红50)
  4.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"111778",0,0.96)
  5.     令 ZB = InStr(XY,"|")
  6.     令 X = Clng(Left(XY,ZB - 1))
  7.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  8.     如果 X > 0 并且 Y > 0 则
  9.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  10.         延时 500 毫秒
  11.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  12.     否则
  13.     条件结束
  14.     延时 300 毫秒
  15.     标记 lusehaole1(子程序 红50)
  16.     延时 300 毫秒
  17.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  18.     令 ZB = InStr(XY,"|")
  19.     令 X = Clng(Left(XY,ZB - 1))
  20.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  21.     如果 X > 0 并且 Y > 0 则
  22.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  23.     否则
  24.         跳转到标记 gh1(子程序 红50)
  25.     条件结束
  26.     延时 800 毫秒
  27.     令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
  28.     如果 ca = "000460" 则
  29.         延时 300 毫秒
  30.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  31.     否则
  32.         跳转到标记 NOOK5(子程序 红50)
  33.     条件结束
  34.     令 h = h + 1
  35.     令 ho = h
  36.     标记 红达到要求1(子程序 红50)
  37. 子程序结束
  38. 子程序 红20
  39.     延时 500 毫秒
  40.     标记 再来6(子程序 红20)
  41.     令 ga = Bkgnd.GetPixelColor(Hwnd,457,574)
  42.     如果 ga = "3F4344" 则
  43.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  44.     否则
  45.         跳转到标记 红达到要求2(子程序 红20)
  46.     条件结束
  47.     延时 500 毫秒
  48.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  49.     如果 ga1 = "000068" 则
  50.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  51.     否则
  52.         延时 500 毫秒
  53.         跳转到标记 再来6(子程序 红20)
  54.     条件结束
  55.     标记 gh(子程序 红20)
  56.     延时 300 毫秒
  57.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  58.     令 ZB = InStr(XY,"|")
  59.     令 X = Clng(Left(XY,ZB - 1))
  60.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  61.     如果 X > 0 并且 Y > 0 则
  62.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  63.         延时 400 毫秒
  64.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  65.         延时 400 毫秒
  66.         跳转到标记 lusehaole(子程序 红20)
  67.     否则
  68.     条件结束
  69.     标记 NOOK6(子程序 红20)
  70.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"111778",0,0.96)
  71.     令 ZB = InStr(XY,"|")
  72.     令 X = Clng(Left(XY,ZB - 1))
  73.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  74.     如果 X > 0 并且 Y > 0 则
  75.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  76.         延时 500 毫秒
  77.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  78.     否则
  79.     条件结束
  80.     标记 lusehaole(子程序 红20)
  81.     延时 300 毫秒
  82.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  83.     令 ZB = InStr(XY,"|")
  84.     令 X = Clng(Left(XY,ZB - 1))
  85.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  86.     如果 X > 0 并且 Y > 0 则
  87.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  88.     否则
  89.         跳转到标记 gh(子程序 红20)
  90.     条件结束
  91.     延时 800 毫秒
  92.     令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
  93.     如果 ca = "000460" 则
  94.         延时 300 毫秒
  95.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  96.     否则
  97.         跳转到标记 NOOK6(子程序 红20)
  98.     条件结束
  99.     令 h = h + 1
  100.     令 ho = h