1.     条件结束
  2.     延时 500 毫秒
  3.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  4.     如果 ga1 = "000068" 则
  5.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  6.     否则
  7.         延时 300 毫秒
  8.         跳转到标记 再来2(子程序 蓝60)
  9.     条件结束
  10.     标记 gh4(子程序 蓝60)
  11.     延时 500 毫秒
  12.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  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.         延时 400 毫秒
  19.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  20.         延时 400 毫秒
  21.         跳转到标记 lusehaole3(子程序 蓝60)
  22.     否则
  23.     条件结束
  24.     标记 NOOK2(子程序 蓝60)
  25.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
  26.     令 ZB = InStr(XY,"|")
  27.     令 X = Clng(Left(XY,ZB - 1))
  28.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  29.     如果 X > 0 并且 Y > 0 则
  30.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  31.         延时 300 毫秒
  32.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  33.     否则
  34.     条件结束
  35.     延时 300 毫秒
  36.     标记 lusehaole3(子程序 蓝60)
  37.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  38.     令 ZB = InStr(XY,"|")
  39.     令 X = Clng(Left(XY,ZB - 1))
  40.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  41.     如果 X > 0 并且 Y > 0 则
  42.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  43.     否则
  44.         跳转到标记 gh4(子程序 蓝60)
  45.     条件结束
  46.     延时 800 毫秒
  47.     令 ca = Bkgnd.GetPixelColor(Hwnd,577,547)
  48.     如果 ca = "7E4011" 则
  49.         延时 300 毫秒
  50.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  51.     否则
  52.         跳转到标记 NOOK2(子程序 蓝60)
  53.     条件结束
  54.     令 l = l + 1
  55.     令 lo = l
  56.     标记 蓝达到要求2(子程序 蓝60)
  57. 子程序结束
  58. 子程序 蓝40
  59.     延时 1000 毫秒
  60.     标记 再来2(子程序 蓝40)
  61.     令 ga = Bkgnd.GetPixelColor(Hwnd,558,564)
  62.     如果 ga = "3F4244" 则
  63.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  64.     否则
  65.         跳转到标记 蓝达到要求2(子程序 蓝40)
  66.     条件结束
  67.     延时 500 毫秒
  68.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  69.     如果 ga1 = "000068" 则
  70.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  71.     否则
  72.         延时 300 毫秒
  73.         跳转到标记 再来2(子程序 蓝40)
  74.     条件结束
  75.     标记 gh4(子程序 蓝40)
  76.     延时 500 毫秒
  77.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  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.         延时 400 毫秒
  84.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  85.         延时 400 毫秒
  86.         跳转到标记 lusehaole3(子程序 蓝40)
  87.     否则
  88.     条件结束
  89.     标记 NOOK2(子程序 蓝40)
  90.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
  91.     令 ZB = InStr(XY,"|")
  92.     令 X = Clng(Left(XY,ZB - 1))
  93.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  94.     如果 X > 0 并且 Y > 0 则
  95.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  96.         延时 300 毫秒
  97.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  98.     否则
  99.     条件结束
  100.     延时 300 毫秒