VBS定时关闭的弹窗

'类似msgbox

'定时停留弹出框函数

Sub Print(text,timeout,title)

    Dim WshShell

    Set WshShell = CreateObject("WScript.Shell")

    WshShell.Popup text,timeout,title

    Set WshShell = nothing

End Sub

 

用法：

Print "弹窗显示的内容",10,"对话框在10秒内自动关闭！"