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秒内自动关闭!"