1.     如果 intX >= 0 并且 intY >= 0 则
  2.         dm.MoveTo(intX + 80,intY)
  3.         延时 100 毫秒
  4.         dm.LeftDoubleClick()
  5.         延时 2000 毫秒
  6.         dm.keydown(9)
  7.         延时 200 毫秒
  8.         dm.keydown(49)
  9.         延时 200 毫秒
  10.         dm.keydown(50)
  11.         延时 200 毫秒
  12.         dm.keydown(51)
  13.         延时 200 毫秒
  14.         dm.keydown(49)
  15.         延时 200 毫秒
  16.         dm.keydown(50)
  17.         延时 200 毫秒
  18.         dm.keydown(51)
  19.         延时 200 毫秒
  20.         dm.keydown(49)
  21.         延时 200 毫秒
  22.         dm.keydown(50)
  23.         延时 200 毫秒
  24.         dm.keydown(51)
  25.         延时 200 毫秒
  26.         dm.keydown(49)
  27.         延时 200 毫秒
  28.         dm.keydown(50)
  29.         延时 200 毫秒
  30.         dm.keydown(51)
  31.         延时 200 毫秒
  32.         dm.keydown(49)
  33.         延时 200 毫秒
  34.         dm.keydown(50)
  35.         延时 200 毫秒
  36.         dm.keydown(51)
  37.         延时 200 毫秒
  38.         dm.keydown(49)
  39.         延时 200 毫秒
  40.         dm.keydown(50)
  41.         延时 200 毫秒
  42.         dm.keydown(51)
  43.         延时 200 毫秒
  44.         dm.keydown(49)
  45.         延时 200 毫秒
  46.         dm.keydown(50)
  47.         延时 200 毫秒
  48.         dm.keydown(51)
  49.         延时 200 毫秒
  50.         dm.keydown(49)
  51.         延时 200 毫秒
  52.         dm.keydown(50)
  53.         延时 200 毫秒
  54.         dm.keydown(51)
  55.         延时 200 毫秒
  56.     否则
  57.     条件结束
  58. 子程序结束
  59. 子程序 daguai2
  60.     令 dm_ret = dm.FindStr(0,0,2000,2000,"击","e5f2f2-000000",1.0,intX,intY)
  61.     如果 intX >= 0 并且 intY >= 0 则
  62.         dm.MoveTo(intX + 80,intY)
  63.         延时 100 毫秒
  64.         dm.LeftDoubleClick()
  65.         延时 2000 毫秒
  66.         dm.keydown(9)
  67.         延时 200 毫秒
  68.         dm.keydown(49)
  69.         延时 200 毫秒
  70.         dm.keydown(50)
  71.         延时 200 毫秒
  72.         dm.keydown(51)
  73.         延时 200 毫秒
  74.         dm.keydown(49)
  75.         延时 200 毫秒
  76.         dm.keydown(50)
  77.         延时 200 毫秒
  78.         dm.keydown(51)
  79.         延时 200 毫秒
  80.     否则
  81.     条件结束
  82. 子程序结束
  83. 子程序 zhong
  84.     令 dm_ret = dm.FindStr(15,195,170,324,"6","ffa000-000000",1.0,intX,intY)
  85.     如果 intX >= 0 并且 intY >= 0 则
  86.         dm.MoveTo(intX,intY)
  87.         延时 100 毫秒
  88.         dm.LeftDoubleClick()
  89.         延时 100 毫秒
  90.     否则
  91.     条件结束
  92.     延时 1000 毫秒
  93.     令 dm_ret = dm.FindStr(11,205,183,304,"务","ffa000-000000",1.0,intX,intY)
  94.     如果 intX >= 0 并且 intY >= 0 则
  95.         dm.MoveTo(intX,intY)
  96.         延时 100 毫秒
  97.         dm.LeftDoubleClick()
  98.         延时 1000 毫秒
  99.         dm.MoveTo(intX,intY + 10)
  100.         延时 100 毫秒