**********************************************
//代码作者：狂奔De蜗牛
//编写时间：2010-08-22
//脚本说明：立用了窗口激活和显示及窗口句柄插件，轻松实现窗口多开，理论上可以支持无限多个，建议在10个以内。
//****************************************************
MessageBox "脚本马上开始，请根据以下提示进行操作。"
Dim Win,Windows,Hwnd
Win = 0 : Windows = ""
Rem 窗口查找
Win = Win + 1
Delay 200
MessageBox "请将选中第 " & Win & " 个游戏窗口，确定后选中该窗口，再按任意键继续，如不想继续请在确定后按“Q”。"
Delay 200
AnJian = WaitKey()
Delay 200
If Int(AnJian) <> 81 Then
    Hwnd = Plugin.Window.Foreground()
    If Win > 1 Then
        Windows = Windows & "||" & Hwnd
    Else
        Windows = Hwnd
    End If
    Goto 窗口查找
End If
Dim WinName,i
WinName=Split(Windows,"||")
MessageBox "窗口选定完必，您一共选定了 " & Ubound(WinName)+1 & " 个窗口。"
Rem 循环选择窗口
For i = 0 To Ubound(WinName)
    Call Plugin.Window.Active(WinName(i))
    Call Plugin.Window.Show(WinName(i))
    Delay 3000
Next
Goto 循环选择窗口