Call Plugin.Sys.SetCLB(jqm)
            EndScript
        Else '分割计算时间
            //   x"当前:" & wlsj & "-" & p(1) & "到期" & "-" & "剩余" & m & "天"
        End If '分割计算时间
    End If  '避免时间没加密
    Delay yc+ 1000


End Sub
Sub 移动窗口()
    hwnd = dm.GetForegroundWindow()

    dm_ret = dm.SetWindowState(hwnd, 1) '激活窗口
    Call dm.MoveWindow(hwnd, 0, 0) '移动窗口到 0.0

End Sub
Sub 识别地图()
    ditu = dm.Ocr(0,23,81,49,"d8bc58-000000",0.9)
    If ditu="" then
        Call Plugin.Media.Beep(2523, 400)
        MsgBox "识别地图出错.请核对后在开"
        EndScript
    End if
    ditux = dm.Ocr(75,27,125,42,"d8bc58-000000",0.9)
    If ditux="" then
        Call Plugin.Media.Beep(2523, 400)
        MsgBox "识别地图X1出错.请核对后在启动脚本"
        EndScript
    Else 
        ditux=Split(ditux,":")
        if ubound(ditux)>=1 then
            x=ditux(1) 
        Else
            Call Plugin.Media.Beep(2523, 400)
            MsgBox "识别地图X2出错.请核对后在启动脚本"
            EndScript 
        End if
    End if

    dituy = dm.Ocr(121,27,171,42,"d8bc58-000000",0.9)
    If dituy="" then
        Call Plugin.Media.Beep(2523, 400)
        MsgBox "识别地图Y1出错.请核对后在启动脚本"
        EndScript
    Else 
        dituy=Split(dituy,":")
        if ubound(dituy)>=1 then
            y=dituy(1) 
        Else
            Call Plugin.Media.Beep(2523, 400)
            MsgBox "识别地图Y2出错.请核对后在启动脚本"
            EndScript 
        End if

    End if

End Sub


////////////////以下没用