Board logo

标题: [问题求助] VBS怎样弹出并关闭信息窗口? [打印本页]

作者: wteagle    时间: 2011-12-16 00:13     标题: VBS怎样弹出并关闭信息窗口?

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

  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"
复制代码

作者: qq2501    时间: 2011-12-21 22:00

本帖最后由 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
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2