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. 

  4. If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then

  5.     WshShell.Run "cscript.exe " & Chr(34) & WScript.ScriptFullName & Chr(34)

  6.     WScript.Quit

  7. End If

  8. 

  9. WScript.Echo "process one"

  10. WScript.Sleep 3000

  11. 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://bathome.net./) Powered by Discuz! 7.2