范例-可支持无限多开的窗口脚本

运行环境：分辨率：1440×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：8.05.7106

@apple3310    2010/8/27

**********************************************   //代码作者：狂奔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 循环选择窗口