标题: vbs-sendkeys应用 （msgbox标题框获取问题) [打印本页]
作者: vcstone 时间: 2007-11-16 13:40 标题: vbs-sendkeys应用 （msgbox标题框获取问题)
环境 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 有没其它的方法显示提示信息并且能实现延迟一秒后自动确定。
在线求解。。谢谢！
作者: vcstone 时间: 2007-11-16 15:27
没人解救？周末都潜水去啦。呵呵。。lxmxn 老大在吗？急啊
作者: lxmxn 时间: 2007-11-16 17:11
出现逻辑错误了。。。
你的msgbox对话框没有点确定，msgbox下面的SendKeys就根本不能运行。。。
作者: vcstone 时间: 2007-11-16 17:11
对喔
真是郁闷，不知道还有没什么办法实现我的要求呢
作者: lxmxn 时间: 2007-11-16 17:23
再启动一个vbs来点击那个msgbox？
作者: vcstone 时间: 2007-11-16 17:59
谢谢 lxmxn 老大的提示!搞定了.发现自己的脑子不太好使.怎么就想不到呢
作者: zh159 时间: 2007-11-17 02:16
自动延时确定的窗口
set wshshell = CreateObject("WScript.Shell")
timeout = 1
result = wshshell.Popup("将在 " & timeout & " 秒钟后自动“确定”！", timeout, "延时确定", vbExclamation & vbOkCancel )
if (result <= 1) then
msgbox "确定"
else
msgbox "取消"
end if
timeout = 1
result = wshshell.Popup("将在 " & timeout & " 秒钟后自动“确定”！", timeout, "延时确定", vbExclamation & vbOkCancel )
if (result <= 1) then
msgbox "确定"
else
msgbox "取消"
end if
作者: vcstone 时间: 2007-11-20 17:41
好用..谢