51Testing软件测试论坛

标题: 遇到一个Sendkeys的使用问题，想和大家讨论下！ [打印本页]

作者: wuzhuayu 时间: 2007-9-10 17:18
标题: 遇到一个Sendkeys的使用问题，想和大家讨论下！
在使用Sendkeys函数中遇到的一个问题，希望和大家讨论下！
先贴下代码：
Browser("Browser").Page("页面测试").Frame("mainFrame").WebEdit("to").Set "abcd"
Browser("Browser").Page("页面测试").Frame("mainFrame").WebEdit("subject").Set "测试快捷键"
Browser("Browser").Page("页面测试").Frame("Frame").WebElement("writeFrame").Click
Browser("Browser").Page("页面测试").Frame("Frame").WebElement("writeFrame").Object.innerText="test"
Dim wss
Set wss = createObject("Wscript.shell")
wss.SendKeys "^~"

我的需求是，在一些Edit框和iframe框中输入了部分内容后，然后再提交这些信息。在提交的时候可以点击提交，也可以使用快捷键Ctrl+Enter或者Alt+s，现在测试快捷键的情况，我使用SendKeys 的方法，但是执行到这一步，页面没有任何变化。

有些想不明白，请大家指导下。先谢过了。

作者: rivermen 时间: 2007-9-10 17:33
wss.SendKeys "(^~)"

加个括号呢？

作者: wuzhuayu 时间: 2007-9-10 17:59
没有啥变化。

作者: wuzhuayu 时间: 2007-9-11 00:20
我们在页面中实现这个功能是使用js去实现的，无法接受sendkeys这个函数发过去的键盘模拟，难道是因为js的原因么？期望有知情者解答。自己顶下贴。

作者: yuandjing 时间: 2007-9-11 09:32
wss.SendKeys "^{ENTER}"

作者: wuzhuayu 时间: 2007-9-11 11:53
{ENTER}和~的效果应该是一样的吧。有没有别的什么办法呢？

作者: volvoo 时间: 2007-9-11 14:17
Extern.Declare micVoid, "keybd_event", "user32.dll", "keybd_event", micByte,micByte,micDWord,micULong '调用键鼠操作
Extern.keybd_event 40,0,0,0 'down arrow
也可以发组合键盘码，屡试不爽，研究研究把

作者: hsjzfling 时间: 2007-9-11 14:25
要发送ALT+S的话使用wsh.sendkeys "(%s)"
Alt+Enter 应该是使用wsh.sendkeys "(%~)"

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)