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