[问题求助] VBS怎样弹出并关闭信息窗口？

wteagle

我用VBS进行一个很长的处理，因为持续时间长，看起来电脑很长时间没响应。为了监视过程的运行，我希望在过程一开始弹出一个窗口，但不需要任何按钮，也不干扰和停止程序的继续运行，仅在运行到某个步骤用程序中插入的一句语句让窗口显示一个信息，再运行到下一个步骤再在当前的窗口添加一个信息，这样就可以监视过程运行到了哪个步骤，过程结束后自动关闭窗口，不需要人为操作。这个该如何实现？
用msgbox好像无法实现我的需求，第一，它会干扰程序运行，要等待点击一个确定再继续运行，而我不需要任何按钮，只需要显示信息，程序不间断运行。第二，它无法在同一个窗口添加文字，每次需要添加信息就要弹出一个新的窗口，很麻烦。第三，它无法自动关闭，要人为点击确定或取消才关闭。
多谢指教！

Demon

Dim WshShell
Set WshShell = CreateObject("wscript.Shell")

If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
    WshShell.Run "cscript.exe " & Chr(34) & WScript.ScriptFullName & Chr(34)
    WScript.Quit
End If

WScript.Echo "process one"
WScript.Sleep 3000
WScript.Echo "process two"
复制代码

qq2501

@echo off 2>nul 3>nul
taskkill /F /IM WScript.exe
echo WScript.Echo "%1" > tem.vbs
tem & exit
复制代码