- 注释:允许启动次数,自行修改
- 令 允许脚本启动次数 = 5
- 注释:定义环境变量
- 定义环境变量 是否启动
- 定义变量 本次启动, 启动窗口, 游戏原来标题, 绑定了窗口, 本次启动次数
- 令 本次启动 = "启动不成功"
- 如果 是否启动 <> "已启动" 则
- 令 是否启动 = "已启动"
- 令 启动窗口 = Window.Foreground()
- 令 本次启动窗口 = 启动窗口
- 令 游戏原来标题 = Window.GetText(启动窗口)
- 令 启动的游戏窗口句柄 = 启动窗口
- 令 启动次数 = 1
- 令 本次启动次数 = 启动次数
- 调用 Window.SetText(启动窗口,"第" & 启动次数 & "次启动,句柄:" & 启动窗口)
- 令 本次启动 = "启动成功"
- 否则
- 如果 启动次数 >= 允许脚本启动次数 则
- MsgBox("已经启动了" & 允许脚本启动次数 & "次脚本,不能再启动")
- ExitScript()
- 否则
- 注释:记录已启动窗口句柄,防止重复在一个游戏窗口启动
- 令 启动窗口 = Window.Foreground()
- 令 游戏原来标题 = Window.GetText(启动窗口)
- 如果 InStr(启动的游戏窗口句柄,启动窗口) > 0 则
- MsgBox("该游戏窗口已经启动过脚本,请不要重复在一个游戏窗口启动")
- ExitScript()
- 否则
- 令 本次启动窗口 = 启动窗口
- 令 启动的游戏窗口句柄 = 启动的游戏窗口句柄 & "|" & 启动窗口
- 令 本次启动 = "启动成功"
- 令 启动次数 = 启动次数 + 1
- 令 本次启动次数 = 启动次数
- 调用 Window.SetText(启动窗口,"第" & 启动次数 & "次启动,句柄:" & 启动窗口)
- 条件结束
- 条件结束
- 条件结束
- 注释:启动子线程单停检测是否按了停止键
- (语句无法识别,可能有错误): BeginThread 单停(本次启动窗口)
- 注释:〓〓〓〓↑以上加入到脚本的最前面〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
- 注释:〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓一下为脚本代码〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
- 循环当 1 时
- 调用 Bkgnd.SendString(启动窗口,"内容")
- 延时 500 毫秒
- 循环结束
- 注释:〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓下面的放脚本最后面就可以〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
- 注释:单停子线程
- 子程序 单停(要停止窗口句柄)
- 注释:设置停止键码,我这里使用的是END键,可以自己修改为别的键码
- 令 停止按键码 = 35
- 循环当 1 时
- 注释:检测上次按的键为停止键,并且活动窗口为本次启动的窗口,则停止脚本
- 如果 (键盘)检测上次按键 = 停止按键码 并且 Window.Foreground() = 要停止窗口句柄 则
- ExitScript()
- 条件结束
- 注释:检测间隔,根据需要修改
- 延时 1000 毫秒
- 循环结束
- 子程序结束
- 注释:停止事件子程序OnScriptExit增加和减少多开次数
- 子程序 OnScriptExit()
- 注释:加入停止延迟防止多开一次停止全部时启动次数计算错误
- 延时 10 * 本次启动次数 毫秒
- 如果 本次启动 = "启动成功" 则
- 令 启动次数 = 启动次数 - 1
- 如果 启动次数 = 0 则
- 令 是否启动 = "未启动"
- 令 启动的游戏窗口句柄 = ""
- 否则
- 令 启动的游戏窗口句柄 = Replace(启动的游戏窗口句柄,启动窗口 & "|","")
- 令 启动的游戏窗口句柄 = Replace(启动的游戏窗口句柄,"|" & 启动窗口,"")
- 条件结束
- 注释:判断窗口是否存在
- 令 sWindow = Window.IsWindow(启动窗口)
- 如果 sWindow = 1 则
- 调用 Window.SetText(启动窗口,游戏原来标题)
- 条件结束
- 条件结束
- 子程序结束