中国DOS联盟

环境 xp sp2 ,windows 2003
问题： sendkeys 中靠AppActivate寻找可执行程序的标题框，但我发现用msgbox 和wcript.echo 反馈出来的提示框没办法用sendkeys自动确定，代码：

set kill=wscript.createobject("wscript.shell")

msgbox "test",,"kill-you"

wscript.Sleep 300

kill.AppActivate "kill-you"

kill.SendKeys "{ENTER}"

希望实现：能够用sendkeys自动确定 msgbox 和wcript.echo 反馈出来的提示框或者除了msgbox 和wcript.echo 有没其它的方法显示提示信息并且能实现延迟一秒后自动确定。

在线求解。。谢谢！

没人解救？周末都潜水去啦。呵呵。。lxmxn 老大在吗？急啊

出现逻辑错误了。。。

你的msgbox对话框没有点确定，msgbox下面的SendKeys就根本不能运行。。。

对喔
真是郁闷，不知道还有没什么办法实现我的要求呢

再启动一个vbs来点击那个msgbox？

谢谢 lxmxn 老大的提示!搞定了.发现自己的脑子不太好使.怎么就想不到呢

自动延时确定的窗口

set wshshell = CreateObject("WScript.Shell") 

timeout = 1 

result = wshshell.Popup("将在 " & timeout & " 秒钟后自动“确定”！", timeout, "延时确定", vbExclamation & vbOkCancel ) 



if (result <= 1) then

  msgbox "确定"

else

  msgbox "取消"

end if

好用..谢