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