1.     当 7 = 7 时循环
  2. 子程序结束
  3. 子程序 做任务
  4.     dm.KeyDown(162)
  5.     延时 200 毫秒
  6.     dm.KeyPress(70)
  7.     延时 200 毫秒
  8.     dm.KeyUp(162)
  9.     延时 200 毫秒
  10. 子程序结束
  11. 子程序 回广成子
  12.     dm.KeyPress(105)
  13.     延时 6000 毫秒
  14.     令 s = dm.Ocr(751,375,860,486,"7aceea-000000",1.0)
  15.     令 dm_ret = dm.FindStr(751,375,860,486,"成子","7aceea-000000",1.0,intX,intY)
  16.     如果 intX > 0 则
  17.         dm.MoveTo(intX + 12,intY + 3)
  18.         dm.LeftClick()
  19.     否则
  20.         MsgBox("找不到成子")
  21.     条件结束
  22.     dm.Moveto(intX + 12,intY + 3)
  23.     延时 300 毫秒
  24.     dm.LeftClick()
  25.     dm.Moveto(intX + 12,intY + 3)
  26.     延时 300 毫秒
  27.     dm.LeftClick()
  28.     dm.Moveto(intX + 12,intY + 3)
  29.     延时 300 毫秒
  30.     dm.LeftClick()
  31.     调用 是动是静
  32.     调用 完成任务
  33. 子程序结束
  34. 子程序 完成任务了吗
  35.     循环开始
  36.         令 dm_ret = dm.FindColor(766,320,831,337,"00ff00-000000",1.0,0,intX,intY)
  37.         如果 intX >= 0 并且 intY >= 0 则
  38.             跳出循环
  39.         否则
  40.         条件结束
  41.     当 7 = 7 时循环
  42. 子程序结束