想实现这样一个功能：
运行一个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
Wbusy.rar (2009-11-30 21:26, 11.82 K,下载次数： 18)
效果.PNG (2009-12-1 11:12, 4.31 K,下载次数： 6)
