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