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