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.     否则
  7.         跳转到标记 chongwu3hao(子程序 chongwu3hao)
  8.     条件结束
  9.     延时 500 毫秒
  10.     令 CW1 = Bkgnd.GetPixelColor(Hwnd,902,184)
  11.     如果 CW1 = "A9C7D4" 则
  12.         调用 Bkgnd.LeftClick(Hwnd,902,184)
  13.     否则
  14.         跳转到标记 shengjile(子程序 chongwu3hao)
  15.     条件结束
  16.     标记 chongwutui(子程序 chongwu3hao)
  17.     延时 500 毫秒
  18.     令 XY = Bkgnd.FindColor(Hwnd,421,381,494,405,"A9C7D4")
  19.     令 ZB = InStr(XY,"|")
  20.     令 X = Clng(Left(XY,ZB - 1))
  21.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  22.     如果 X > 0 并且 Y > 0 则
  23.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  24.     否则
  25.         跳转到标记 chongwutui(子程序 chongwu3hao)
  26.     条件结束
  27.     标记 shengjile(子程序 chongwu3hao)
  28. 子程序结束
  29. 子程序 chongwu4hao
  30.     延时 500 毫秒
  31.     令 ca = Bkgnd.GetPixelColor(Hwnd,812,212)
  32.     如果 ca = "547950" 则
  33.     否则
  34.         标记 zuidading(子程序 chongwu4hao)
  35.         标记 zuida(子程序 chongwu4hao)
  36.         延时 500 毫秒
  37.         令 a = Bkgnd.GetPixelColor(Hwnd,910,212)
  38.         如果 a = "A9C7D4" 则
  39.             调用 Bkgnd.LeftClick(Hwnd,910,212)
  40.         条件结束
  41.         延时 600 毫秒
  42.         令 zuida = Bkgnd.GetPixelColor(Hwnd,590,320)
  43.         如果 zuida = "000000" 则
  44.             调用 Bkgnd.LeftClick(Hwnd,590,320)
  45.         否则
  46.             延时 500 毫秒
  47.             跳转到标记 zuida(子程序 chongwu4hao)
  48.         条件结束
  49.         延时 500 毫秒
  50.         令 zuidading = Bkgnd.GetPixelColor(Hwnd,514,387)
  51.         如果 zuidading = "A9C7D4" 则
  52.             调用 Bkgnd.LeftClick(Hwnd,514,387)
  53.         否则
  54.             延时 500 毫秒
  55.             跳转到标记 zuidading(子程序 chongwu4hao)
  56.         条件结束
  57.     条件结束
  58.     标记 chongwu4hao(子程序 chongwu4hao)
  59.     延时 500 毫秒
  60.     令 XY = Bkgnd.FindColor(Hwnd,483,140,613,185,"141A1C")
  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.     否则
  67.         跳转到标记 chongwu4hao(子程序 chongwu4hao)
  68.     条件结束
  69.     延时 500 毫秒
  70.     令 CW1 = Bkgnd.GetPixelColor(Hwnd,902,184)
  71.     如果 CW1 = "A9C7D4" 则
  72.         调用 Bkgnd.LeftClick(Hwnd,902,184)
  73.     否则
  74.         跳转到标记 shengjile(子程序 chongwu4hao)
  75.     条件结束
  76.     标记 chongwutui(子程序 chongwu4hao)
  77.     延时 500 毫秒
  78.     令 XY = Bkgnd.FindColor(Hwnd,421,381,494,405,"A9C7D4")
  79.     令 ZB = InStr(XY,"|")
  80.     令 X = Clng(Left(XY,ZB - 1))
  81.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  82.     如果 X > 0 并且 Y > 0 则
  83.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  84.     否则
  85.         跳转到标记 chongwutui(子程序 chongwu4hao)
  86.     条件结束
  87.     标记 shengjile(子程序 chongwu4hao)
  88. 子程序结束
  89. 子程序 chongwu5hao
  90.     延时 500 毫秒
  91.     令 ca = Bkgnd.GetPixelColor(Hwnd,812,212)
  92.     如果 ca = "547950" 则
  93.     否则
  94.         标记 zuidading(子程序 chongwu5hao)
  95.         标记 zuida(子程序 chongwu5hao)
  96.         延时 500 毫秒
  97.         令 a = Bkgnd.GetPixelColor(Hwnd,910,212)
  98.         如果 a = "A9C7D4" 则
  99.             调用 Bkgnd.LeftClick(Hwnd,910,212)
  100.         条件结束