VB InfoBox能否在Web应用程序中正常运行？

你编写的定时进度提示Sub在桌面环境运行正常，但这个方案完全无法在Web环境中生效，核心原因如下：

• 代码里的WScript.Shell是Windows脚本宿主（WSH）的专属对象，仅能在本地桌面程序（比如VBScript脚本、VB6桌面应用）中调用。
• 部署到Web服务器后，服务器端调用该代码只会在服务器本地弹出窗口，客户端用户完全看不到；而客户端浏览器出于安全限制，绝对不允许网页访问本地的WScript对象。

替代方案 #

要在Web环境实现实时进度提示，有两种可靠的落地方式：

1. 服务器端Web应用（如ASP.NET、ASP）

通过前端AJAX轮询或WebSocket实时从服务器获取进度数据，再更新页面元素：

// 前端JS示例：每隔1秒请求一次进度
setInterval(() => {
  fetch('/get-progress')
    .then(res => res.json())
    .then(data => {
      document.getElementById('progress-text').textContent = `Updating Record ${data.curRec} of ${data.totalRec}`;
    });
}, 1000);

服务器端需要维护当前进度的状态，提供接口返回进度数据。

2. 客户端Web应用（纯前端处理数据）

用HTML/CSS/JS实现自定义定时关闭的提示框，完全在客户端运行：

<!-- 自定义弹窗 -->
<div id="progress-box" style="display:none; padding:15px; border:1px solid #ccc; position:fixed; top:20px; left:50%; transform:translateX(-50%); background:white;">
  <span id="progress-content"></span>
</div>

<script>
function showProgressTimer(curRec, totalRec) {
  const box = document.getElementById('progress-box');
  const content = document.getElementById('progress-content');
  content.textContent = `Updating Record ${curRec} of ${totalRec}`;
  box.style.display = 'block';
  // 1秒后自动关闭
  setTimeout(() => {
    box.style.display = 'none';
  }, 1000);
}
</script>

你原有的桌面端代码 #

Sub MessageBoxTimer(curRec As String, TotalRec As String)
    Dim AckTime As Double, InfoBox As Object
    InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 1
    Select Case InfoBox.Popup("Updating Record " + curRec + " of " + TotalRec,
AckTime, "Scheduling all users", 1)
        Case 1, -1
            Exit Sub
    End Select
End Sub

内容的提问来源于stack exchange，提问作者Alexander The Great