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

posted on 2014-11-26 15:36 futrueface 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/futrueface/p/4123411.html