【QTP】自动关闭msgbox

之前网上找到的一段小代码，能解决无人值守时，msgbox的处理。

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup "等待5秒后关闭",5,"Title"         '共有三个参数，第一个参数为输出信息，第二个参数为等待时间，第三个参数为弹出框标题

这样就可以使用Wshshell.Popup来代替使用Msgbox

例：Dim a :a=2

   Dim b :b=1

   c=a+b

'将结果c打印出来

Wshsheell.Popup c,5,"输出结果"

注：有时出现弹出信息框关闭不了的情况，可以试试加载部分License