b3 = Mid(a, 3, 3)

    c=Asc(b3)
    dm.KeyPress c
    Delay 10
     
End sub
Sub ydpd()  ' 判断人物是否移动
    Do
        color1 = dm.GetColor(300, 300)
        Delay 800
        color2 = dm.GetColor(300, 300)
        If color1 = color2 Then 
            Exit Do 
        End If
    Loop 

End Sub

Sub change(cn)
    If cn = 1 Then 
        xx = 185
    ElseIf cn = 2 Then
     
        xx = 212
    Else 
        TracePrint cn
        MsgBox "错误代码 c - 1"
    End If

    dm.moveto 1170, 660
    Delay 100
    dm.LeftClick 
    Delay 300

    dm.moveto 595, 385
    Delay 100
    dm.LeftClick 
    Delay 300
	
    dm.moveto 520, 445
    Delay 100
    dm.LeftClick 
    Delay 30000

    dm.moveto 1000, xx
    Delay 100
    dm.LeftClick 
    Delay 300

    dm.moveto 600, 715
    Delay 100
    dm.LeftClick 
    Delay 10000

End Sub



Sub OnScriptExit()                                    
   
    dm_ret = dm.UnBindWindow
    Call Plugin.Office.CloseXls()

End Sub