VBScript自动切换窗口脚本停止方法及优化方案咨询

现有VBS脚本的停止方案 #

你之前遇到只能重启的问题，本质是不知道wscript.exe是后台静默运行的，根本不需要重启：按Ctrl+Shift+Esc调出任务管理器，在进程页找到wscript.exe右键结束任务就能立刻停脚本。

如果要内置停止逻辑，别折腾VBS的全局热键钩子——原生VBS不支持全局热键监听，硬调系统API兼容性极差，不同Windows版本很容易报错。最稳定的零依赖方案是加标记文件检测，改完的完整代码如下：

Option Explicit
Dim WshShell, fso, switchInterval
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

' 配置项：轮播间隔（毫秒）、停止标记文件路径
switchInterval = 30000
Const STOP_FLAG_PATH = "C:\Temp\stop_carousel.flag"

' 初始化：创建临时目录、清除旧的停止标记
If Not fso.FolderExists("C:\Temp") Then fso.CreateFolder "C:\Temp"
If fso.FileExists(STOP_FLAG_PATH) Then fso.DeleteFile STOP_FLAG_PATH
MsgBox "仪表盘轮播已启动，需要停止时请在C:\Temp下新建名为stop_carousel.flag的空文件即可", 64, "轮播提示"

Do
    ' 分小段睡眠，每200毫秒检测一次停止标记，兼顾响应速度和CPU占用
    For i = 1 To switchInterval / 200
        WScript.Sleep 200
        If fso.FileExists(STOP_FLAG_PATH) Then
            fso.DeleteFile STOP_FLAG_PATH
            MsgBox "轮播已停止", 64, "提示"
            WScript.Quit
        End If
    Next
    ' 到点切换窗口
    WshShell.SendKeys("%{TAB}")
Loop

要停止脚本的时候，只要打开C:\Temp文件夹，新建一个名为stop_carousel.flag的空文件，脚本最多200毫秒就会检测到，自动清理标记并退出，不需要开任务管理器找进程。

办公电视轮播场景的优化方案 #

原来的Alt+Tab切换逻辑非常脆弱，只要中途打开过任意其他窗口，切换顺序就会乱，直接切到无关内容，完全不适合无人值守的办公电视场景，建议做以下调整：

• 替换窗口切换逻辑：不要用Alt+Tab，直接通过窗口标题精准激活指定仪表盘窗口，不会被其他窗口干扰。核心替换代码如下，把数组里的窗口标题改成你自己两个仪表盘的实际窗口标题即可（比如Chrome打开的仪表盘页标题、桌面客户端的窗口名）：

  ' 把两个仪表盘的窗口标题填到下面数组里
  Dim targetWin, winIndex
  targetWin = Array("生产实时数据看板 - Google Chrome", "月度运营指标看板 - Google Chrome")
  winIndex = 0
  
  ' 把原来Do循环里的SendKeys "%{TAB}"替换成下面这段
  WshShell.AppActivate targetWin(winIndex)
  ' 激活后自动触发全屏，避免边框、任务栏遮挡
  WshShell.SendKeys "{F11}"
  winIndex = (winIndex + 1) Mod 2
  

• 加容错逻辑：如果某个仪表盘窗口意外关闭、崩溃，脚本不要弹错误卡屏，直接跳过切换，下次轮播再重试即可，避免电视上长时间显示错误弹窗。
• 配置开机自启：把脚本的快捷方式放到系统启动目录C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp，接电视的主机意外重启后会自动进入轮播状态，不需要人工手动操作。
• 更省心的无代码方案：如果两个仪表盘都是网页形式，直接给Chrome装个标签自动轮播插件，设置两个仪表盘标签自动切换、浏览器启动默认全屏打开这两个页面，稳定性比自己写脚本高很多，不会出现窗口焦点丢失的问题；如果是不同客户端的仪表盘，直接用轻量的窗口轮播工具，自带停止热键、窗口锁定、异常跳过功能，不需要自己维护代码。

内容的提问来源于stack exchange，提问作者DannyHSMAero