Delay 200
    Do 
        m_ret = dm.FindStr(0,0,2000,2000,"确认关闭分解商店吗","ffffff-000000",1.0,intX,intY)

        If intX >= 0 and intY >= 0 Then
            Delay 200       
         
            dm. MoveTo intX+50,intY+35
                  
            Delay 1000
            dm.LeftDoubleClick 
            Delay 500
            dm.KeyPress 27
        
            Exit Do 
        End If 
       
    Loop 

    //按下===============================
    Delay 200
    dm.KeyDown 40
    Delay 300
    dm.KeyUp 40

    //按上===============================
    dm.KeyDown 38
    Delay 700
    dm.KeyUp 38
Next

    //按上===============================
    dm.KeyDown 38
    Delay 100
    dm.KeyUp 38

    //按下===============================
    Delay 200
    dm.KeyDown 40
    Delay 1000
    dm.KeyUp 40
    //按左===============================
    //    
    Rem 找分解修理

    dm_ret = dm.FindPic(5,55,637,270,"赛利亚7.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
   
        dm.KeyUp 37
        Delay 100
        dm.MoveTo intX + 70, intY + 140    
        Delay 100
        dm.LeftClick  
    Else 
        Delay 100
        dm.KeyDown 37     
        Delay 100
        Goto 找分解修理
    End If     
    Rem 找分解

    dm_ret = dm.FindPic(5,207,534,423,"赛利亚8.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        Delay 200    
        dm.  MoveTo intX , intY + 115
        Delay 200    
        dm.LeftClick 
        Delay 200    
        dm.LeftClick 
        Delay 200
        dm.KeyPress 27   
    Else 
        Goto 找分解
    End If
 
    Rem 回仓库

    Delay 20

    dm_ret = dm.FindPic(317,93,639,296,"赛利亚9.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then

        dm.KeyUp 39

        Delay 500

    Else  
        dm.KeyDown 39
        Delay 20
        Goto 回仓库
    End If

    Do 
        dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
        If intX >= 0 and intY >= 0 Then  
            dm.KeyUp 38
            Delay 50
            Exit Do 
        Else 
            dm.KeyDown 38