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

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

运行环境:分辨率: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 循环选择窗口

范例-可支持无限多开的窗口脚本》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注