联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
set wshshell = CreateObject("WScript.Shell") timeout = 1 result = wshshell.Popup("将在 " & timeout & " 秒钟后自动“确定”!", timeout, "延时确定", vbExclamation & vbOkCancel ) if (result <= 1) then msgbox "确定" else msgbox "取消" end if