请懂VBS代码的朋友帮我加个倒计时！ - 中国DOS联盟论坛

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 ]

第1楼　clian76	发表于 2008-10-28 11:06
中级用户　发帖 162　积分 363
[已结]请懂VBS代码的朋友帮我加个倒计时！ 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 ]