之前网上找到的一段小代码,能解决无人值守时,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