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