MsgBox 默认3秒后自动选择 确定按钮如何实现？

zhenglei

$1=MsgBox(1,"警告!","等待3秒钟自动选择!",3)
If $1=1 then MsgBox(64,"提醒","您当前选择确定按钮")


如何让msgbox 在无点击的时候3秒后自动默认选择 确定按钮？？？

zhenglei

自己先顶一下。。。。。。。。。。。。。。。。

ceoguang

If MsgBox(16,"警告!","等待3秒钟自动选择!",3) = -1 Then ;自动选择

papapa314

回复 1# zhenglei

超时返回值是-1，超时的时候应该是没有办法自动点击确认按钮的。不过可以用以下代码来欺骗一下，只要超时的时候执行的代码跟按下确定你想执行的代码一样就行了：
$1=MsgBox(1,"警告!","等待3秒钟自动选择!",3)
If $1=-1 then MsgBox(64,"提醒","您当前选择确定按钮")

papapa314

回复 1# zhenglei

同样的要在超时的时候点击取消按钮，可以这样来做
    $1=MsgBox(1+256,"警告!","等待3秒钟自动选择!",3)
If $1=-1 then MsgBox(64,"提醒","您当前选择取消按钮")