MsgBox的问题——VBS

来源:百度知道 编辑:UC知道 时间:2024/09/23 01:36:08
dim a,b
a=0
b=0
do
do while(a<>60)
wscript.sleep 1000
a=a+1
loop
if a=60 then a=0
b=b+1
MsgBox b
loop
-----------------
上面是一个计时器,原本打算每一分钟输出一次分钟数,可是在MsgBox代码输出时,却要等待用户回应,然后才继续。
当然,我可以在MsgBox之前用run函数打开另一个编好的从1分钟起计时的VBS文件,但是这样我就要做无数个了。但我又想输出。
请问可以即输出,又继续计时吗?怎样编?详细点。

简单 看代码。。。

用popup具体的用法自己去查吧。。。这样子有利于学习。。算法优化如下:
set ws=wscript.createobject("wscript.shell")
b=0
do
wscript.sleep 58*1000
b=b+1
ws.popup b,2,"系统提示",4096+64
loop