1.     如果 X > 0 并且 Y > 0 则
  2.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  3.     否则
  4.         跳转到标记 ceng1(子程序 ceng1)
  5.     条件结束
  6.     标记 cengding(子程序 ceng1)
  7.     延时 300 毫秒
  8.     令 XY = Bkgnd.FindColor(Hwnd,414,395,486,415,"A9C7D4")
  9.     令 ZB = InStr(XY,"|")
  10.     令 X = Clng(Left(XY,ZB - 1))
  11.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  12.     如果 X > 0 并且 Y > 0 则
  13.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  14.     否则
  15.         跳转到标记 cengding(子程序 ceng1)
  16.     条件结束
  17. 子程序结束
  18. 子程序 位置5
  19.     标记 guai5(子程序 位置5)
  20.     延时 300 毫秒
  21.     令 XY = Bkgnd.FindColor(Hwnd,896,406,923,420,"3D835A")
  22.     令 ZB = InStr(XY,"|")
  23.     令 X = Clng(Left(XY,ZB - 1))
  24.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  25.     如果 X > 0 并且 Y > 0 则
  26.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  27.     否则
  28.         跳转到标记 guai5(子程序 位置5)
  29.     条件结束
  30. 子程序结束
  31. 子程序 位置4
  32.     标记 guai4(子程序 位置4)
  33.     延时 300 毫秒
  34.     令 XY = Bkgnd.FindColor(Hwnd,896,349,923,364,"3D835A")
  35.     令 ZB = InStr(XY,"|")
  36.     令 X = Clng(Left(XY,ZB - 1))
  37.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  38.     如果 X > 0 并且 Y > 0 则
  39.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  40.     否则
  41.         跳转到标记 guai4(子程序 位置4)
  42.     条件结束
  43. 子程序结束
  44. 子程序 位置3
  45.     标记 guai3(子程序 位置3)
  46.     延时 300 毫秒
  47.     令 XY = Bkgnd.FindColor(Hwnd,896,292,923,308,"3D835A")
  48.     令 ZB = InStr(XY,"|")
  49.     令 X = Clng(Left(XY,ZB - 1))
  50.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  51.     如果 X > 0 并且 Y > 0 则
  52.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  53.     否则
  54.         跳转到标记 guai3(子程序 位置3)
  55.     条件结束
  56. 子程序结束
  57. 子程序 位置2
  58.     标记 guai2(子程序 位置2)
  59.     延时 300 毫秒
  60.     令 XY = Bkgnd.FindColor(Hwnd,896,237,923,253,"3D835A")
  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.         跳转到标记 guai2(子程序 位置2)
  68.     条件结束
  69. 子程序结束
  70. 子程序 位置1
  71.     标记 guai1(子程序 位置1)
  72.     延时 300 毫秒
  73.     令 XY = Bkgnd.FindColor(Hwnd,894,183,923,195,"3D835A")
  74.     令 ZB = InStr(XY,"|")
  75.     令 X = Clng(Left(XY,ZB - 1))
  76.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  77.     如果 X > 0 并且 Y > 0 则
  78.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  79.     否则
  80.         跳转到标记 guai1(子程序 位置1)
  81.     条件结束
  82. 子程序结束
  83. 子程序 yaoshi11
  84.     标记 钥匙1(子程序 yaoshi11)
  85.     令 se = Bkgnd.GetPixelColor(Hwnd,471,236)
  86.     如果 se = "AFE2FF" 则
  87.         调用 Bkgnd.LeftClick(Hwnd,471,236)
  88.     否则
  89.         跳转到标记 钥匙1(子程序 yaoshi11)
  90.     条件结束
  91. 子程序结束
  92. 子程序 yaoshi22
  93.     标记 钥匙2(子程序 yaoshi22)
  94.     令 se = Bkgnd.GetPixelColor(Hwnd,471,261)
  95.     如果 se = "AFE2FF" 则
  96.         调用 Bkgnd.LeftClick(Hwnd,471,261)
  97.     否则
  98.         跳转到标记 钥匙2(子程序 yaoshi22)
  99.     条件结束
  100. 子程序结束