VBA 调用 WshShell.popup 定时器失效

WshShell.Popup 方法不支持在弹出窗口中添加定时器，但您可以通过 VBA 内置的 Timer 函数来实现类似的功能。

下面是一个示例代码：

Sub ShowPopup()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    ' 显示弹窗，超时时间为1000秒，按钮ID为1
    WshShell.Popup "到达时间！", 1000, "提示", 0 + 64
    
    Dim StartTime As Double
    StartTime = Timer
    
    Do While True
        ' 检查弹窗是否仍在前台
        If WshShell.AppActivate("提示") Then
            ' 如果已经超过10秒，自动关闭弹窗
            If Timer - StartTime > 10 Then
                WshShell.SendKeys "{ENTER}"
                Exit Do
            End If
        End If
    Loop
End Sub

在上面的代码中，我们先使用 WshShell.Popup 方法显示一个弹窗，并将超时时间设置为1000秒。然后我们使用 Timer 函数获取当前时间，并在一个无限循环中检查弹窗是否仍在前台。如果弹窗已经超过10秒，我们使用 WshShell.SendKeys 方法模拟按下 Enter 键来关闭弹窗。这样就实现了一个类似于定时器的功能。

请注意，使用 SendKeys 方法来模拟按键可能会存在一些问题，例如可能会将按键发送到错误的应用程序中。因此，在实际使用中，您可能需要考虑其他方式来关闭弹窗，例如使用 API 函数来查找和关闭窗口。