相关疑难解决方法(0)

人们已经在批处理文件中嵌入和执行VBScript很长一段时间了.但是我所看到的所有已发布的解决方案(在此问题最初提出时)都涉及编写临时VBS文件.例如:在Windows批处理文件中嵌入VBScript.

是否可以在批处理中执行嵌入式VBScript而无需编写临时文件？

在其他帖子的Outlook 2013模块中拼凑此测试程序,其中应显示一个弹出框,然后在3秒后自动关闭.问题是它永远不会关闭.

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")

    AckTime = 3
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 3 seconds).", _
    AckTime, "This is your Message Box", 0)
    Case 1, -1
        Exit Sub
    End Select
End Sub