中国DOS联盟

想实现这样一个功能：
运行一个VBS脚本，弹出一个窗口提示一些信息后并在指定的时间后关闭此窗口
在网上找了一个实例：虽然能实现我的要求，但是唯一的遗憾是显示一下就隐藏了（其实是更新了，此窗口并未关闭，而是被我当前的窗口遮住了）

main 

Sub main 

Dim fso,wsh,i 

'Set fso = CreateObject("Scripting.FileSystemObject") 

Set wsh = CreateObject("WScript.Shell") 

'if not (fso.FolderExists("e:\bak")) then fso.CreateFolder("e:\bak") 

'fso.CopyFile "d:\work\*.doc","e:\bak\" 

'fso.CopyFile "d:\work\*.xls","e:\bak\" 

'Set fso = Nothing 

For i = 5 to 1 step -1 

wsh.popup "文件备份完毕!",1,"信息提示" & 5 & "秒钟后关闭",0 

Next

set wsh = Nothing 

End Sub

于是又找了一个实例：
http://bbs.verybat.org/viewthread.php?tid=10671

set fso=createobject("scripting.filesystemobject")

set a=fso.opentextfile("1.txt",1)

r=a.readall

msgbox r,0,"结果"

于是将其合并

main 

Sub main 

Dim fso,wsh,i 

Set wsh = CreateObject("WScript.Shell") 

Set fso=createobject("scripting.filesystemobject")

Set a=fso.opentextfile("1.txt",1)

Set fso = Nothing 

r=a.readall

msgbox r,0,"结果"

For i = 5 to 1 step -1 

wsh.popup r,1,"信息提示" & i & "秒钟后关闭",0 

Next

end sub

这段倒是实现我想要的功能，但是每次都得按一次确定（msgbox r,0,"结果"）
如果把这句注释掉（'msgbox r,0,"结果"）,没有达到预期的结果。
请教各位这段改如何修改才能达到想要的结果，有更好的方法么？谢谢！

main
Sub main
Dim fso,wsh,i
Set wsh = CreateObject("WScript.Shell")
Set fso=createobject("scripting.filesystemobject")
Set a=fso.opentextfile("1.vbs",1)
r=a.readall
a.Close
Set fso = Nothing
wsh.popup r,5,"信息提示将在5秒钟后关闭",0
end sub

谢谢slore，但是这样标题栏就不能显示倒计时，要是能获得

main 

Sub main 

Dim fso,wsh,i 

Set wsh = CreateObject("WScript.Shell") 

Set fso=createobject("scripting.filesystemobject")

Set a=fso.opentextfile("1.txt",1)

Set fso = Nothing 

r=a.readall

msgbox r,0,"结果"

For i = 5 to 1 step -1 

wsh.popup r,1,"信息提示" & i & "秒钟后关闭",0 

Next

end sub

按确定之后的效果就好了。。。

怎么现在论坛没有以前那么红了，好像，感觉

楼主，你这样的倒数效果不好看。建议使用第三方工具：Wbusy.exe

Wbusy " " " 正在进行10秒钟倒数..." /stop /timeout=10