- 注释:此脚本用于一键隐藏游戏窗口,启动键F10,终止键F12,恢复游戏窗口方式为再按一次F10
- 注释:如果你是第一次使用,请根据弹出的窗口提示按"Enter"键设置好你的游戏窗口标题
- 注释:设置的游戏窗口标题等信息会保存在你的按键精灵安装目录下的".\Config.ini"文件中
- 注释:你也可以直接进去这个文件内设置你的游戏标题信息!
- 注释:谢谢您的使用!作者论坛ID:兲芐無雙
- 定义变量 i, Hwnd, cq, bb, s
- 延时 100 毫秒
- 注释:读取存在配置文件".\Config.ini"里的窗口标题
- 调用 读取窗口标题()
- 注释:遍历符合窗口标题(根据你自己玩的游戏标题设置)的句柄保存到数组(游戏窗口)里
- 令 游戏窗口 = Window.Search(Text)
- 如果 游戏窗口 = "" 则
- 调用 读取窗口句柄组()
- 调用 显示窗口()
- 延时 100 毫秒
- 调用 读取窗口标题()
- 令 游戏窗口 = Window.Search(Text)
- 调用 重新写窗口标题()
- 否则
- 调用 读取窗口句柄组()
- 调用 显示窗口()
- 调用 隐藏窗口()
- 调用 写入窗口()
- 条件结束
- 标记 结束程序
- 脚本停止运行
- 子程序 重新写窗口标题()
- 如果 游戏窗口 = "" 则
- 注释:写入窗口标题
- 弹出窗口 "保存的窗口标题已更新版本,请把鼠标指向要保存的窗口然后按键盘上的“Enter”键"
- 标记 按键(子程序 重新写窗口标题)
- 令 AJ = (键盘)等待按任意键
- 如果 AJ = 13 则
- 令 Hwnd = Window.MousePoint()
- 令 sText = Window.GetText(Hwnd)
- 调用 File.WriteINI("Command","窗口标题",sText,".\Config.ini")
- 否则
- 跳转到标记 按键(子程序 重新写窗口标题)
- 条件结束
- 条件结束
- 子程序结束
- 子程序 读取窗口句柄组()
- 注释:打开配置文件读取
- 延时 100 毫秒
- 令 Text = File.ReadINI("Command","窗口句柄组",".\Config.ini")
- 令 游戏窗口 = Text
- 如果 Text = "" 则
- 令 Text = File.ReadINI("Command","窗口标题",".\Config.ini")
- 令 游戏窗口 = Window.Search(Tent)
- 调用 File.WriteINI("Command","窗口句柄组",游戏窗口,".\Config.ini")
- 条件结束
- 延时 100 毫秒
- 子程序结束
- 子程序 读取窗口标题()
- 注释:打开配置文件读取
- 延时 100 毫秒
- 令 Text = File.ReadINI("Command","窗口标题",".\Config.ini")
- 如果 Text = "" 则
- 弹出窗口 "未保存过窗口标题,请把鼠标指向要保存的窗口然后按键盘上的“Enter”键"
- 标记 按键(子程序 读取窗口标题)
- 令 AJ = (键盘)等待按任意键
- 如果 AJ = 13 则
- 令 Hwnd = Window.MousePoint()
- 令 sText = Window.GetText(Hwnd)
- 调用 File.WriteINI("Command","窗口标题",sText,".\Config.ini")
- 否则
- 跳转到标记 按键(子程序 读取窗口标题)
- 条件结束
- 条件结束
- 延时 100 毫秒
- 子程序结束
- 子程序 写入窗口()
- 延时 100 毫秒
- 注释:打开配置文件写入窗口句柄组
- 调用 File.WriteINI("Command","窗口句柄组",游戏窗口,".\Config.ini")
- 延时 100 毫秒
- 子程序结束
- 子程序 隐藏窗口()
- 调用 读取窗口标题()
- 令 游戏窗口 = Window.Search(Text)
- 注释:下面这句用于分割字符串,将获得的句柄组分割
- 令 MyArray = Split(游戏窗口,"|")
- 如果 UBound(MyArray) >= 0 则
- 令 i = 0
- 循环 UBound(MyArray) 次
- 注释:下面这句将字符串转换成数值
- 令 Hwnd = Clng(MyArray(i))
- 注释:隐藏窗口
- 调用 Window.Hide(Hwnd)
- 令 i = i + 1
- 循环结束
- 条件结束
- 延时 100 毫秒
- 子程序结束
- 子程序 显示窗口()
- 注释:下面这句用于分割字符串,将获得的句柄组分割
- 令 MyArray = Split(游戏窗口,"|")
- 如果 UBound(MyArray) >= 0 则
- 令 i = 0
- 循环 UBound(MyArray) 次