//打开分解装备界面===============================
    do
        dm_ret = dm.FindStr(154,106,552,373,"手续费","96ff1e-000000",1.0,intX,intY)
        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX,intY
            Delay 200
            dm.LeftDoubleClick
            Delay 200
            Exit Do
        End If
    loop

    //分解准备===============================
    do
        dm_ret = dm.FindStr(140,345,190,361,"装备分解","ddc58d-000000",1.0,intX,intY)

        If intX >= 0 and intY >= 0 Then
            dm.MoveTo intX+15,intY
            Delay 200
            dm.LeftDoubleClick
       
            Delay 200
            Exit Do
        End If

    loop
    ///////////////////////////////////////////////////

    //分解装备===============================
    dim x,y,a,b,c  // （定义横坐标，竖坐标，横格数，竖格数，第一格横坐标5个变量）
    x=345//（背包第一格横坐标）
    y=235//（背包第一格纵坐标）
    a=8//（横向格子数）
    b=4//（竖向格子数）
    c=x //（赋值第一格横坐标，为了遍历一排之后，鼠标重新回到第一排第一格的位置）
    For b//（横向几格就循环几遍）

        For a //（竖向几格就循环几遍）

            Delay 200 //（这里加延时方便测试脚本）
            dm. MoveTo x,y     //（鼠标移到第一格 X Y ）
            Delay 200
            dm.  LeftClick 
            Delay 200
            dm. KeyPress 13       
                
            Do
                
                //防回车键按多
                dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
              
                If intX >= 0 and intY >= 0 Then
                    Delay 100
                    dm. KeyPress 13  
                    Exit Do 
          
                Else 
           
                End If 
              
                dm_ret = dm.FindStr(236,154,332,182,"装备分解成功","ffffff-000000",1.0,intX,intY)
                If intX >= 0 and intY >= 0 Then
                    Delay 500
                    dm. KeyPress 13  
                    Delay 500
                    Exit Do 
           
                Else 
           
                    //防回车键按多
                    dm_ret = dm.FindStr(27,323,258,432,"附近","eeddaa-000000",1.0,intX,intY)
               
               
                    If intX >= 0 and intY >= 0 Then
                        Delay 100
                        dm. KeyPress 13  
                        Exit Do 
           
                    Else 
           
                    End If 
           
                End If 
      
            Loop
       
            x=x+30  //（鼠标移到第一排第二格）
        Next
    
        x=c //（鼠标横坐标回到第一格）
        y=y+30 //（鼠标移动到第二排第一格）
  
    Next

    //按ESC关闭===============================
    Delay 200
    dm.KeyPress 27
    Delay 500
    dm.KeyPress 27