1.                                                                         延时200毫秒
  2.                                                                         Do
  3.                                                                         m_ret = dm.FindStr(0,0,2000,2000,"确认关闭分解商店吗","ffffff-000000",1.0,intX,intY)
  4.                                                                         m_ret = dm.FindStr(0,0,2000,2000,"确认关闭分解商店吗","ffffff-000000",1.0,intX,intY)
  5.                                                                         如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  6.                                                                             延时200毫秒
  7.                                                                             延时200毫秒
  8.                                                                             dm. MoveTo intX+50,intY+35
  9.                                                                             dm. MoveTo intX+50,intY+35
  10.                                                                             延时1000毫秒
  11.                                                                             dm.LeftDoubleClick
  12.                                                                             延时500毫秒
  13.                                                                             dm.KeyPress 27
  14.                                                                             dm.KeyPress 27
  15.                                                                             Exit Do
  16.                                                                             End If
  17.                                                                             End If
  18.                                                                             Loop
  19.                                                                             Loop
  20.                                                                             //按下===============================
  21.                                                                             延时200毫秒
  22.                                                                             dm.KeyDown 40
  23.                                                                             延时300毫秒
  24.                                                                             dm.KeyUp 40
  25.                                                                             dm.KeyUp 40
  26.                                                                             //按上===============================
  27.                                                                             dm.KeyDown 38
  28.                                                                             延时700毫秒
  29.                                                                             dm.KeyUp 38
  30.                                                                             Next
  31.                                                                             Next
  32.                                                                             //按上===============================
  33.                                                                             dm.KeyDown 38
  34.                                                                             延时100毫秒
  35.                                                                             dm.KeyUp 38
  36.                                                                             dm.KeyUp 38
  37.                                                                             //按下===============================
  38.                                                                             延时200毫秒
  39.                                                                             dm.KeyDown 40
  40.                                                                             延时1000毫秒
  41.                                                                             dm.KeyUp 40
  42.                                                                             //按左===============================
  43.                                                                             //
  44.                                                                             标记 找分解修理
  45.                                                                             标记 找分解修理
  46.                                                                             dm_ret = dm.FindPic(5,55,637,270,"赛利亚7.bmp","000000",0.9,0,intX,intY)
  47.                                                                             如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  48.                                                                                 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  49.                                                                                     dm.KeyUp 37
  50.                                                                                     延时100毫秒
  51.                                                                                     dm.MoveTo intX + 70, intY + 140
  52.                                                                                     延时100毫秒
  53.                                                                                     dm.LeftClick
  54.                                                                                 否则
  55.                                                                                     延时100毫秒
  56.                                                                                     dm.KeyDown 37
  57.                                                                                     延时100毫秒
  58.                                                                                     跳转到标记 找分解修理
  59.                                                                                     End If
  60.                                                                                     标记 找分解
  61.                                                                                     标记 找分解
  62.                                                                                     dm_ret = dm.FindPic(5,207,534,423,"赛利亚8.bmp","000000",0.9,0,intX,intY)
  63.                                                                                     如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  64.                                                                                         延时200毫秒
  65.                                                                                         dm. MoveTo intX , intY + 115
  66.                                                                                         延时200毫秒
  67.                                                                                         dm.LeftClick
  68.                                                                                         延时200毫秒
  69.                                                                                         dm.LeftClick
  70.                                                                                         延时200毫秒
  71.                                                                                         dm.KeyPress 27
  72.                                                                                     否则
  73.                                                                                         跳转到标记 找分解
  74.                                                                                         End If
  75.                                                                                         End If
  76.                                                                                         标记 回仓库
  77.                                                                                         标记 回仓库
  78.                                                                                         延时20毫秒
  79.                                                                                         延时20毫秒
  80.                                                                                         dm_ret = dm.FindPic(317,93,639,296,"赛利亚9.bmp","000000",0.9,0,intX,intY)
  81.                                                                                         如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  82.                                                                                             如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  83.                                                                                                 dm.KeyUp 39
  84.                                                                                                 dm.KeyUp 39
  85.                                                                                                 延时500毫秒
  86.                                                                                                 延时500毫秒
  87.                                                                                             否则
  88.                                                                                                 dm.KeyDown 39
  89.                                                                                                 延时20毫秒
  90.                                                                                                 跳转到标记 回仓库
  91.                                                                                                 End If
  92.                                                                                                 End If
  93.                                                                                                 Do
  94.                                                                                                 dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
  95.                                                                                                 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  96.                                                                                                     dm.KeyUp 38
  97.                                                                                                     延时50毫秒
  98.                                                                                                     Exit Do
  99.                                                                                                 否则
  100.                                                                                                     dm.KeyDown 38