1.                                     //打开分解装备界面===============================
  2.                                     do
  3.                                     dm_ret = dm.FindStr(154,106,552,373,"手续费","96ff1e-000000",1.0,intX,intY)
  4.                                     如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  5.                                         dm.MoveTo intX,intY
  6.                                         延时200毫秒
  7.                                         dm.LeftDoubleClick
  8.                                         延时200毫秒
  9.                                         Exit Do
  10.                                         End If
  11.                                         loop
  12.                                         loop
  13.                                         //分解准备===============================
  14.                                         do
  15.                                         dm_ret = dm.FindStr(140,345,190,361,"装备分解","ddc58d-000000",1.0,intX,intY)
  16.                                         dm_ret = dm.FindStr(140,345,190,361,"装备分解","ddc58d-000000",1.0,intX,intY)
  17.                                         如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  18.                                             dm.MoveTo intX+15,intY
  19.                                             延时200毫秒
  20.                                             dm.LeftDoubleClick
  21.                                             dm.LeftDoubleClick
  22.                                             延时200毫秒
  23.                                             Exit Do
  24.                                             End If
  25.                                             End If
  26.                                             loop
  27.                                             ///////////////////////////////////////////////////
  28.                                             ///////////////////////////////////////////////////
  29.                                             //分解装备===============================
  30.                                             dim x,y,a,b,c // （定义横坐标，竖坐标，横格数，竖格数，第一格横坐标5个变量）
  31.                                             x=345//（背包第一格横坐标）
  32.                                             y=235//（背包第一格纵坐标）
  33.                                             a=8//（横向格子数）
  34.                                             b=4//（竖向格子数）
  35.                                             c=x //（赋值第一格横坐标，为了遍历一排之后，鼠标重新回到第一排第一格的位置）
  36.                                             循环 b//（横向几格就循环几遍） 遍
  37.                                                 循环 b//（横向几格就循环几遍） 遍
  38.                                                     循环 a //（竖向几格就循环几遍） 遍
  39.                                                         循环 a //（竖向几格就循环几遍） 遍
  40.                                                             延时200 //（这里加延时方便测试脚本）毫秒
  41.                                                             dm. MoveTo x,y //（鼠标移到第一格 X Y ）
  42.                                                             延时200毫秒
  43.                                                             dm. LeftClick
  44.                                                             延时200毫秒
  45.                                                             dm. KeyPress 13
  46.                                                             dm. KeyPress 13
  47.                                                             Do
  48.                                                             Do
  49.                                                             //防回车键按多
  50.                                                             dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
  51.                                                             dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
  52.                                                             如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  53.                                                                 延时100毫秒
  54.                                                                 dm. KeyPress 13
  55.                                                                 Exit Do
  56.                                                                 Exit Do
  57.                                                             否则
  58.                                                             否则
  59.                                                                 End If
  60.                                                                 End If
  61.                                                                 dm_ret = dm.FindStr(236,154,332,182,"装备分解成功","ffffff-000000",1.0,intX,intY)
  62.                                                                 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  63.                                                                     延时500毫秒
  64.                                                                     dm. KeyPress 13
  65.                                                                     延时500毫秒
  66.                                                                     Exit Do
  67.                                                                     Exit Do
  68.                                                                 否则
  69.                                                                 否则
  70.                                                                     //防回车键按多
  71.                                                                     dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
  72.                                                                     dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
  73.                                                                     dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
  74.                                                                     如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
  75.                                                                         延时100毫秒
  76.                                                                         dm. KeyPress 13
  77.                                                                         Exit Do
  78.                                                                         Exit Do
  79.                                                                     否则
  80.                                                                     否则
  81.                                                                         End If
  82.                                                                         End If
  83.                                                                         End If
  84.                                                                         End If
  85.                                                                         Loop
  86.                                                                         Loop
  87.                                                                         x=x+30 //（鼠标移到第一排第二格）
  88.                                                                         Next
  89.                                                                         Next
  90.                                                                         x=c //（鼠标横坐标回到第一格）
  91.                                                                         y=y+30 //（鼠标移动到第二排第一格）
  92.                                                                         y=y+30 //（鼠标移动到第二排第一格）
  93.                                                                         Next
  94.                                                                         Next
  95.                                                                         //按ESC关闭===============================
  96.                                                                         延时200毫秒
  97.                                                                         dm.KeyPress 27
  98.                                                                         延时500毫秒
  99.                                                                         dm.KeyPress 27
  100.                                                                         dm.KeyPress 27