[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

本帖最后由 qq2501 于 2011-12-21 23:39 编辑
  1. @echo off 2>nul 3>nul
  2. taskkill /F /IM WScript.exe
  3. echo WScript.Echo "%1" > tem.vbs
  4. tem & exit
复制代码

TOP

  1. Dim WshShell
  2. Set WshShell = CreateObject("wscript.Shell")
  3. If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
  4.     WshShell.Run "cscript.exe " & Chr(34) & WScript.ScriptFullName & Chr(34)
  5.     WScript.Quit
  6. End If
  7. WScript.Echo "process one"
  8. WScript.Sleep 3000
  9. WScript.Echo "process two"
复制代码

TOP

返回列表