错误消息现在显示为顶层

错误消息现在显示为顶层

我编写了一个程序,该程序应该不断弹出错误消息,然后自行消失,它可以工作,但错误消息(第一个错误消息之后)通常位于当前打开的窗口下方,因此看不到它。我怎样才能让它显示出来?谢谢

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Do Until True = False
    WScript.Sleep 3000
    objShell.Popup "Error1", TIMEOUT
Loop

相关内容