1. 延时 500 毫秒
  2. dm.LeftDoubleClick()
  3. 延时 500 毫秒
  4. dm.MoveTo(511,408)
  5. 延时 1000 毫秒
  6. 注释：还任务
  7. 令 i = 0
  8. 循环当 i = 0 时
  9.     令 dm_ret = dm.FindStr(98,446,132,461,"任务","362000-000000",1.0,x,y)
  10.     如果 x >= 0 并且 y >= 0 则
  11.         调用 renwu()
  12.     否则
  13.         跳转到标记 绿子仓
  14.     条件结束
  15. 循环结束
  16. 子程序 renwu()
  17.     令 i = 0
  18.     循环当 i = 0 时
  19.         令 dm_ret = dm.FindStr(98,446,132,461,"任务","362000-000000",1.0,x,y)
  20.         如果 x >= 0 并且 y >= 0 则
  21.             令 i = 1
  22.         条件结束
  23.     循环结束
  24.     dm.MoveTo(x,y)
  25.     延时 500 毫秒
  26.     dm.LeftDoubleClick()
  27.     延时 500 毫秒
  28. 子程序结束
  29. 注释：按下F12
  30. dm.keypress(123)
  31. 延时 1000 毫秒
  32. dm.keypress(123)
  33. 延时 1000 毫秒