Next  
    End If
End Sub

Sub 窗口移动到左上角()
    If h >= 1 Then 
        Call Plugin.Window.Move(JB1, 0, 0)
        Delay 100
    End If
    If h >= 2 Then 
        Delay 100
        Call Plugin.Window.Active(JB2)
        Delay 100
        Call Plugin.Window.Move(JB2, 0, 0)
    End If
    Delay 100
    If h >= 3 Then 
        Delay 100
        Call Plugin.Window.Active(JB3)
        Delay 100
        Call Plugin.Window.Move(JB3, 0, 0)
    End If
    Delay 100
    If h >= 4 Then 
        Delay 100
        Call Plugin.Window.Active(JB4)
        Delay 100
        Call Plugin.Window.Move(JB4, 0, 0)
    End If
    Delay 100
    If h >= 5 Then 
        Delay 100
        Call Plugin.Window.Active(JB5)
        Delay 100
        Call Plugin.Window.Move(JB5, 0, 0)
    End If
    Delay 100
    If h >= 6 Then 
        Delay 100
        Call Plugin.Window.Active(JB6)
        Delay 100
        Call Plugin.Window.Move(JB6, 0, 0)
    End If
    //返回大号
    Delay 100
    Call Plugin.Window.Active(JB1)
    Delay 100
    //====================================================窗口移到左上角结束
End Sub

Sub 获取定点()
    //获得窗口起始点坐标
    Rect = Plugin.Window.GetClientRect(JB1)
    MyArrays=Split(Rect,"|")
    Ux=CLng(MyArrays(0))
    Uy = CLng(MyArrays(1))
End Sub


Sub 游戏中x()
    //检测背景       
    If h >= 1 Then 
        Call Plugin.Window.Active(JB1)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1
        Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //多开2
    If h >= 2 Then 
        Call Plugin.Window.Active(JB2)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1
        Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //多开3
    If h >= 3 Then 
        Call Plugin.Window.Active(JB3)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1
        Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //多开4
    If h >= 4 Then 
        Call Plugin.Window.Active(JB4)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1