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