//此脚本用于一键隐藏游戏窗口，启动键F10，终止键F12，恢复游戏窗口方式为再按一次F10
//如果你是第一次使用，请根据弹出的窗口提示按"Enter"键设置好你的游戏窗口标题
//设置的游戏窗口标题等信息会保存在你的按键精灵安装目录下的".\Config.ini"文件中
//你也可以直接进去这个文件内设置你的游戏标题信息！
//谢谢您的使用！作者论坛ID：兲芐無雙
dim i,Hwnd,cq,bb,s
Delay 100
//读取存在配置文件".\Config.ini"里的窗口标题
Call 读取窗口标题()
//遍历符合窗口标题(根据你自己玩的游戏标题设置)的句柄保存到数组(游戏窗口)里
游戏窗口 = Plugin.Window.Search(Text)
If 游戏窗口="" Then
    Call 读取窗口句柄组()
    Call 显示窗口()
    Delay 100
    Call 读取窗口标题()
    游戏窗口 = Plugin.Window.Search(Text)
    Call 重新写窗口标题()
Else
    Call 读取窗口句柄组()
    Call 显示窗口()
    Call 隐藏窗口()
    Call 写入窗口()
End If
Rem 结束程序
EndScript
Sub 重新写窗口标题()
    If 游戏窗口="" Then
        //写入窗口标题
        MessageBox "保存的窗口标题已更新版本，请把鼠标指向要保存的窗口然后按键盘上的“Enter”键"
        Rem 按键
        AJ = WaitKey()
        If AJ=13 Then
            Hwnd = Plugin.Window.MousePoint()
            sText = Plugin.Window.GetText(Hwnd)
            Call Plugin.File.WriteINI("Command", "窗口标题", sText, ".\Config.ini")
        Else
            Goto 按键
        End If
    End If
End Sub
Sub 读取窗口句柄组()
    //打开配置文件读取
    Delay 100
    Text = Plugin.File.ReadINI("Command", "窗口句柄组", ".\Config.ini")
    游戏窗口=Text
    If Text="" Then
        Text = Plugin.File.ReadINI("Command", "窗口标题", ".\Config.ini")
        游戏窗口 = Plugin.Window.Search(Tent)
        Call Plugin.File.WriteINI("Command", "窗口句柄组", 游戏窗口, ".\Config.ini")
    End If
    Delay 100
End Sub
Sub 读取窗口标题()
    //打开配置文件读取
    Delay 100
    Text = Plugin.File.ReadINI("Command", "窗口标题", ".\Config.ini")
    If Text="" Then
        MessageBox "未保存过窗口标题，请把鼠标指向要保存的窗口然后按键盘上的“Enter”键"
        Rem 按键
        AJ = WaitKey()
        If AJ=13 Then
            Hwnd = Plugin.Window.MousePoint()
            sText = Plugin.Window.GetText(Hwnd)
            Call Plugin.File.WriteINI("Command", "窗口标题", sText, ".\Config.ini")
        Else
            Goto 按键
        End If
    End If
    Delay 100
End Sub
Sub 写入窗口()
    Delay 100
    //打开配置文件写入窗口句柄组
    Call Plugin.File.WriteINI("Command", "窗口句柄组", 游戏窗口, ".\Config.ini")
    Delay 100
End Sub
Sub 隐藏窗口()
    Call 读取窗口标题()
    游戏窗口 = Plugin.Window.Search(Text)
    //下面这句用于分割字符串,将获得的句柄组分割
    MyArray = Split(游戏窗口, "|")
    If UBound(MyArray)>=0
        i=0
        For UBound(MyArray)
            //下面这句将字符串转换成数值
            Hwnd=Clng(MyArray(i))
            //隐藏窗口
            Call Plugin.Window.Hide(Hwnd)
            i=i+1
        EndFor 
    EndIf 
    Delay 100
End Sub
Sub 显示窗口()
    //下面这句用于分割字符串,将获得的句柄组分割
    MyArray = Split(游戏窗口, "|")
    If UBound(MyArray)>=0
        i=0
        For UBound(MyArray)