
标题: 请教个有关VBS弹窗脚本的问题(自动关闭) [打印本页]
作者: Mxark 时间: 2009-11-30 11:48 标题: 请教个有关VBS弹窗脚本的问题(自动关闭)
想实现这样一个功能:
运行一个VBS脚本,弹出一个窗口提示一些信息后并在指定的时间后关闭此窗口
在网上找了一个实例:虽然能实现我的要求,但是唯一的遗憾是显示一下就隐藏了(其实是更新了,此窗口并未关闭,而是被我当前的窗口遮住了)CODE: [Copy to clipboard]
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=10671CODE: [Copy to clipboard]
set fso=createobject("scripting.filesystemobject")
set a=fso.opentextfile("1.txt",1)
r=a.readall
msgbox r,0,"结果"
于是将其合并CODE: [Copy to clipboard]
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,"结果"),没有达到预期的结果。
请教各位这段改如何修改才能达到想要的结果,有更好的方法么?谢谢!
作者: slore 时间: 2009-11-30 14:05
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
作者: Mxark 时间: 2009-11-30 14:41
谢谢slore,但是这样标题栏就不能显示倒计时,要是能获得CODE: [Copy to clipboard]
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
按确定之后的效果就好了。。。
作者: moneythinker 时间: 2009-11-30 15:48
怎么现在论坛没有以前那么红了,好像,感觉
作者: newxso 时间: 2009-11-30 21:26
楼主,你这样的倒数效果不好看。建议使用第三方工具:Wbusy.exe
Wbusy " " " 正在进行10秒钟倒数..." /stop /timeout=10
附件
1:
Wbusy.rar (2009-11-30 21:26, 11.82 K,下载次数: 18)
附件
2:
效果.PNG (2009-12-1 11:12, 4.31 K,下载次数: 6)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) |
Powered by Discuz! 2.5 |