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