msgbox "如果长时间不用网络，请即时关闭无线网络！",vbquestion,"提示"

我想给这个VBS提示框加个30秒倒计时，可我不懂VBS，特来请搞手帮我修改一下，谢谢！

答案找到了，这就是我想要的效果：

Dim objws,objfs 

Set objws=WScript.CreateObject("wscript.shell") 

Set objfs=CreateObject("scripting.filesystemobject") 



objws.Popup "如果长时间不用网络，请即时关闭无线网络!",5,"提示",64

Last edited by clian76 on 2008-10-28 at 13:24 ]