标题: [已结]请懂VBS代码的朋友帮我加个倒计时！ [打印本页]
作者: clian76 时间: 2008-10-28 11:06 标题: [已结]请懂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 ]Set objws=WScript.CreateObject("wscript.shell")
Set objfs=CreateObject("scripting.filesystemobject")
objws.Popup "如果长时间不用网络，请即时关闭无线网络!",5,"提示",64