首页 > 代码库 > VBS定时关闭的弹窗

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

VBS定时关闭的弹窗