
CODE: [Copy to clipboard]set wshshell = CreateObject("WScript.Shell")
timeout = 1
result = wshshell.Popup("将在 " & timeout & " 秒钟后自动“确定”!", timeout, "延时确定", vbExclamation & vbOkCancel )
if (result <= 1) then
msgbox "确定"
else
msgbox "取消"
end if
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |