如何确保VBScript弹窗保持焦点？微软示例脚本异常求助

直接使用微软官方示例脚本（对应原文档清单3.32 定时进度消息框）时，出现以下问题：

• 第一个弹窗正常显示并自动关闭
• 后续两个弹窗虽成功生成，但始终处于后台无法前置显示

已尝试添加vbSystemModal参数，效果无效；查阅论坛相关帖子也未解决问题，恳请测试脚本并提供问题原因及解决方案。

原示例代码：

Const TIMEOUT = 5 
Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.Popup "Disk Report Complete", TIMEOUT 
objShell.Popup "Memory Report Complete", TIMEOUT 
objShell.Popup "CPU Report Complete", TIMEOUT

问题原因 #

第一个弹窗关闭后，WScript宿主进程丢失了前台窗口焦点，后续Popup调用默认不会主动抢占系统前台焦点，导致弹窗被其他窗口遮挡，处于后台状态。

解决方案 #

在每个Popup调用中添加窗口样式参数，通过vbMsgBoxSetForeground（值为65536）强制弹窗前置显示；若需要弹窗为模态（阻止操作其他窗口），可同时搭配vbSystemModal（值为4096）。

修改后的代码（模态+强制前置） #

Const TIMEOUT = 5 
Const vbMsgBoxSetForeground = 65536
Const vbSystemModal = 4096

Set objShell = WScript.CreateObject("WScript.Shell") 
' 带标题+强制前置+模态的弹窗
objShell.Popup "Disk Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground + vbSystemModal
objShell.Popup "Memory Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground + vbSystemModal
objShell.Popup "CPU Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground + vbSystemModal

非模态版本（仅强制前置） #

如果不需要弹窗阻止其他操作，仅保留vbMsgBoxSetForeground即可：

Const TIMEOUT = 5 
Const vbMsgBoxSetForeground = 65536

Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.Popup "Disk Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground
objShell.Popup "Memory Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground
objShell.Popup "CPU Report Complete", TIMEOUT, "进度提示", vbMsgBoxSetForeground

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