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