LeftUp 1
        Delay 1000
        Plugin strtemp=Window.GetWindowRect(mlxthw)
        mlxtwinrect=Split(strtemp,"|")
        VBSCall FindColorEx(mlxtwinrect(0),mlxtwinrect(1),mlxtwinrect(2),mlxtwinrect(3),"8CC7F7",0,0.8,mlxtcolorx,mlxtcolory)
        Delay 500
        chxydshxhw=chxydshxhw+1
    EndWhile 
    If mlxtcolorx=525 And mlxtcolory=147
        MvWinR = 2
    EndIf 
    If MvWinR=0
        //MsgBox MvWinR, 0, "特定颜色没出现"
        Delay 100
    ElseIf MvWinR=1
        //MsgBox MvWinR, 0, "移动游戏窗口失败"
        Delay 100
    EndIf 
    //调整窗口位置-结束
    //----∧∧∧∧∧∧----
Return 
Sub 调整魔力学堂窗口位置Sub
    Dim ie
    Delay 200
    Plugin mlxthw=Window.Foreground()
    Plugin mlxttext=Window.GetText(mlxthw)
    If InStr(mlxttext,"魔力学堂")<=0
        //Delay 900000
        VBSBegin 
            Set ie=Nothing
            Set ie=CreateObject("internetexplorer.application")
            ie.menubar=0 '不显示IE对象菜单栏
            ie.AddressBar=0 '不显示IE对象地址栏
            ie.ToolBar=0 '不显示IE对象工具栏
            ie.StatusBar=0 '不显示IE对象状态栏
            'ie.FullScreen=1 '全屏化IE对象
            ie.Width=916'设置IE对象宽度
            ie.Height=620 '设置IE对象高度
            ie.Left=57
            ie.Top=117
            ie.Resizable=0 '设置IE对象大小是否可以被改动
            ie.visible=1 '设置是否可见
            '//ie.Navigate "s.qeedoo.com/mc/s1/index.php" '设置IE对象默认指向的页面
            ie.Navigate LoginURL
            Delay 3000
            ie.document.body.Scroll = "no"
        VBSEnd 
        If notexit<=0
            Gosub 脚本结束Sub
        ElseIf notexit=1
            Delay 20000
            Goto 调整窗口完毕
        EndIf 
    EndIf 
    Plugin strtemp=Window.GetWindowRect(mlxthw)
    mlxtwinrect=Split(strtemp,"|")
    If mlxtwinrect(2)-mlxtwinrect(1)<900
        KeyPress 27,1
    EndIf 
    Delay 500
    VBSCall FindColorEx(mlxtwinrect(0),mlxtwinrect(1),mlxtwinrect(0)+200,mlxtwinrect(1)+200,"ADD78C",0,0.6,mlxthwx,mlxthwy)
    If Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-mlxthwx<>446
        mlxSec = Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-446
        VBSCall FindColorEx(mlxSec,mlxthwy+1,mlxtwinrect(0)+200,mlxtwinrect(1)+200,"ADD78C",0,0.6,mlxthwx,mlxthwy)
        If Int((CInt(mlxtwinrect(0))+CInt(mlxtwinrect(2)))/2)-mlxthwx<>446
            VBSCall FindColorEx(mlxSec,mlxthwy+1,mlxtwinrect(0)+200,mlxtwinrect(1)+200,"ADD78C",0,0.6,mlxthwx,mlxthwy)
        EndIf 
    EndIf 
    Delay 500
    MoveTo mlxthwx,mlxthwy
    Delay 500
    If mlxthwx<>58 or mlxthwy<>141
        mlxthwsubx=58-mlxthwx
        mlxthwsuby=141-mlxthwy
        MoveTo mlxtwinrect(0)+50,mlxtwinrect(1)+10
        Delay 200
        LeftDown 1
        Delay 200
        //--先移一下
        MoveTo 100,30
        Delay 100
        //--
        If mlxthwx>0 and mlxthwy>0
            MoveTo mlxtwinrect(0)+50+mlxthwsubx,mlxtwinrect(1)+10+mlxthwsuby
        EndIf 
        Delay 100
        LeftUp 1
        Delay 500
        VBSCall FindColorEx(mlxtwinrect(0),mlxtwinrect(1),mlxtwinrect(0)+200,mlxtwinrect(0)+200,"ADD78C",0,0.6,mlxthwx,mlxthwy)
        Delay 500
        If mlxthwx<>58 or mlxthwy<>141
            If debugon=1
                MessageBox "游戏窗口位置不正确!"
                KeyPress 44,1
            ElseIf debugon=2
                KeyPress 44,1
            EndIf 
        EndIf 
    EndIf 
    Rem 调整窗口完毕