1.             令 ZB = InStr(XY,"|")
  2.             令 X = Clng(Left(XY,ZB - 1))
  3.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  4.             延时 200 毫秒
  5.             如果 X > 0 则
  6.                 延时 200 毫秒
  7.                 调用 Bkgnd.MoveTo(Hwnd,364,273)
  8.                 调用 Bkgnd.LeftClick(Hwnd,364,273)
  9.                 跳出循环
  10.             否则
  11.                 延时 200 毫秒
  12.                 令 XY = Bkgnd.FindColor(Hwnd,452,226,461,234,"0000AC")
  13.                 令 ZB = InStr(XY,"|")
  14.                 令 X = Clng(Left(XY,ZB - 1))
  15.                 令 Y = Clng(Right(XY,Len(XY) - ZB))
  16.                 延时 200 毫秒
  17.                 如果 X > 0 则
  18.                     延时 200 毫秒
  19.                     调用 Bkgnd.MoveTo(Hwnd,442,270)
  20.                     调用 Bkgnd.LeftClick(Hwnd,442,270)
  21.                     跳出循环
  22.                 否则
  23.                     延时 200 毫秒
  24.                     令 XY = Bkgnd.FindColor(Hwnd,524,226,533,234,"0000AC")
  25.                     令 ZB = InStr(XY,"|")
  26.                     令 X = Clng(Left(XY,ZB - 1))
  27.                     令 Y = Clng(Right(XY,Len(XY) - ZB))
  28.                     延时 200 毫秒
  29.                     如果 X > 0 则
  30.                         延时 200 毫秒
  31.                         调用 Bkgnd.MoveTo(Hwnd,511,277)
  32.                         调用 Bkgnd.LeftClick(Hwnd,511,277)
  33.                         跳出循环
  34.                     否则
  35.                         延时 200 毫秒
  36.                         令 XY = Bkgnd.FindColor(Hwnd,589,226,598,229,"0000AC")
  37.                         令 ZB = InStr(XY,"|")
  38.                         令 X = Clng(Left(XY,ZB - 1))
  39.                         令 Y = Clng(Right(XY,Len(XY) - ZB))
  40.                         延时 200 毫秒
  41.                         如果 X > 0 则
  42.                             延时 200 毫秒
  43.                             调用 Bkgnd.MoveTo(Hwnd,584,276)
  44.                             调用 Bkgnd.LeftClick(Hwnd,584,276)
  45.                             跳出循环
  46.                         否则
  47.                             令 YC = YC + 1
  48.                             如果 YC = 10 则
  49.                                 延时 200 毫秒
  50.                                 令 XY = Bkgnd.FindColor(Hwnd,769,188,772,190,"03235A")
  51.                                 令 ZB = InStr(XY,"|")
  52.                                 令 X = Clng(Left(XY,ZB - 1))
  53.                                 令 Y = Clng(Right(XY,Len(XY) - ZB))
  54.                                 延时 200 毫秒
  55.                                 如果 X > 0 则
  56.                                     延时 200 毫秒
  57.                                     调用 Bkgnd.MoveTo(Hwnd,770,189)
  58.                                     调用 Bkgnd.LeftClick(Hwnd,770,189)
  59.                                 条件结束
  60.                             条件结束
  61.                             延时 200 毫秒
  62.                             调用 Bkgnd.MoveTo(Hwnd,850,245)
  63.                             调用 Bkgnd.LeftClick(Hwnd,850,245)
  64.                             延时 200 毫秒
  65.                         条件结束
  66.                     条件结束
  67.                 条件结束
  68.             条件结束
  69.             延时 200 毫秒
  70.             令 XY = Bkgnd.FindColor(Hwnd,386,229,389,233,"0000AB")
  71.             令 ZB = InStr(XY,"|")
  72.             令 X = Clng(Left(XY,ZB - 1))
  73.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  74.             延时 200 毫秒
  75.             如果 X > 0 则
  76.                 延时 200 毫秒
  77.                 调用 Bkgnd.MoveTo(Hwnd,364,273)
  78.                 调用 Bkgnd.LeftClick(Hwnd,364,273)
  79.                 跳出循环
  80.             条件结束
  81.         循环结束
  82.         延时 200 毫秒
  83.         循环开始
  84.             延时 200 毫秒
  85.             令 XY = Bkgnd.FindColor(Hwnd,524,249,548,261,"32EDEB")
  86.             令 ZB = InStr(XY,"|")
  87.             令 X = Clng(Left(XY,ZB - 1))
  88.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  89.             延时 200 毫秒
  90.             如果 X > 0 则
  91.                 延时 200 毫秒
  92.                 调用 Bkgnd.MoveTo(Hwnd,544,254)
  93.                 调用 Bkgnd.LeftClick(Hwnd,544,254)
  94.                 跳出循环
  95.             否则
  96.                 延时 200 毫秒
  97.             条件结束
  98.         循环结束
  99.         延时 200 毫秒
  100.         令 JRW = 0