Shell 是否在vbscript中自动关闭MsgBox？

我正在使用VBScript在excel上编写一些自动化代码。我在代码中有一个

MsgBox（）

，正在寻找一种方法来自动关闭由

MsgBox（）

创建的弹出窗口，而无需人工干预。程序将从那里继续执行。

我的评论为您提供了搜索和找出可行答案的提示。然而，为了节省您的时间，这里有一些见解

• 这篇文章展示了你是如何做到的

• 以下是任何人都能想到的关于VBA的最佳方法

• 创建表单
• 将其用作MSGBOX
• 添加计时器
• 给定经过的时间（空闲）关闭窗体

--

• 另一种方法。这将使用一个弹出的框作为MSGBOX

代码：

---

纯VBScript的解决方案是。

您是否再次更改了您的名字Tukai？天啊！好吧，你所需要的是可以做到的！；）这叫做

MSGBOX定时器，它在空闲时会被触发…

@bonCodigo但是如何做到这一点呢？我昨天回答了一个非常类似的问题，有没有其他方法关闭由

MSGBOX

？@Tukai-do生成的弹出窗口请检查我对答案的更新。因为您正在使用VBScript，所以它似乎对您非常适合。请试一下并发表评论。是的，我正在试，但同时你能说一下

0

在这里做什么吗？这是答案。请继续阅读。+1，绝对理想。出于同样的原因，我以前在VBA中使用过它。@Ekkehard您和往常一样是gr8@Ekkehard我能在这里得到一些帮助吗-？为了使这个答案更独立和完整，请编辑它，在这里也包含一个简短的例子。

Sub Test1()
 Dim AckTime As Integer, InfoBox As Object

 Set InfoBox = CreateObject("WScript.Shell")
 AckTime = 3
 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
 AckTime, "This is your Message Box", 0)

 Case 1, -1
  Exit Sub
 End Select
End Sub