在vbscript中自动关闭MsgBox？答案

【问题标题】：Automatically close MsgBox in vbscript?在vbscript中自动关闭MsgBox？
【发布时间】：2012-12-31 18:51:49
【问题描述】：

我正在使用 VBScript 在 Excel 上编写一些自动化代码。我在代码中有一个MsgBox()，并且正在寻找一种方法来自动关闭MsgBox() 创建的弹出窗口而无需人工干预。程序将从那里继续执行。

【问题讨论】：

你是不是又改名了兔凯？我的天啊！那么您需要的可以完成！ ;) 它被称为 MSGBOX timer which gets triggered after being idle....
@bonCodigo 但是该怎么做呢？
这是我昨天回答的一个非常相似的问题stackoverflow.com/questions/14095982/…

标签： shell vbscript wsh

【解决方案1】：

纯VBScript解决方案是the .PopUp method。

【讨论】：

+1，绝对理想。出于同样的原因，我以前在 VBA 中使用过它。
@Ekkehard 你像往常一样是 gr8！
@Ekkehard 我可以在这里帮忙吗 - stackoverflow.com/questions/14087681/…？
为了使这个答案独立并且更完整，请在此处编辑它以包含一个简短的示例。

【解决方案2】：

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

这篇文章告诉你如何manupulate MSGBOX in VB。
这是任何人都能想到的关于 VBA 的最佳方式。
1. 创建表单
2. 将其用作 MSGBOX
3. 添加计时器
4. 给定经过的时间（空闲）关闭表单。

另一种方法Reference。这使用 Pop-Up 框作为 MSGBOX。

代码：

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

【讨论】：

还有什么方法可以关闭MsgBox生成的弹窗吗？
@Tukai 检查我对答案所做的更新。因为您正在使用 VBScript，所以这对您来说似乎非常好。请尝试并发表评论。
是的，我正在尝试，但同时你能说一下0在这里做什么吗？
这里是syntax。请继续阅读。